 for DV6.0 (ɫ) װ˵

========================================================
ȸл "" ( http://www.chenwang.net/leadbbs ) ṩ˳ĵ DV7.0 sp2 룬һܺõĲź߲ṩ6.0汾ԱֻûһЩʱ䣬޸ΪDV6.0רãҽ޸һ£ĴҲССŻ

Ȼñ˵ĳԲ˵ȥˣȻDV6.0ֵҲʹȤĲ

˲ڶSQLACCESS涼ʹã 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
......




=============================================
˵ĵлʹá
=============================================



