请先登录 | 注册
MM0759.COM
我使用了你的特殊贴功能，很好用，可是现在我想装宠物中心。 - 文章首页→返回版区
■标题:我使用了你的特殊贴功能，很好用，可是现在我想装宠物中心。
■作者:梦晰 [2005/3/6 2:16:12]
我的社区加入了特殊贴功能。所以那段代码被改成了



sql="select * from [user] where username='"&rs("username")&"'"
Set Rs1=Conn.Execute(sql)


'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX XXX
'XXX XXXXXXXX XXX XX XXX
'XXX XXX XX XXX XXX XXX
'XXX XXX XX XXXX XXX
'XXX XXX XX XXX XX XXX
'XXX XXXXXXXX XXX XXX XXX
'XXX XXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX [ DK特殊贴代码从下面开始（代码段编号：S03） ] XXXXXXX
'XXXX说明：本段代码作用是检测并显示各特殊贴 X XXX
'XXXX 功能的核心代码。 X XXX
'XXXX X XXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX
' XXXXXXXXXXXXXXXXXX
' XXXXXXXXXXXXXXXXXX
' XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
' XXXXXXXXXXXXXXXXXXXXXXXXX
' XXXXXXXXXXXXXXXXXXX
' XXXXXXXXXXXXX
' XXXXXXX
' XXX
' v

'先把发贴者资料里在下面要用的字段读出并关闭数据库

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX 注意03：在下面加入要赋值的等于rs1字段的变量，以免出现兼容问题 XXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX



honor=rs1("honor")
userface1=rs1("userface")
sex=rs1("sex")
birthday=rs1("birthday")
experience=rs1("experience")
membercode=rs1("membercode")
faction=rs1("faction")
consort=rs1("consort")
money=rs1("money")
sign=rs1("sign")
regtime=rs1("regtime")
regtime=""&right(year(regtime),2)&"年"&month(regtime)&"月"&day(regtime)&"日"
userlife=rs1("userlife")
usermail=rs1("usermail")
userhome=rs1("userhome")


postcount=rs1("posttopic")+rs1("postrevert")

//========================================================
请楼主告诉我。怎样修改呢？或者我传这个文件给你，你帮我修改一下。

原代码段是这样的


'''''''结束投票''''''''
sql="select * from [user] where username='"&rs("username")&"'"
Set Rs1=Conn.Execute(sql)
%>
<script>ShowPost('yuzi','<%=rs("username")%>','<%=content%>','<%=rs("posttime")%>','<%=rs1("honor")%>','<%=rs1("userface")%>','<%=rs1("sex")%>','<%=rs1("birthday")%>','<%=rs1("experience")%>','<%=rs1("membercode")%>','<%=rs1("faction")%>','<%=rs1("consort")%>','<%=rs1("money")%>','<%=rs1("posttopic")+rs1("postrevert")%>','<%=rs1("regtime")%>','<%=rs1("userlife")%>','<%=rs1("usermail")%>','<%=rs1("userhome")%>','<%=rs1("sign")%>');</script>
<%
end if
Set Rs1 = Nothing
//========================================================
宠物插件的要求修改方法是
打开SHOWPOST.ASP

找到
'<%=rs1("sign")%>'
在后面添加如下：
,'<%=rs1("mypet")%>','<%=rs1("mypeticon")%>','<%=rs1("mypetcall")%>'

不过要是你想让宠物发贴回贴时都加经验时,就得再修改一个地方哦
sex=

【回复/版区/上篇/下篇/发贴/仅文字/HTML】
【倒序/最近21条回复】
■作者:梦晰 [2005/3/7 2:01:43]
看到你的回复真开心

■作者:IPSC [2005/3/6 8:52:19]
传文件吧，我帮你改，上QQ呀17182898，你可以发到我QQ邮箱，我这段时间没多少机会上网哟

(查看完整版网页)


短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
405 毫秒 .