class_petmanage.asp

海洋分类信网程序是由海洋城市设计工作室基于ASP+Access/Mssql技术开发的分类信息程序

Public Sub DelPet
PetId=int(request("PetId"))
ConnPet.ExeCute("delete from [PetData] where id="&petid&"")
message="<li>成功删除该用户的宠物.<li><a href='PetManage.asp'>返回宠物管理</a>"
succeed(message&"<meta http-equiv=refresh content=3;url='PetManage.asp'")
End Sub

'删除pk短消息
Public Sub DelPkMsg
conn.execute("delete from [BBSXP_Messages] where instr(Content,'【宠物PK消息】')>0")
response.write "<script>alert('成功删除所有宠物PK短消息.')</script>"
ShowPkMsg
End Sub

'修改宠物类别
Public Sub GoEditSort
Set Pet=New SQLString
  With Pet
  .Clear
  .TableName="PetSort"
  .Where="PetId="&request.form("PetId")
  .SQLType=1
  
  .AddField "PetName",request.Form("PetName")
  .AddField "PetFolder",request.Form("PetFolder")
  .AddField "PetDepartment",request.Form("PetDepartment")
  .AddField "PetAttribute",request.Form("PetAttribute")
  .AddField "PetDescription",request.Form("PetDescription")
  .AddField "PetDefaultAtk",request.Form("PetDefaultAtk")
  .AddField "PetDefaultDef",request.Form("PetDefaultDef")
  .AddField "PetPrice",request.Form("PetPrice")
  ConnPet.ExeCute(.ReturnSQL)
  End With
  Set Pet=Nothing

message="<li>成功修改该宠物信息.<li><a href='PetManage.asp'>返回宠物管理</a>"
succeed(message&"<meta http-equiv=refresh content=3;url='PetManage.asp'")
End Sub


'添加宠物类别
Public Sub GoAddSort
Set Pet=New SQLString
  With Pet
  .Clear
  .TableName="PetSort"
  .SQLType=0
  
  .AddField "PetName",request.Form("PetName")
  .AddField "PetFolder",request.Form("PetFolder")
  .AddField "PetDepartment",request.Form("PetDepartment")
  .AddField "PetAttribute",request.Form("PetAttribute")
  .AddField "PetDescription",request.Form("PetDescription")
  .AddField "PetDefaultAtk",request.Form("PetDefaultAtk")
  .AddField "PetDefaultDef",request.Form("PetDefaultDef")
  .AddField "PetPrice",request.Form("PetPrice")
  ConnPet.ExeCute(.ReturnSQL)
  End With
  Set Pet=Nothing

message="<li>成功添加该宠物类别.<li><a href='PetManage.asp'>返回宠物管理</a>"
succeed(message&"<meta http-equiv=refresh content=3;url='PetManage.asp'")
End Sub


'显示短消息管理
Sub ShowPkMsg
%>
<table width=100% border="1" align="center" cellspacing=0 cellpadding=2 class=a3>
<tr align=center>
<td>论坛共有 <b><%=conn.execute("Select count(id) from [BBSXP_Messages] where instr(Content,'【宠物PK消息】')=1")(0)%> </b> 条竞技短消息</td>
</tr>
<tr align=center>
<td>
<input type="button" value="删除所有竞技短消息" name="title"  onclick="javascript:window.location='PetManage.asp?action=DelPkMsg';">
</td>
</tr>
</table>
<%End Sub

'显示用户宠物
Sub ShowUserPet
%>

<table width=100% border="1" cellspacing=0 cellpadding=2 bordercolorlight=#c0c0c0 

bordercolordark=#FFFFFF class=a3>
<tr><td align="center" class=a3>点击宠物名字查看详细
</td></tr>
</table>   
                                   
<table width=100% border="1" cellspacing=0 cellpadding=2 bordercolorlight=#c0c0c0 

bordercolordark=#FFFFFF class=a3>
<tr align=center>
<td width='20%'>宠物主人</td>
<td width='20%'>宠物名字</td>
<td width='10%'>宠物等级</td>
<td width='10%'>宠物攻击力</td>
<td width='10%'>宠物防御力</td>
<td width='15%'>相关状态</td>
<td width='15%'>相关操作</td>
</tr>


<%Set RsPet = server.createobject("adodb.recordset")
RsPet.open "Select * From [PetData] Order By PetLevel desc",ConnPet,1,1
if RsPet.eof then
Response.write "<tr><td colspan='7' align='center'>论坛无人领养宠物</td></tr>"
else
    do while not RsPet.eof
    Level1=int(RsPet("Petlevel")/2)
    PetAtk=RsPet("PetAtk")+RsPet("item1")+RsPet("item2")+2+level1
    PetDef=RsPet("PetDef")+RsPet("item3")+RsPet("item4")+RsPet("item5")+3+level1
%>                                          
<tr align="center">
<td><a href="Profile.asp?UserName=<%=RsPet("UserName")%>"><%=RsPet("UserName")%></a></td>
<td><a href="PetMyPet.asp?UserName=<%=RsPet("UserName")%>"><%=RsPet("MyPet")%></a></td>
<td><%=RsPet("Petlevel")%></td>
<td><%=PetAtk%></td>
<td><%=PetDef%></td>
<td>
<%
if RsPet("PetHp")<1 or RsPet("PetSp")<1 then 
response.write "死亡"
else
response.write "生存"
end if
%>
</td>
<td><a href="?Action=DelPet&PetId=<%=RsPet("id")%>" onClick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">删除</a></td>

<%                          
RsPet.movenext                                          
loop  

response.Write "</tr></table>"
                                       
End If
End Sub

'显示现有宠物类别
Sub ShowPetSort

response.write "<table width='100%' cellpadding=5 cellspacing=1 class=a2><tr class=a3>"
response.write "<form action='PetShop.asp' name='petname' mtehod='post'>"

PetSortSql="SELECT * FROM [PetSort] Order By PetID asc"
Set RsPetSort=ConnPet.Execute(PetSortSql)
Do while not RsPetSort.EOF
PetID=RsPetSort(0)
PetName=RsPetSort(1)
PetFolder=RsPetSort(2)
PetDepartment=RsPetSort(3)
PetAttribute=RsPetSort(4)
PetDescription=RsPetSort(5)
PetDefaultAtk=RsPetSort(6)
PetDefaultDef=RsPetSort(7)
PetPrice=RsPetSort(8)

If PetDefaultAtk=0 then PetDefaultAtk="随机"
If PetDefaultDef=0 then PetDefaultDef="随机"
i=i+1

response.write "<td align='center' height=120 valign=bottom>"
response.write "<img src='Pet/Images/Sort/"&PetFolder&"/"&PetFolder&".gif'>"
response.write "<br /><b>"&PetName&"("&PetDepartment&")</b><br />"
response.write "<hr><a href='?Action=EditSort&ID="&PetID&"' class='petbutton'>编&nbsp;&nbsp;辑</a>"
response.write "&nbsp;&nbsp;<a href='?Action=DelSort&ID="&PetID&"' class='petbutton' onClick='javascript:{if(confirm(""确认要删除吗？"")){return true;}return false;}'>删&nbsp;&nbsp;除</a>"
response.write "</td>"

if (i mod 6)=0 then response.write "</tr><tr class=a3>"
response.write "</form>"
RsPetSort.MoveNext
Loop
response.Write "<tr class=a3><td colspan=7 align=right height=30><a href='?Action=AddSort' class='petbutton'>添加新的宠物类别</a></td></tr>" 
response.write "</tr></table>"


Set RsPetSort=Nothing
End Sub

'编辑宠物类别
Sub EditSort
PetID=int(request("id"))
response.write "<form action='?Action=GoEditSort' method=post>"
response.write "<table width=100% border=0 align=center cellspacing=1 cellpadding=2 class=a2>"
response.write "<tr align=center class=a1><td>宠物名</td><td>图片文件夹</td><td>系别</td><td>属性</td><td>描述</td><td>攻击力</td><td>防御力</td><td>售价</td></tr>"
response.write "<tr align=center class=a3>"
Set RsPetSort=ConnPet.Execute("Select * From [PetSort] where PetID="&PetID&"")
response.write "<td><input name=PetName value="&RsPetSort(1)&" size=12></td>"
response.write "<td><input name=PetFolder value="&RsPetSort(2)&" size=8></td>"
response.write "<td><input name=PetDepartment value="&RsPetSort(3)&" size=6></td>"
response.write "<td><input name=PetAttribute value="&RsPetSort(4)&" size=4></td>"
response.write "<td><input name=PetDescription value="&RsPetSort(5)&" size=44></td>"
response.write "<td><input name=PetDefaultAtk value="&RsPetSort(6)&" size=2 "
NumOnly
response.write "></td>"
response.write "<td><input name=PetDefaultDef value="&RsPetSort(7)&" size=2 "
NumOnly
response.write "></td>"
response.write "<td><input name=PetPrice value="&RsPetSort(8)&" size=4 "
NumOnly
response.write "></td>"
response.write "</tr>"
response.write "<tr class=a3><td colspan=7>攻击力和防御力添0为随机(1-10)</td><td colspan=2 align=right>"
response.write "<input type=hidden name=PetID value="&PetID&"><input type=submit value='确认修改' OnClick='return CheckElements(this.form)'></td></tr></table>"
response.write "</form>"
End Sub

Sub AddSort

response.write "<form action='?Action=GoAddSort' method=post>"
response.write "<table width=100% border=0 align=center cellspacing=1 cellpadding=2 class=a2>"
response.write "<tr align=center class=a1><td>宠物名</td><td>图片文件夹</td><td>系别</td><td>属性</td><td>描述</td><td>攻击力</td><td>防御力</td><td>售价</td></tr>"
response.write "<tr align=center class=a3>"
response.write "<td><input name=PetName  size=12></td>"
response.write "<td><input name=PetFolder  size=8></td>"
response.write "<td><input name=PetDepartment  size=6></td>"
response.write "<td><input name=PetAttribute  size=4></td>"
response.write "<td><input name=PetDescription  size=44></td>"
response.write "<td><input name=PetDefaultAtk  size=2 "
NumOnly
response.write "></td>"
response.write "<td><input name=PetDefaultDef size=2 "
NumOnly
response.write "></td>"
response.write "<td><input name=PetPrice size=4 "
NumOnly
response.write "></td>"
response.write "</tr>"
response.write "<tr class=a3><td colspan=7>攻击力和防御力添0为随机(1-10)</td><td colspan=2 align=right>"
response.write "<input type=submit value='确认添加' OnClick='return CheckElements(this.form)'></td></tr></table>"
response.write "</form>"
End Sub

End class 
%>