020 发表于 2006-2-24 05:21:00

【已解決】[求助]论坛如何添加经验魅力值

如题
望站长能提供修改方法
谢谢

[本贴已被 作者 于 2006年02月24日 11时50分11秒 编辑过]

020 发表于 2006-2-24 19:52:04

站长在吗

温柔幻刀 发表于 2006-2-25 05:22:04

呵呵！！本站好象有提供下载，请自行查看，谢谢1！！

020 发表于 2006-2-26 04:52:17

是有下载
可是没有修改方法呀

对了 贵站论坛的宠物
怎么没有URL连接呀
我的就有
演示:http://tl.v158.com/forum_view.asp?forum_id=0000FF&view_id=88
宠物前加个连接即可

020 发表于 2006-2-26 05:06:58

我在本站搜索了
没有论坛如何添加经验魅力值
这个资料呀
请贵站再说一下好吗

温柔幻刀 发表于 2006-3-3 06:51:11

论坛显示添加办法：
打开forum_view.asp
找到：temp1=temp1&"<br>注册："&joekoe_cms.time_type(u_tim,4)&"</td></tr>"
改为：
temp1=temp1&"<br>注册："&joekoe_cms.time_type(u_tim,4)&""
并在下面添加：
Dim ConnOther,RsOther,SqlOther
Set ConnOther= Server.CreateObject("ADODB.Connection")
ConnOther.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("数据库名字")
ConnOther.Open
SqlOther="select * from mypetdata where username='"&n_user&"'"
set RsOther=ConnOther.ExeCute(SqlOther)
if RsOther.bof and RsOther.eof then
temp1=temp1&vbcrlf&"<br>"
else
temp1=temp1&vbcrlf&"<br>宠物："&RsOther("mypet")&"</td></tr>"
RsOther.close
end if
set RsOther=nothing
ConnOther.close
set ConnOther=nothing


开往天堂的邮车 发表于 2006-3-15 06:33:15

迷糊~
不懂~
呵呵~
页: [1]
查看完整版本: 【已解決】[求助]论坛如何添加经验魅力值