class_petmanage.asp

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

<!--#include file="Class_SQL.asp"-->

<% 
Class PetManageClass

Sub ShowPetManage%>
<table width=100% align="center" border="1" cellspacing=0 cellpadding=2 bordercolorlight=#c0c0c0 bordercolordark=#FFFFFF class=a3>
<tr align=center>
<td width='32%'>设置名称</td>
<td width='30%'>参数</td>
<td width='38%'>相关说明</td>
</tr>
<form action='PetManage.asp?Action=Modify' method=post>

<tr>
<td>宠物管理员：</td>
<td><input type=text name="PetMaster" value='<%=PetMaster%>' size=38 maxlength=50>
<td>设定宠物管理员,可以设定多人,使用"|"隔开</td>
</tr>

<tr>
<td>宠物名字长度：</td>
<td><input type=text name="DEF_PET_namelong" value='<%=DEF_PET_namelong%>' size=38 maxlength=50 <%NumOnly%>>
<td>用户自定义宠物的名字长度</td>
</tr>
<tr>
<td>宠物名字过滤：</td>
<td><input type=text name="DEF_PET_nameexpt" value='<%=DEF_PET_nameexpt%>' size=38 maxlength=50></td>
<td>不允许的宠物名字,使用"|"隔开</td>
</tr>
<tr>
<td>宠物的体力值：</td>
<td><input type=text name="DEF_PET_basichp" value='<%=DEF_PET_basichp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议100</td>
</tr>
<tr>
<td>宠物的饥饿值：</td>
<td><input type=text name="DEF_PET_basicsp" value='<%=DEF_PET_basicsp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议10000</td>
</tr>
<tr>
<td>每天宠物消耗饥饿值：</td>
<td><input type=text name="DEF_PET_basicsp2" value='<%=DEF_PET_basicsp2%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议500，注意不要超过SP的基本量</td>
</tr>

<tr>
<td>恢复宠物体力药水的价格：</td>
<td><input type=text name="DEF_PET_basichpmoney" value='<%=DEF_PET_basichpmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>，建议1000</td>
</tr>
<tr>
<td>恢复宠物饥饿值药水的价格：</td>
<td><input type=text name="DEF_PET_basicspmoney" value='<%=DEF_PET_basicspmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>，建议500</td>
</tr>
<tr>
<td>增加宠物经验值药水的价格：</td>
<td><input type=text name="DEF_PET_basicexpmoney" value='<%=DEF_PET_basicexpmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>，建议价格设置贵一些</td>
</tr>
<tr>
<td>对武器施法的卷轴的价格：</td>
<td><input type=text name="DEF_PET_atkmoney" value='<%=DEF_PET_atkmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>对盔甲施法的卷轴的价格：</td>
<td><input type=text name="DEF_PET_defmoney" value='<%=DEF_PET_defmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>魂之精的价格：</td>
<td><input type=text name="DEF_PET_livemoney" value='<%=DEF_PET_livemoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>使用一次增加宠物体力的数量：</td>
<td><input type=text name="DEF_PET_basicusehp" value='<%=DEF_PET_basicusehp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议100</td>
</tr>
<tr>
<td>使用一次增加宠物饥饿的数量：</td>
<td><input type=text name="DEF_PET_basicusesp" value='<%=DEF_PET_basicusesp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议100</td>
</tr>
<tr>
<td>使用一次增加宠物经验的数量：</td>
<td><input type=text name="DEF_PET_basicuseexp" value='<%=DEF_PET_basicuseexp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议50数量不要太大</td>
</tr>
<tr>
<td>使用对武器施法的卷轴的增加量：</td>
<td><input type=text name="DEF_PET_atkup" value='<%=DEF_PET_atkup%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议不要超过5</td>
</tr>
<tr>
<td>使用对盔甲施法的卷轴的增加量：</td>
<td><input type=text name="DEF_PET_defup" value='<%=DEF_PET_defup%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>建议不要超过5</td>
</tr>
<tr>
<td>PK时当一方宠物HP低于多少便停止：</td>
<td><input type=text name="DEF_PET_petpkhp" value='<%=DEF_PET_petpkhp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>如果设置为1则直到一方死亡PK才告结束，如果想要一方死亡PK才结束，请设置为1</td>
</tr>
<tr>
<td>宠物PK时的攻击间隔：</td>
<td><input type=text name="DEF_PET_petpktime" value='<%=DEF_PET_petpktime%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>为了防止恶意刷新请设置100以上,以秒为单位</td>
</tr>
<tr>
<td>宠物之间PK级别间隔：</td>
<td><input type=text name="DEF_PET_petpklv" value='<%=DEF_PET_petpklv%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>宠物之间PK时候当两个宠物级别低于这个值时，不能PK建议设置10以上</td>
</tr>
<tr>
<td>宠物变性手术价格：</td>
<td><input type=text name="DEF_PET_changesexmoney" value='<%=DEF_PET_changesexmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>每1点攻击力武器价格：</td>
<td><input type=text name="DEF_Pet_PerSwordMoney" value='<%=DEF_Pet_PerSwordMoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>每1点攻击力项链价格：</td>
<td><input type=text name="DEF_PET_pernecklacemoney" value='<%=DEF_PET_pernecklacemoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>每1点防御力头盔价格：</td>
<td><input type=text name="DEF_PET_perheadmoney" value='<%=DEF_PET_perheadmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>每1点防御力盔甲价格：</td>
<td><input type=text name="DEF_PET_perbodyemoney" value='<%=DEF_PET_perbodyemoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>每1点防御力鞋子价格：</td>
<td><input type=text name="DEF_PET_perfootmoney" value='<%=DEF_PET_perfootmoney%>' size=38 maxlength=50 <%NumOnly%>></td>
<td><%=DEF_PointsName%>　</td>
</tr>
<tr>
<td>回复主题增加经验值：</td>
<td><input type=text name="DEF_PET_replytopicexp" value='<%=DEF_PET_replytopicexp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>EXP</td>
</tr>
<tr>
<td>发表主题增加经验值：</td>
<td><input type=text name="DEF_PET_newtopicexp" value='<%=DEF_PET_newtopicexp%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>EXP</td>
</tr>
<tr>
<td>是否发送攻击短消息：</td>
<td><input type=text name="DEF_PET_sendbattlemsg" value='<%=DEF_PET_sendbattlemsg%>' size=38 maxlength=50 <%NumOnly%>></td>
<td>1为发送，0为不发送</td>
</tr>
<tr>
<td>论坛货币名称：</td>
<td><input type=text name="DEF_PointsName" value='<%=DEF_PointsName%>' size=38 maxlength=50></td>
<td>默认设置为"永恒币"</td>
</tr>

<tr>
<td colspan="3">
注意：以上宠物名字过滤字符使用"|"隔开，论坛货币为文本字符,其它各项必须填写数字。
</td>
</tr>                          
<tr>
<td colspan="3" align="center">

<input type="submit" value="提交修改" OnClick="return CheckElements(this.form)">  
</td>
</tr>                          
</form>
</table>
<%
End Sub


Public Sub Modify
Set Pet=New SQLString
  With Pet
  .Clear
  .TableName="PetSetup"
  .SQLType=1
  
  .AddField "PetMaster",request("PetMaster")
  .AddField "DEF_PET_namelong",request("DEF_PET_namelong")
  .AddField "DEF_PET_nameexpt",request("DEF_PET_nameexpt")
  .AddField "DEF_PET_Basichp",request("DEF_PET_Basichp")
  .AddField "DEF_PET_Basicsp",request("DEF_PET_Basicsp")
  .AddField "DEF_PET_Basicsp2",request("DEF_PET_Basicsp2")
  .AddField "DEF_PET_Basichpmoney",request("DEF_PET_Basichpmoney")
  .AddField "DEF_PET_Basicspmoney",request("DEF_PET_Basicspmoney")
  .AddField "DEF_PET_Basicexpmoney",request("DEF_PET_Basicexpmoney")
  .AddField "DEF_PET_atkmoney",request("DEF_PET_atkmoney")
  .AddField "DEF_PET_defmoney",request("DEF_PET_defmoney")
  .AddField "DEF_PET_livemoney",request("DEF_PET_livemoney")
  .AddField "DEF_PET_Basicusehp",request("DEF_PET_Basicusehp")
  .AddField "DEF_PET_Basicusesp",request("DEF_PET_Basicusesp")
  .AddField "DEF_PET_Basicuseexp",request("DEF_PET_Basicuseexp")
  .AddField "DEF_PET_atkup",request("DEF_PET_atkup")
  .AddField "DEF_PET_defup",request("DEF_PET_defup")
  .AddField "DEF_PET_petpkhp",request("DEF_PET_petpkhp")
  .AddField "DEF_PET_petpktime",request("DEF_PET_petpktime")
  .AddField "DEF_PET_petpklv",request("DEF_PET_petpklv")
  .AddField "DEF_PET_changesexmoney",request("DEF_PET_changesexmoney")
  .AddField "DEF_Pet_PerSwordMoney",request("DEF_Pet_PerSwordMoney")
  .AddField "DEF_PET_pernecklacemoney",request("DEF_PET_pernecklacemoney")
  .AddField "DEF_PET_perheadmoney",request("DEF_PET_perheadmoney")
  .AddField "DEF_PET_perbodyemoney",request("DEF_PET_perbodyemoney") 
  .AddField "DEF_PET_perfootmoney",request("DEF_PET_perfootmoney")
  .AddField "DEF_PET_replytopicexp",request("DEF_PET_replytopicexp")
  .AddField "DEF_PET_newtopicexp",request("DEF_PET_newtopicexp")
  .AddField "DEF_PET_sendbattlemsg",request("DEF_PET_sendbattlemsg")
  .AddField "DEF_PointsName",request("DEF_PointsName")
  
  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 DelSort
ConnPet.execute("delete from [PetSort] where PetID="&request("id")&"")
message="<li>成功删除该宠物.<li><a href='PetManage.asp'>返回宠物管理</a>"
succeed(message&"<meta http-equiv=refresh content=3;url='PetManage.asp'")
End Sub

'删除宠物类别