<!--#include file="Inc.asp"-->
<!-- #include file=pet_conn.asp -->
<%
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
BBS94KK.Head("宠物宝贝 → 宠物百宝箱")
    dim  money,smoney,saveday,allmoney,time1,time2,daikuang,dkdu,daiday,sucmsg
    dim Form_userphoto,Form_FaceUrl,Form_FaceWidth,Form_FaceHeight
    
   Dim Rs,SQL

	set rs=bbs94kk.execute("select * from [kk_User] where  name='"&bbs94kk.myname &"'")
      	
    money=rs("coin")
    Form_userphoto = Rs("pic")
	DEF_PointsName="金币"

		Form_FaceWidth = Rs("picW")
		Form_FaceHeight = Rs("picH")
    rs.close 
    

    sql = "SELECT * FROM mypetdata WHERE username='"&bbs94kk.myname&"' "
    rs.open sql,connpet,1,3
    if rs.eof then
'call showmessage("你还没有宠物啊，快攒钱去买吧~","petshop.asp")
Response.Write "<script language=JavaScript>{alert('你还没有宠物啊，快攒钱去买吧~');(location.href = 'petshop.asp')}</script>"
        else


	

'注册宠物随身物品和属性

dim t,today,petdiff,pett,petlevel,petep,petshowlevel,levelpic,intval,level1,petpic,pethp,petmaxhp
dim petatk,petdef,updat,newpettoday,petsp,petsex,petpk
dim hpf,spf,mypetdead,petdead,mypetsex,str,ski,def,vit,szd,skill,hpmaxskill
dim item1,item2,item3,item4,item5,mypet,mypetsx,imgset	
t=now()
today = date()
petdiff = DateDiff("d", rs("petregdate"), today)
pett= DateDiff("d", rs("petregdate"), today)
petlevel = sqr((Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)))
petep = int (100 * (petlevel - int (petlevel)))
petshowlevel = int (petlevel + 1)
levelpic=int(petshowlevel/10)
if levelpic>10 then levelpic=11 end if
level1=int(petshowlevel)
petpic=rs("mypetname")
pethp=rs("mypethp")
str=rs("str")
ski=rs("ski")
def=rs("def")
vit=rs("vit")
szd=rs("szd")+petshowlevel*5-str-ski-def-vit
skill=rs("skill")+petshowlevel-rs("atkskill")-rs("defskill")-rs("lifeskill")-rs("luckskill")-rs("learnskill")-rs("hpmaxskill")
petatk=rs("mypetatk")+rs("item1Num")+rs("item2Num")+int(str/2)
petdef=rs("mypetdef")+rs("item3Num")+rs("item4Num")+rs("item5Num")+int(ski/2)
updat=0
newpettoday = Now()
 '获取生命上限
   	      hpmaxskill=1
          if rs("hpmaxskill")>0 then
          hpmaxskill=1+rs("hpmaxskill")/100
          end if 
          if rs("hpmaxskill")>30 then
          hpmaxskill=1.2+rs("hpmaxskill")/100
          end if 
          if rs("hpmaxskill")>100 then
          hpmaxskill=1.5+rs("hpmaxskill")/100
          end if 
		  petmaxhp = int((rs("mypetmaxhp")+vit)*hpmaxskill)


petsp=rs("mypetsp")-pett*DEF_PET_basicsp2
if petsp>DEF_PET_basicsp then
	petsp=DEF_PET_basicsp
end if	
if pett>0 then
	updat=1
end if
hpf= int(100 * (pethp / petmaxhp)) - 1
spf= int(100 * (petsp / DEF_PET_basicsp)) - 1
if pethp<1 then
	pethp=0
	mypetdead=1
	updat=1
elseif petsp<1 then
	petsp=0
	mypetdead=1
	updat=1
else 
	mypetdead=0
	updat=1
end if

if pethp<1 or petsp<1 then
	petdead="死亡"
else
	petdead="生存"
end if
if rs("mypetsex")<2 then 
	petsex="雄"
	else 
	petsex="雌"
end if
if rs("openpk")<2 then 
	petpk="等待挑战"
else 
	petpk="拒绝挑战"
end if
if hpf >= 98 then hpf = hpf - 2 end if
if spf >= 98 then spf = spf - 2 end if
dim petkill
if petdead="死亡" then
petkill="style='filter: Gray;' onLoad='javascript:if(this.width>100)this;if(this.height>100)this;'"
else
petkill=""
end if

if updat=1 then
	sql = "UPDATE mypetdata SET mypetlevel="& petshowlevel &",mypethp="& pethp &",mypetsp="&petsp&",mypetdead="&mypetdead&",petregdate='"&newpettoday&"' WHERE username='"& bbs94kk.myname &"'"
	connpet.ExeCute(sql)
	updat=0
end if

'宠物物品
item1 = rs("item1")
item2 = rs("item2")
item3 = rs("item3")
item4 = rs("item4")
item5 = rs("item5")
mypet = rs("mypet")
mypetsx = rs("mypetsx")
imgset = rs("imgset") 



dim tmoney,sword,tmp,necklace,head,body,foot,rndNum,action
		
if request("action") = "" then
	action = "givesell"
	else
	action = lcase(request("action"))
end if



'注册宠物物品箱中物品

Dim Rs2,SQL2,hpitem,spitem,expitem,atkitem,defitem,liveitem,weopitem,amoritem,jewel,ring,it1,it1n,it2,it2n,it3,it3n,it4,it4n,it5,it5n,it6,it6n,it7,it7n,it8,it8n
dim tempname,tempclass,tempNum,tempN,it,temp,tempp

sql2 = "SELECT * FROM useritem WHERE username='"&bbs94kk.myname&"' "
set rs2=connpet.ExeCute(sql2)
hpitem=rs2("hpitem")
spitem=rs2("spitem")
expitem=rs2("expitem")
liveitem=rs2("liveitem")	
weopitem=rs2("weopitem")
amoritem=rs2("amoritem")
jewel=rs2("jewel")
ring=rs2("ring")
it1=rs2("it1")
it1n=rs2("it1n")
it2=rs2("it2")
it2n=rs2("it2n")
it3=rs2("it3")
it3n=rs2("it3n")
it4=rs2("it4")
it4n=rs2("it4n")
it5=rs2("it5")
it5n=rs2("it5n")
it6=rs2("it6")
it6n=rs2("it6n")
it7=rs2("it7")
it7n=rs2("it7n")
it8=rs2("it8")
it8n=rs2("it8n")


'判断物品栏是否已经满
tempp=0
if it8=0 then tempp=8 end if
if it7=0 then tempp=7 end if
if it6=0 then tempp=6 end if
if it5=0 then tempp=5 end if
if it4=0 then tempp=4 end if
if it3=0 then tempp=3 end if
if it2=0 then tempp=2 end if
if it1=0 then tempp=1 end if


	'用很无聊的循环使用变量得到每种道具的名字……
	dim rs3,swordname,necklacename,headname,bodyname,footname
	set rs3 = connpet.execute("select * from petitemshop where itemclass='sword' and itemnum="&rs("item1"))
	swordname = rs3("itemname")
	rs3.close
	set rs3 = connpet.execute("select * from petitemshop where itemclass='necklace' and itemnum="&rs("item2"))
	necklacename = rs3("itemname")
	rs3.close
	set rs3 = connpet.execute("select * from petitemshop where itemclass='head' and itemnum="&rs("item3"))
	headname = rs3("itemname")
	rs3.close
	set rs3 = connpet.execute("select * from petitemshop where itemclass='body' and itemnum="&rs("item4"))
	bodyname = rs3("itemname")
	rs3.close
	set rs3 = connpet.execute("select * from petitemshop where itemclass='foot' and itemnum="&rs("item5"))
	footname = rs3("itemname")
	rs3.close
'触发事件

select case action

'装备物品
	case "sell"
http = Request.ServerVariables("HTTP_REFERER")
If instr(http,"petitbox.asp")=0 Then
Response.Write "<script language=JavaScript>{alert('错误：请离开！！！！');(location.href = 'petitbox.asp')}</script>"
response.end
end if				
		tempNum = Clng(request("tempNum"))   '物品等级
		tempclass = request("tempclass")     '物品类型
		tempName = request("tempName")       '物品名称
		tempN=request("tempN") 			     '物品强度
		it=request("it") 			     '物品栏位置
		select case tempclass
		    	case "sword" 
		    	temp=1
		    	case "necklace"
				temp=2
				case "head"
				temp=3
				case "body"
				temp=4				
				case "foot"	
				temp=5						
			end select
		'判断身上是否有装备
		if rs("item"&temp)<>0 then
'call showmessage("你的身上装备了物品<br>请卸下身上的物品后重新装备","petitbox.asp")
Response.Write "<script language=JavaScript>{alert('你的身上装备了物品,请卸下身上的物品后重新装备!');(location.href = 'petitbox.asp')}</script>"		
		else	
		   		   
			select case temp
		   			case 1
						connpet.execute("update [mypetdata] set item1="&tempNum&",item1num="&tempN&" where username='"&bbs94kk.myname&"'")
					case 2
						connpet.execute("update [mypetdata] set item2="&tempNum&",item2num="&tempN&" where username='"&bbs94kk.myname&"'")
					case 3
						connpet.execute("update [mypetdata] set item3="&tempNum&",item3num="&tempN&" where username='"&bbs94kk.myname&"'")
					case 4
						connpet.execute("update [mypetdata] set item4="&tempNum&",item4num="&tempN&" where username='"&bbs94kk.myname&"'")
					case 5
						connpet.execute("update [mypetdata] set item5="&tempNum&",item5num="&tempN&" where username='"&bbs94kk.myname&"'")
			end select
			
			select case it
					case 1
						connpet.execute("update [useritem] set it1=0,it1n=0 where username='"&bbs94kk.myname&"'")
					case 2
						connpet.execute("update [useritem] set it2=0,it2n=0 where username='"&bbs94kk.myname&"'")
					case 3
						connpet.execute("update [useritem] set it3=0,it3n=0 where username='"&bbs94kk.myname&"'")
					case 4
						connpet.execute("update [useritem] set it4=0,it4n=0 where username='"&bbs94kk.myname&"'")
					case 5
						connpet.execute("update [useritem] set it5=0,it5n=0 where username='"&bbs94kk.myname&"'")
					case 6
						connpet.execute("update [useritem] set it6=0,it6n=0 where username='"&bbs94kk.myname&"'")
					case 7
						connpet.execute("update [useritem] set it7=0,it7n=0 where username='"&bbs94kk.myname&"'")
					case 8
						connpet.execute("update [useritem] set it8=0,it8n=0 where username='"&bbs94kk.myname&"'")
			end select
'call showmessage("您已成功装备了"&tempname,"petitbox.asp")
Response.Write "<script language=JavaScript>{alert('您已成功装备了"&tempname&"!');(location.href = 'petitbox.asp')}</script>"
		end if	


'丢弃物品	
	case "buy"
http = Request.ServerVariables("HTTP_REFERER")
If instr(http,"petitbox.asp")=0 Then
Response.Write "<script language=JavaScript>{alert('错误：请离开！！！！');(location.href = 'petitbox.asp')}</script>"
response.end
end if			
		tempNum = Clng(request("tempNum"))   '物品等级
		tempclass = request("tempclass")     '物品类型
		tempName = request("tempName")       '物品名称
		tempN=request("tempN") 			     '物品强度
		it=request("it") 			    	 '物品栏位置
		select case tempclass
		    	case "sword" 
		    	temp=1
		    	case "necklace"
				temp=2
				case "head"
				temp=3
				case "body"
				temp=4				
				case "foot"	
				temp=5						
			end select
			
			select case it
					case 1
						connpet.execute("update [useritem] set it1=0,it1n=0 where username='"&bbs94kk.myname&"'")
					case 2
						connpet.execute("update [useritem] set it2=0,it2n=0 where username='"&bbs94kk.myname&"'")
					case 3
						connpet.execute("update [useritem] set it3=0,it3n=0 where username='"&bbs94kk.myname&"'")
					case 4
						connpet.execute("update [useritem] set it4=0,it4n=0 where username='"&bbs94kk.myname&"'")
					case 5
						connpet.execute("update [useritem] set it5=0,it5n=0 where username='"&bbs94kk.myname&"'")
					case 6
						connpet.execute("update [useritem] set it6=0,it6n=0 where username='"&bbs94kk.myname&"'")
					case 7
						connpet.execute("update [useritem] set it7=0,it7n=0 where username='"&bbs94kk.myname&"'")
					case 8
						connpet.execute("update [useritem] set it8=0,it8n=0 where username='"&bbs94kk.myname&"'")
			end select

	
'call showmessage("您已成功丢弃了"&tempname,"petitbox.asp")
Response.Write "<script language=JavaScript>{alert('您已成功丢弃了"&tempname&"!');(location.href = 'petitbox.asp')}</script>"

	
	
'卸下物品
	case "nosell"
http = Request.ServerVariables("HTTP_REFERER")
If instr(http,"petitbox.asp")=0 Then
Response.Write "<script language=JavaScript>{alert('错误：请离开！！！！');(location.href = 'petitbox.asp')}</script>"
response.end
end if			
	it=request("it") 	 '物品栏位置
	if tempp=0 then 
'call showmessage("您的物品箱已满","petitbox.asp")
Response.Write "<script language=JavaScript>{alert('您的物品箱已满!');(location.href = 'petitbox.asp')}</script>"
	else
		tempNum = rs("item"&it)           '物品等级
		tempN=rs("item"&it&"Num") 		  '物品强度

		select case it
		case 1
				set rs3 = connpet.execute("select * from petitemshop where itemclass='sword' and itemnum="&rs("item"&it))

				tempclass=rs3("id")
				connpet.execute("update [mypetdata] set item1=0,item1num=0 where username='"&bbs94kk.myname&"'")
				select case tempp
						case 1
							connpet.execute("update [useritem] set it1="&tempclass&",it1n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 2
							connpet.execute("update [useritem] set it2="&tempclass&",it2n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 3
							connpet.execute("update [useritem] set it3="&tempclass&",it3n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 4
							connpet.execute("update [useritem] set it4="&tempclass&",it4n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 5
							connpet.execute("update [useritem] set it5="&tempclass&",it5n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 6
							connpet.execute("update [useritem] set it6="&tempclass&",it6n="&tempN&" where username='"&bbs94kk.myname&"'")							
						case 7
							connpet.execute("update [useritem] set it7="&tempclass&",it7n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 8
							connpet.execute("update [useritem] set it8="&tempclass&",it8n="&tempN&" where username='"&bbs94kk.myname&"'")							
				end select		
		case 2
				set rs3 = connpet.execute("select * from petitemshop where itemclass='necklace' and itemnum="&rs("item"&it))

				tempclass=rs3("id")
				connpet.execute("update [mypetdata] set item2=0,item2num=0 where username='"&bbs94kk.myname&"'")
				select case tempp
						case 1
							connpet.execute("update [useritem] set it1="&tempclass&",it1n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 2
							connpet.execute("update [useritem] set it2="&tempclass&",it2n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 3
							connpet.execute("update [useritem] set it3="&tempclass&",it3n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 4
							connpet.execute("update [useritem] set it4="&tempclass&",it4n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 5
							connpet.execute("update [useritem] set it5="&tempclass&",it5n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 6
							connpet.execute("update [useritem] set it6="&tempclass&",it6n="&tempN&" where username='"&bbs94kk.myname&"'")							
						case 7
							connpet.execute("update [useritem] set it7="&tempclass&",it7n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 8
							connpet.execute("update [useritem] set it8="&tempclass&",it8n="&tempN&" where username='"&bbs94kk.myname&"'")							
				end select
		case 3
				set rs3 = connpet.execute("select * from petitemshop where itemclass='head' and itemnum="&rs("item"&it))

				tempclass=rs3("id")
				connpet.execute("update [mypetdata] set item3=0,item3num=0 where username='"&bbs94kk.myname&"'")
				select case tempp
						case 1
							connpet.execute("update [useritem] set it1="&tempclass&",it1n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 2
							connpet.execute("update [useritem] set it2="&tempclass&",it2n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 3
							connpet.execute("update [useritem] set it3="&tempclass&",it3n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 4
							connpet.execute("update [useritem] set it4="&tempclass&",it4n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 5
							connpet.execute("update [useritem] set it5="&tempclass&",it5n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 6
							connpet.execute("update [useritem] set it6="&tempclass&",it6n="&tempN&" where username='"&bbs94kk.myname&"'")							
						case 7
							connpet.execute("update [useritem] set it7="&tempclass&",it7n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 8
							connpet.execute("update [useritem] set it8="&tempclass&",it8n="&tempN&" where username='"&bbs94kk.myname&"'")							
				end select
		case 4
				set rs3 = connpet.execute("select * from petitemshop where itemclass='body' and itemnum="&rs("item"&it))

				tempclass=rs3("id")
				connpet.execute("update [mypetdata] set item4=0,item4num=0 where username='"&bbs94kk.myname&"'")
				select case tempp
						case 1
							connpet.execute("update [useritem] set it1="&tempclass&",it1n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 2
							connpet.execute("update [useritem] set it2="&tempclass&",it2n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 3
							connpet.execute("update [useritem] set it3="&tempclass&",it3n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 4
							connpet.execute("update [useritem] set it4="&tempclass&",it4n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 5
							connpet.execute("update [useritem] set it5="&tempclass&",it5n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 6
							connpet.execute("update [useritem] set it6="&tempclass&",it6n="&tempN&" where username='"&bbs94kk.myname&"'")							
						case 7
							connpet.execute("update [useritem] set it7="&tempclass&",it7n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 8
							connpet.execute("update [useritem] set it8="&tempclass&",it8n="&tempN&" where username='"&bbs94kk.myname&"'")							
				end select
		
		case 5
				set rs3 = connpet.execute("select * from petitemshop where itemclass='foot' and itemnum="&rs("item"&it))

				tempclass=rs3("id")
				connpet.execute("update [mypetdata] set item5=0,item5num=0 where username='"&bbs94kk.myname&"'")
				select case tempp
						case 1
							connpet.execute("update [useritem] set it1="&tempclass&",it1n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 2
							connpet.execute("update [useritem] set it2="&tempclass&",it2n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 3
							connpet.execute("update [useritem] set it3="&tempclass&",it3n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 4
							connpet.execute("update [useritem] set it4="&tempclass&",it4n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 5
							connpet.execute("update [useritem] set it5="&tempclass&",it5n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 6
							connpet.execute("update [useritem] set it6="&tempclass&",it6n="&tempN&" where username='"&bbs94kk.myname&"'")							
						case 7
							connpet.execute("update [useritem] set it7="&tempclass&",it7n="&tempN&" where username='"&bbs94kk.myname&"'")
						case 8
							connpet.execute("update [useritem] set it8="&tempclass&",it8n="&tempN&" where username='"&bbs94kk.myname&"'")							
				end select		
		
		rs3.close
	end select
	
	end if
'call showmessage("您已成功卸下装备","petitbox.asp")
Response.Write "<script language=JavaScript>{alert('您已成功卸下装备!');(location.href = 'petitbox.asp')}</script>"

'npc物品	
	case "npc"
http = Request.ServerVariables("HTTP_REFERER")
If instr(http,"petitbox.asp")=0 Then
Response.Write "<script language=JavaScript>{alert('错误：请离开！！！！');(location.href = 'petitbox.asp')}</script>"
response.end
end if			
		tempNum = Clng(request("tempNum"))   '物品等级
		tempclass = request("tempclass")     '物品类型
		tempName = request("tempName")       '物品名称
		tempN=request("tempN") 			     '物品强度
		it=request("it") 			    	 '物品栏位置
		if tempN=0 then
'call showmessage("把我当什么了，这种垃圾我才不要呢","petitbox.asp")
Response.Write "<script language=JavaScript>{alert('把我当什么了，这种垃圾我才不要呢!');(location.href = 'petitbox.asp')}</script>"
		end if

		if rs2("it"&it)=0 then
'call showmessage("刷钱者，杀无赦","petitbox.asp")
Response.Write "<script language=JavaScript>{alert('把我当什么了，刷钱者，杀无赦!');(location.href = 'petitbox.asp')}</script>"
      	end if

randomize		
		dim npc1,npc2
		npc2=(50+rnd*100-rnd*30)
		npc1=int(tempN*npc2+10)   '出售的价格
		bbs94kk.execute("UPDATE [kk_user] SET coin=coin+"&npc1&" WHERE name='"&bbs94kk.myname&"'")
	
			select case it
					case 1
						connpet.execute("update [useritem] set it1=0,it1n=0 where username='"&bbs94kk.myname&"'")
					case 2
						connpet.execute("update [useritem] set it2=0,it2n=0 where username='"&bbs94kk.myname&"'")
					case 3
						connpet.execute("update [useritem] set it3=0,it3n=0 where username='"&bbs94kk.myname&"'")
					case 4
						connpet.execute("update [useritem] set it4=0,it4n=0 where username='"&bbs94kk.myname&"'")
					case 5
						connpet.execute("update [useritem] set it5=0,it5n=0 where username='"&bbs94kk.myname&"'")
					case 6
						connpet.execute("update [useritem] set it6=0,it6n=0 where username='"&bbs94kk.myname&"'")
					case 7
						connpet.execute("update [useritem] set it7=0,it7n=0 where username='"&bbs94kk.myname&"'")
					case 8
						connpet.execute("update [useritem] set it8=0,it8n=0 where username='"&bbs94kk.myname&"'")
			end select

	
'call showmessage("您以"&npc1&"的价格出售了"&tempname,"petitbox.asp")
Response.Write "<script language=JavaScript>{alert('您以"&npc1&"的价格出售了"&tempname&"!');(location.href = 'petitbox.asp')}</script>"
end select
end if
%>

<table width="760" border="0" cellspacing="1" cellpadding="5" align="center" class=TBone>
  <tr>
	<td class=tbbg1 valign=top align="center" width="76" height="278">
	
<table width="766" border="0" cellspacing="0" cellpadding="0" height="295">
<tr><td width="253" rowspan="2" valign=top height="295"><table width="79%"  border="0" align="center" cellpadding="3" cellspacing="3">
<tr><td width="100%"><div align="center">我的资料</div></td>
</tr><tr><td><div align="center">
					<img border="0"  src="<%=Form_userphoto%>" width="<%=Form_FaceWidth%>"  height="<%=Form_Faceheight%>">
					<br><img src="images/blank.gif"  width="2" height="5"><br>
                    </div></td>
                  </tr>
                  <tr> 
                    <td> <div align="center">
                        <nobr>用户<%=DEF_PointsName%>: <%=money%>金币 </nobr>      
                        </div></td>
                  </tr>
                </table>  <br> <table width="90%" border="0" align="center" cellpadding="3" cellspacing="3">
<tr><td><div align="center"></div>
<!-- #include file=petnav.asp --></td>
</tr></table><br><table width="79%" border="0" align="center" cellpadding="3" cellspacing="3">
<tr><td width="100%"><div align="center"><img src="images/pet/27.gif"></div></td>
</tr></table><br><div align="right"></div></td>
<td width="549" height="235">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
  <tr>
    <td width="100%">					
    <table width="456" border="0" cellspacing="2" cellpadding="2">
                        <tr> 
							<td width="166">
                            <p align="right"><font color="#FF0000">点击装备就能卸下</font></td>
                            <td width="105"> 
                        <div align="center"><a href="petitbox.asp?action=nosell&it=3"><img src="images/pet/head/<%=rs("item3")%>.gif" alt="<%=headname%> 防御力 <%=rs("item3Num")%>" width="23" height="30" border="0"></a></div>
                      </td>
                            <td width="165"><font color="#FF0000">点击装备就能卸下</font></td>
                        </tr>
                        <tr> 
                            <td width="166">
                        <div align="right"> <a href="petitbox.asp?action=nosell&it=1"><img height=30 src="images/pet/sword/<%=rs("item1")%>.gif" alt="<%=swordname%> 攻击力 <%=rs("item1Num")%>" width="23" border="0"></a></div>
                      </td>
                            <td rowspan="2" width="105"><div align="center">
							<%if rs("imgset")=-1 then%>
							<img src='images/pet/<%=petpic%>/<%=petpic%><%=levelpic%>.gif' border="0" <%=petkill%> >
							<%else%>
							<img src='images/pet/<%=petpic%>/<%=petkill%><%=petpic%><%=imgset%>.gif' border="0" <%=petkill%> >
							<%end if%>

							</div></td>
                            
                      <td width="165"><a href="petitbox.asp?action=nosell&it=4"><img src="images/pet/body/<%=rs("item4")%>.gif" alt="<%=bodyname%> 防御力 <%=rs("item4Num")%>" width="23" height="30" border="0"></a></td>
                        </tr>
                        <tr> 
                            <td width="166">
                        <div align="right"><a href="petitbox.asp?action=nosell&it=2"><img src="images/pet/necklace/<%=rs("item2")%>.gif" alt="<%=necklacename%> 攻击力 <%=rs("item2Num")%>" width="23" height="30" border="0" ></a></div>
                      </td>
                            
                      <td width="165"><a href="petitbox.asp?action=nosell&it=5"><img src="images/pet/foot/<%=rs("item5")%>.gif" alt="<%=footname%> 防御力 <%=rs("item5Num")%>" width="23" height="30" border="0"></a></td>
                        </tr>
                        </table>

				  <table width='100%' border='0' cellpadding='1' cellspacing='1'>

					<tr><td width='33%'><div align="left">宠物名称：<%=mypet%>
						  <br>
						  宠物性别：<%=petsex%><br>
                      宠物状态：<%=petdead%><br>
						宠物属性：<%=mypetsx%></div><div align="left">宠物挑战：<%=petpk%></div><div align="left">宠物转生：<%=rs("relive")%></div><div align="left">宠物级别：<%=petshowlevel%></div></td>
					  <td width='33%'> <span lang="zh-cn">力量</span>：<%=str%><br>
						  <span lang="zh-cn">皮肤</span>：<%=ski%><br>
						  <span lang="zh-cn">敏捷</span>：<%=def%><br>
						  <span lang="zh-cn">体力</span>：<%=vit%><br>
						  攻击：<%=petatk%><br>
						  防御：<%=petdef%><br>
                      素质：<%=szd%></td>
					  <td width='33%'> HP : <%=pethp%> / <%=petmaxhp%><br> <table width='120' border='0' cellspacing='0' cellpadding='0' bordercolor='#000000'><tr><TD width=3 height=13><IMG height=13 src='images/rpg/img_left.gif' width=3></TD><TD width=114 background=images/rpg/img_backing.gif height=13><img src='images/rpg/orange.gif' width='<%=hpf%>%' height='9'><img src='images/rpg/hp.gif' height='9'></td>  
<TD width=3 height=13><IMG height=13 src='images/rpg/img_right.gif' width=3></TD></tr>
</table>SP : <%=petsp%> / <%=DEF_PET_basicsp%><br> <table width='120' border='0' cellspacing='0' cellpadding='0' bordercolor='#000000'><tr><TD width=3 height=13><IMG height=13 src='images/rpg/img_left.gif' width=3></TD><TD width=114 background=images/rpg/img_backing.gif height=13><img src='images/rpg/green.gif' width='<%=spf%>%' height='9'><img src='images/rpg/mp.gif' height='9'></td>  
<TD width=3 height=13><IMG height=13 src='images/rpg/img_right.gif' width=3></TD>
</tr></table>EXP : <%=petep%>%[<%=rs("mypetexp")%>]<br> <table width='120' border='0' cellspacing='0' cellpadding='0' bordercolor='#000000'><tr><TD width=3 height=13><IMG height=13 src='images/rpg/img_left.gif' width=3></TD>  
<TD width=114 background=images/rpg/img_backing.gif height=13><img src='images/rpg/blue.gif' width='<%=petep%>%' height='9'><img src='images/rpg/exp.gif' height='9'></td>
<TD width=3 height=13><IMG height=13 src='images/rpg/img_right.gif' width=3></TD>
</tr></table></td></tr></table>
</td>
  </tr>
  <tr>
    <td width="100%">
    <div align="center">
      <center>
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%">

		<br>

 <tr>
        <td width="25%" align="center"><IMG height=40 src="images/pet/wp.gif" width=40><BR>
						  武器升级材料</td>
        <td width="25%" align="center">拥有数量：<%=weopitem%></td>
        <td width="25%" align="center">
						  <IMG height=40 src="images/pet/am.gif" width=40><BR>
						  防具升级材料</td>
        <td width="25%" align="center">拥有数量：<%=amoritem%></td>
      </tr>
      <tr>
        <td width="25%" align="center"><IMG height=40 src="images/pet/wp.gif" width=40><BR>
						  钻石</td>
        <td width="25%" align="center">拥有数量：<%=jewel%></td>
        <td width="25%" align="center">
						  <IMG height=40 src="images/pet/am.gif" width=40><BR>
						  求婚戒指</td>
        <td width="25%" align="center">拥有数量：<%=ring%></td>
      </tr>
    </table>
      </center>
    </div>
    </td>
  </tr>
</table>
  </td></tr><tr><td width="549" valign=top align="left"> 
<%
	if action<>"buy" and action<>"sell" and action<>"givesell" then
	
	rs.open sql,connpet,1,1
	if rs.bof and rs.eof then response.write "</td></tr></table>"

response.end
	rs.movefirst

do while not rs.eof

rs.movenext
loop
rs.close

	elseif action = "givesell" then

	SQL = "SELECT * FROM mypetdata WHERE username='"&bbs94kk.myname&"'"
	set rs = connpet.execute(SQL)



%>
	<div align=center>
	<table class=text1 cellSpacing=1 cellPadding=3 width=438 align=center border=0 width="100%" height="63">
	<tr>
		<td width="114" height="17" align=center>物品名称</td>
		<td width="114" height="17" align=center>物品形象</td>
		<td width="114" height="17" align=center>攻击/防御</td>
		<td width="120" height="17" align=center colspan="3">装备/出售/丢弃</td>
	</tr>
<%
if it1<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it1)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=1
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it1n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it1n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it1n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it1n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>
<%
if it2<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it2)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=2
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it2n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it2n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it2n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it2n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>
<%
if it3<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it3)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=3
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it3n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it1n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it3n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it3n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>

<%
if it4<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it4)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=4
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it4n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it4n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it4n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it4n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>

<%
if it5<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it5)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=5
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it5n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it5n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it5n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it5n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>
<%
if it6<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it6)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=6
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it6n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it6n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it6n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it6n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>
<%
if it7<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it7)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=7
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it7n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it7n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it7n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it7n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>
<%
if it8<>0 then
	set rs3 = connpet.execute("select * from petitemshop where id="&it8)
	tempname = rs3("itemname")
	tempclass=rs3("itemclass")
	tempNum=rs3("itemNum")
	it=8
	rs3.close
%>	
	<tr>
		<td width="114" height="32" align=center><%=tempname%></td>
		<td width="114" height="32" align=center><IMG height=30 src="images/pet/<%=tempclass%>/<%=tempNum%>.gif" width=30></td>
		<td width="114" height="32" align=center>＋ <%=it8n%></td>
	
		<td height="32" align=center width="40"><form action="petitbox.asp" method="post">
		<input class='94kk' type="submit" value="装备">
		<input class='94kk' type="hidden" name="action" value="sell">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it8n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</form>	</td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="出售">
		<input class='94kk' type="hidden" name="action" value="npc">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it8n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
		<td height="32" width="40"><form action="petitbox.asp" method="post">
		<p align="center">
		<input class='94kk' type="submit" value="丢弃">
		<input class='94kk' type="hidden" name="action" value="buy">
		<input class='94kk' type="hidden" name="tempname" value="<%=tempname%>">
		<input class='94kk' type="hidden" name="tempclass" value="<%=tempclass%>">
		<input class='94kk' type="hidden" name="tempN" value="<%=it8n%>">
		<input class='94kk' type="hidden" name="tempNum" value="<%=tempNum%>">
		<input class='94kk' type="hidden" name="it" value="<%=it%>">
		</p>
		</form></td>
	</tr>
<%end if%>
	</table>
	</div>
<%
rs2.close
rs.close
end if

%>
</td>
</tr></table>
</td></tr></table>
<% call bbs94kk.footer()

Set BBS94KK = Nothing%>