<!--#include file="Setup.asp"-->
<!--#include file="Pet/PetSetup.asp"-->
<!--#include file="Pet/Inc/Class_Petpk.asp"-->
<%
if CookieUserName=empty then error("<li>您还未<a href=login.asp>登录</a>社区")
top
ShowPetTop("宠物竞技场")


if request("atkpet") = "go" then
Set PetPkStatus=New PetPKClass
PetPkStatus.FormatPetPkData
PetPkStatus.GoPK
Set PetPkStatus=Nothing
end if

Set ShowPetStatus=New PetStatus
with ShowPetStatus
%>

<br>

<div class="mainnav">
<table width=100%  border="0" align="center" cellpadding="2" cellspacing="1" class="a2">
<tr class="a3"> 
<td width="27%"> 
<%
.LetUserName=CookieUserName
.FormatPetData
%>
<table border='0' cellpadding='0' cellspacing='0'>
<tr> 
<td width='118' ><%.ShowPetEquip%></td>
<td width="120" ><%.ShowPetFigure%></td>
</tr>
<tr><td colspan="2" align="center"><%.ShowPetItem%></td>
</tr></table>
	
</td>


<td width="73%" valign="top"><table width="100%" cellpadding='0' cellspacing='0'>
     <tr>
       <td >
	  <div style="overflow: y;height:400"> 
	   <%
	response.Write "<table class=a2 cellpadding='1' cellspacing='1' width='100%' align=center>"
	response.Write "<tr class=a1 align=center><td>宠物主人</td><td>宠物名称</td><td>宠物等级</td><td>攻击力</td><td>防御力</td><td>状态</td></tr>"
	Set RsRank = Server.CreateObject("ADODB.Recordset")
    RsRank.open "SELECT * FROM [PetData] where OpenPk=1 ORDER BY PetExp DESC,PetLevel DESC",ConnPet,1,1
    
	Do while not RsRank.eof 
	.LetUserName=RsRank("UserName")
        .FormatPetData
	response.Write "<tr align=center class=a4><td>"
	response.Write RsRank("UserName")
	response.Write "</td><td>"
	response.Write .OwnerPetName
	response.Write "</td><td>"
	response.Write .OwnerPetLevel
	response.Write "</td><td>"
	response.Write .OwnerPetAtk
	response.Write "</td><td>"
	response.Write .OwnerPetDef
response.Write "</td><td>"
	response.Write .OwnerIfPetDead
	response.Write "</td></tr>"
	
	RsRank.MoveNext   
    Loop
    response.Write "</table>"
	%>
	</div>
	</td>
     </tr>
	 <tr><td>
	 
	 
                          <table width="100%" height="100%" border="0"  cellpadding="2" cellspacing="2">
                           <form action="?atkpet=go" method="post">
						    <tr> 
                              <td width="82%">攻击目标宠物(请写其主人名字)：
                              <input type="text" name="atkname"></td>
                              <td width="18%" align="left">
                                  <input type="submit" name="Submit" value="点到为止">                                  </td>
                            </tr>
                           </form>	 
                          </table>
            
	 
	 </td></tr>
   </table></td>
   
   
</tr></table></div>

<%
End With
Set ShowPetStatus=Nothing
ShowPetBottom
htmlend
%>