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

if not instr("|"&PetMaster&"|","|"&CookieUserName&"|")>0 then
error("<li>您不是指定的宠物中心管理员")
end if

TOP
ShowPetTop("宠物管理")%>
<div class="mainnav">
<table width=100% border="0" cellspacing="2" cellpadding="2" align="center">
<tr><td>
<table align="right"><tr>
<td><a href="?" class=petbutton>宠物参数设置</a></td>
<td><a href="?Action=UserPet" class=petbutton>用户宠物管理</a></td>
<td><a href="?Action=PkMsg" class=petbutton>竞技消息删除</a></td>
<td><a href="?Action=PetSort" class=petbutton>管理宠物类别</a></td>
</tr></table>
</tr></td></table></div>
<%

Action = Request("Action")

Set PetManage=New PetManageClass
With PetManage

Select Case Action

Case ""
.ShowPetManage
Case "Modify"
.Modify
Case "DelSort"
.DelSort
Case "AddSort"
.AddSort
Case "GoAddSort"
.GoAddSort
Case "EditSort"
.EditSort
Case "GoEditSort"
.GoEditSort
Case "DelPet"
.DelPet        
Case "DelPkMsg"
.DelPkMsg
Case "PetSort"
.ShowPetSort
Case "PkMsg"
.ShowPkMsg
Case "UserPet"
.ShowUserPet

End Select

Set Pet=Nothing
End With

ShowPetBottom
htmlend%>
