sub checksheep()
dim username
username=dvbbs.membername
if username=""then response.redirect"login.asp" exitsub endif dim sheepname,sheepid
sheepid=request("id")
dim dellifeday,sheeptype,sheeppic,milkname,milkprice,eatname,eatplushungry,cleanplusclean,sunplushealth,peiplushappy,uplife
dim freezpay
set conn1=server.createobject("adodb.connection")
conn1.open dbname
set rs=server.createobject("adodb.recordset")
rs.open"select * from sheep where id="&sheepid&" and username='"&username&"'",conn1,1,1 if rs.bof then'没找到宠物 %> <script language="Vbscript"> msgbox"您不是这只宠物的主人!",0,"提示" history.back
</script> <%
rs.close
conn1.close
exitsub