<!--#include file="Setup.asp"-->
<!--#include file="Pet/PetSetup.asp"-->
<!--#include file="Pet/Inc/Class_PetStatus.asp"-->
<%
if CookieUserName=empty then error("<li>您还未<a href=login.asp>登录</a>社区")


Set ShowPetStatus=New PetStatus
with ShowPetStatus

.LetUserName=Request("UserName")
.FormatPetData
top



select case lcase(request("action"))
    case "showrank"
       .ShowRank
    case "usehp"
       .UseHp
    case "usesp"
       .UseSp
    case "useexp"
       .UseExp
    case "useatk"
       .UseAtk
    case "usedef"
       .UseDef
    case "uselive"
       .UseLive
    case "useskill"
       .UseSkillForm
       
end select

ShowPetTop("我的宠物")
%>

<br>
<%if Request("UserName")="" then

%>
<div class="mainnav">
<table width=100%  border="0" cellpadding="5" cellspacing="1" class=a2>
<tr class=a3>

<td width="295" align="center"><%.ShowPetEquip%></td>
<td width="107" align="center"><%.ShowPetFigure%></td>
<td width="549" align="center" rowspan="2"><%.ShowPetItem%></td>
</tr>

<tr class=a3>
  <td colspan="2" align="center"><%.ShowPetInfo%></td>
  </tr>
  
<tr class=a3><td colspan="3" align="center" ><%.ShowPetSkills%></td>
</tr>
</table>
<%Else
%>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="3">
<tr>

<td align=right><%.ShowPetEquip%></td>
<td align=left><%.ShowPetFigure%><hr width=100><a href=PetPk.asp><img src=Pet/Images/pk.gif alt=同它展开PK border="0"/></a></td>
</tr>
<tr>
<td colspan="2" align=center><%.ShowPetInfo%></td>
</tr>
</table></div>

<%
end if

End with
Set ShowPetStatus=Nothing
ShowPetBottom
htmlend
%>