宠物中心 for DV6.0 (绿色版) 安装说明

========================================================
首先感谢 "尘网社区" ( http://www.chenwang.net/leadbbs ) 提供了宠物中心的 DV7.0 sp2 代码，这是一个很好的插件，不过很遗憾，插件作者不提供6.0版本，所以本人只好花上一些时间，将这个插件重新修改为DV6.0专用，而且将界面修改一下，插件里面的代码也做了小小的优化。

既然是拿别人的程序，所以不公开这个插件就说不过去了，让仍然坚守在DV6.0的兄弟们也能使用这个有趣的插件。

此插件在动网SQL版与ACCESS版都能使用，请在 petinclude.asp 里设置数据库的类型。

========================================================
宠物中心 for Dv 6.0演示论坛： 新时代社区 http://www.gxqzez.net
========================================================



1. 解压缩 petshop_dv60_alone.zip
2. 把所有的文件复制到论坛的根目录;
3. 宠物中心的首页是: petcenter.asp;


4. 贴子中显示宠物的名字, 即 dispbbs.asp 的修改方法:

(1)首先在文件前面加上这个包含文件: 

<!-- #include file="petconn.asp" -->

(2) 然后在尾部加入一个函数:

<%
function getpetname(UserName)
dim temprs
set temprs=connpet.execute("select mypet from mypetdata where username='"&UserName&"'")
if temprs.eof and temprs.bof then
	getpetname="无"
else
	getpetname="<a href=petview.asp?username="&UserName&" target=_blank><font color=#ff000>"&temprs(0)&"</font></a>"
end if
temprs.close
set temprs=nothing
end function
%>

(3) 然后在显示注册日期的上面插入一行:

......
response.write "&nbsp;&nbsp;宠物："&getpetname(UserName)&"<BR>"
response.write "&nbsp;&nbsp;注册："&FormatDateTime(addtime,2)&"<BR>"
......

(4) 关闭宠物数据库, 第162行附近的插入closepetdb:

......
call footer()
call closepetdb
......


5. 在查看用户资料中显示宠物, 即 dispuser.asp 的修改方法.

(1) 首先在文件前面加上这个包含文件: 

<!-- #include file="petconn.asp" -->

(2) 然后在尾部加入一个函数:

<%
function getpetname(UserName)
dim temprs
set temprs=connpet.execute("select mypet from mypetdata where username='"&UserName&"'")
if temprs.eof and temprs.bof then
	getpetname="无"
    else
	getpetname="<a href=petview.asp?username="&UserName&" target=_blank><font color=#ff000>"&temprs(0)&"</font></a>"
end if
temprs.close
set temprs=nothing
end function
%>


(3) 然后在第239行, 找到"主页", 在下面显示"宠物" 的名字:

......
......
  <tr> 
    <td class=tablebody2 width=20% align=right>主 页：</td>
    <td class=tablebody2>
<%=iimg(rs("homepage"),"<font color=gray>未填</font>","<a href="&htmlencode(rs("homepage"))&" target=_blank>"&htmlencode(rs("homepage"))&"</a> ")%>
</td>
  </tr>
  <tr> 
    <td class=tablebody1 width=20% align=right valign=top>宠物：</td>
    <td class=tablebody1><%=getpetname(username)%></td>
......
......


(4) 关闭宠物数据库, 第44行附近的插入 closepetdb:

......
call footer()
call closepetdb
......


6. 发贴增加宠物的经验值的办法，修改 saveannounce.asp , savereannounce.asp , savevote.asp 这三个文件:


(1) 首先在文件前面加上这两包含文件: 

<!-- #include file="petconn.asp" -->
<!-- #include file="pet_config.asp" -->


分别在 “插入回复表”的上面插入这一行：


'更新宠物的经验值
connpet.ExeCute("UPDATE mypetdata SET mypetexp= mypetexp+"&DEF_PET_newtopicexp&" WHERE username ='"& MemberName &"' and mypetdead <1")


(2) 分别在这三个文件中找到 " call footer()" , 在这一句后面加入 "call closepetdb" :

......
call footer()
call closepetdb
......




=============================================
说明文档结束，感谢大家使用。
=============================================



