/********************************************************************************/
/*   for Dv7 v1.1 ʽ       				 	*/
/* ========================      						*/
/* ӭʹ  ,ʼʹ֮ǰ,Ķȫ˵	*/
/********************************************************************************/
/* Welcome to http://www.chenwang.net/leadbbs					*/
/********************************************************************************/

ļ޸ϸ˵:(кžṩļ˵)
޸savepost.aspdispbbs.aspļṩļ(dvbbs7Ŀ¼)޸ģ
̳Dv7 SP2δ޸ģֱ滻滻֮ǰ뱸ԭļ

һsavepost.asp

7:
<!-- #include file=pet_conn.asp -->

366:
			'Ĵ뿪ʼ
			If Action = 5 Or Action = 7 Then',ͶƱ
			        connpet.ExeCute("UPDATE mypetdata SET mypetexp= mypetexp+"&DEF_PET_newtopicexp&" WHERE username ='"& Dvbbs.MemberName &"' and mypetdead <1")
			    ElseIf Action = 6 then'ظ
			        connpet.ExeCute("UPDATE mypetdata SET mypetexp= mypetexp+"&DEF_PET_replytopicexp&" WHERE username ='"& Dvbbs.MemberName &"' and mypetdead <1")
			End If
			'Ĵ

dispbbs.asp
6:
<!-- #include file=pet_conn.asp -->

223иΪ:
SQL="B.AnnounceID,B.BoardID,B.UserName,B.Topic,B.dateandtime,B.body,B.Expression,B.ip,B.RootID,B.signflag,B.isbest,B.PostUserid,B.layer,b.isagree,U.useremail,U.UserIM,U.UserMobile,U.Usersign,U.userclass,U.Usertitle,U.Userwidth,U.Userheight,U.UserPost,U.Userface,U.JoinDate,U.userWealth,U.userEP,U.userCP,U.Userbirthday,U.Usersex,u.UserGroup,u.LockUser,u.userPower,U.titlepic,U.UserGroupID,U.LastLogin,B.PostBuyUser,U.UserHidden,U.IsChallenge,B.Ubblist,B.LockTopic,B.UserName as UserPet"

269:

'Ĵ뿪ʼ
dim n
for n = 0 to Ubound(SQL,2)
	
	set rspet=connpet.ExeCute("select mypet from mypetdata where username ='"& SQL(2,n) &"'")
	if not rspet.eof then
	    SQL(Ubound(SQL),n) = "&nbsp;&nbsp;<font color=red>ҵı</font><a href=petview.asp?username="& SQL(2,n) &" target=_blank>"&rspet("mypet")&"</a><BR>"
	    else
	    SQL(Ubound(SQL),n) = ""
	end if
	rspet.close

next
'Ĵ					

432:
Response.Write "','"
Response.Write SQL(41,i)
