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

020

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

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

020

站长在吗[rw1]

温柔幻刀

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

020

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

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

020

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

温柔幻刀

论坛显示添加办法：
打开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="rovider=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

开往天堂的邮车

迷糊~
不懂~
呵呵~