petsetup.asp

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

<!--#include file="PetConn.asp"-->
<Link href="Pet/CSS/EternalPet.css" rel=stylesheet>
<SCRIPT language="javascript">
function CheckElements(theForm) {
   for (i = 0; i < theForm.length; i++) 
   {
      if(theForm.elements[i].value==""){
	  alert("这里所有的数据都不能为空哦.");
	   
	   return false;}
	}
}
</SCRIPT>
<%
Set RsPet = Server.CreateObject("ADODB.Recordset")
RsPet.open "SELECT * FROM PetSetup",ConnPet,1,3
  
  PetMaster=RsPet("PetMaster")
  DEF_Pet_Author= RsPet(1)
  DEF_Pet_Ver= RsPet(2)
  DEF_Pet_namelong = RsPet(3)
  DEF_Pet_nameexpt = RsPet(4)
  DEF_Pet_Basichp = RsPet(5)
  DEF_Pet_Basicsp = RsPet(6)
  DEF_Pet_Basicsp2 = RsPet(7)
  DEF_Pet_BasichpMoney = RsPet(8)
  DEF_Pet_BasicspMoney = RsPet(9)
  DEF_Pet_BasicexpMoney = RsPet(10)
  DEF_Pet_atkMoney = RsPet(11)
  DEF_Pet_defMoney = RsPet(12)
  DEF_Pet_liveMoney = RsPet(13)
  DEF_Pet_Basicusehp = RsPet(14)
  DEF_Pet_Basicusesp = RsPet(15)
  DEF_Pet_Basicuseexp = RsPet(16)
  DEF_Pet_atkup = RsPet(17)
  DEF_Pet_defup = RsPet(18)
  DEF_Pet_Petpkhp = RsPet(19)
  DEF_Pet_Petpktime = RsPet(20)
  DEF_Pet_Petpklv = RsPet(21)
  DEF_Pet_changesexMoney = RsPet(22)
  DEF_Pet_PerSwordMoney = RsPet(23)
  DEF_Pet_PernecklaceMoney = RsPet(24)
  DEF_Pet_PerheadMoney = RsPet(25)
  DEF_Pet_PerbodyeMoney = RsPet(26) 
  DEF_Pet_PerfootMoney = RsPet(27)
  DEF_Pet_replytopicexp = RsPet(28)
  DEF_Pet_newtopicexp = RsPet(29)
  DEF_Pet_sendbattlemsg = RsPet(30)
  DEF_PointsName = RsPet(31)
  
RsPet.close
Set RsPet=nothing 

Function NumOnly
response.Write "OnKeyUp=this.value=this.value.replace(/\D/g,'')"
End Function

Function ShowPetTop(where)%>
<div class="mainnav">
<table border=0 width='100%' align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → <a href=PetHall.asp>宠物大厅</a> → <%=where%></td></tr></table>
<title><%=where%></title><br>
<%End Function

Sub ShowPetBottom%>

<table align="center">
<tr><td colspan="9"><hr></td></tr>

<tr>
  <td valign="top"><a class="PetButton"  href="PetHall.asp">宠物大厅</a></td>
  <td valign="top"><a class="PetButton"  href="PetMyPet.asp">我的宠物</a></td>
  <td valign="top"><a class="PetButton"  href="PetAffairs.asp">宠物事务所</a></td>
  <td valign="top"><a class="PetButton"  href="PetShop.asp">宠物商店</a></td>
  <td valign="top"><a class="PetButton"  href="PetPropertyShop.asp">道具&装备商店</a></td>
  <td valign="top"><a class="PetButton"  href="PetSkill.asp">技能商店</a></td>
  <td valign="top"><a class="PetButton"  href="PetPk.asp">宠物擂台</a></td>
 
  <td valign="top"><a class="PetButton"  href="PetMyPet.asp?action=showrank">宠物排名</a></td>
  <td valign="top"><a class="PetButton"  href="Petmx.asp">宠物冒险</a></td>
</tr>

<tr><td align="center" colspan=9>
宠物管理员:<%=PetMaster%> 程序设计：<%=DEF_Pet_Author%> 版本：<%=DEF_Pet_Ver%>
<img src=Pet/images/back.gif><a href='PetManage.asp'>后 台 管 理</a>
</tr>
<tr><td colspan="9"><hr></td></tr>
</table>

<%End Sub%></div>