<!--#include file="setup.asp"-->
<!--#include file="pet_conn.asp"-->
<!--#include file="pet_config.asp"-->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>论坛")

    dim money,smoney,saveday,allmoney,time1,time2,daikuang,dkdu,daiday,sucmsg
    dim Form_userphoto,Form_FaceUrl,Form_FaceWidth,Form_FaceHeight
    
    
	money=conn.execute("select money from [user] where username='"&Request.Cookies("username")&"'")(0)
      	
 
   
     
       if request("action") = "buy" then
     sql="SELECT * FROM mypetdata where username='"&Request.Cookies("username")&"'"  
       
        rs.open sql,conn_pet,1,3
		if not rs.eof then
            error("你已经有一个宠物了，做人不要三心两意啊~")
            
        elseif request("petname") = "" then
                error("你还没有选定你要的宝宝啊，请重新选择")
                elseif money < DEF_PET_eggmoney then
                    error("你没有足够的钱买宠物") 
       else
                    dim pettoday,pets,eggmoney,pethp,petsp,petatk,petdef
                    
                    Randomize '初始化随机数生成器
                    
                    pettoday = date()
                    pets = Int((2 * Rnd) + 1)
                    eggmoney = DEF_PET_eggmoney 
                    pethp = DEF_PET_basichp
                    petsp = DEF_PET_basicsp
                    petatk = Int((10 * Rnd) + 1)
                    petdef = Int((10 * Rnd) + 1)
        
                     if request("petname") = 1 then
					Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
 rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>泡泡龙</a>"
 rs.update
			
		
                        sql = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '泡泡龙', 'dragon', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '火', '"&pettoday&"', '1', '1', '0')"
                        'response.write sql : response.end
                        conn_pet.ExeCute(SQL)
                       message="<li>你已经拥有一个一个泡泡龙宝宝，一定要好好照顾他/她啊"
succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")
						
					
elseif request("petname") = 2 then
                       Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
 rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>猫尾球</a>"
 rs.update

                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '猫尾球', 'bst', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '土', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                        message="<li>你已经拥有一个一个猫尾球宝宝，一定要好好照顾他/她啊"
succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")

                    elseif request("petname") = 3 then
                        Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
 rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>天使球</a>"
 rs.update
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '天使球', 'bird', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '水', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                        message="<li>你已经拥有一个一个天使球宝宝，一定要好好照顾他/她啊"
						succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")

                    elseif request("petname") = 4 then
                        Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
  rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>苹果宝宝</a>"
 rs.update
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '苹果宝宝', 'green', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '木', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                         message="<li>你已经拥有一个一个苹果宝宝，一定要好好照顾他/她啊"
						 succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")


                    elseif request("petname") = 5 then
                       Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
   rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>幽灵球</a>"
 rs.update
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '幽灵球', 'devil', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '金', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                        message="<li>你已经拥有一个一个幽灵球宝宝，一定要好好照顾他/她啊"
						succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")

''''''''''''''''''''''新增宝宝''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 6 then
                       Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
 rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>琥珀球</a>"
 rs.update

                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '琥珀球', 'hupo', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '土', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                        message="<li>你已经拥有了一个[琥珀球]宝宝，一定要好好照顾他/她啊"
succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 7 then
                       Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
 rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>圆圆</a>"
 rs.update

                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '圆圆', 'oo', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '机械', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                        message="<li>你已经拥有了一个[圆圆]宝宝，一定要好好照顾他/她啊"
succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 8 then
                       Set rs = Server.CreateObject("ADODB.Recordset")
					sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
 rs("money")=rs("money")-eggmoney
 rs("mypet")="<a href=petview.asp?username="&Request.Cookies("username")&" target=_blank>灵球</a>"
 rs.update

                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '灵球', 'lqq', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '无', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                        message="<li>你已经拥有了一个[灵球]宝宝，一定要好好照顾他/她啊"
succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


                    end if
                end if
        end if
%>
<title>宠物商店</title>

<table border=0 width=<%=dkuan%> 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="petcenter.asp">宠物中心</a></td>
</tr>
</table><br>
   

<form action=petshop.asp name="petname" mtehod=post>

          <table width=<%=dkuan%> align=center border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="28%">
				<table width="90%"  border="0" align="center" cellpadding="3" cellspacing="3">
                      <tr>
                        <td><div align="center"></div>
<!-- #include file=petnav.asp --></td>
                      </tr>
                    </table>
                  </div>
                <br>
                <table width="79%"  border="0" align="center" cellpadding="3" cellspacing="3">
                  <tr> 
                    <td width="100%"> <div align="center"><img src="images/pet/25.gif"></div>
                      </td>
                  </tr>
                </table> 
                <div align="right"></div></td>
              <td width="72%"><table width="95%"  border="0" align="center" cellpadding="3" cellspacing="1" class=a2>
                  <tr class=a3> 
                    <td width="24%"><div align="center">宠物名称</div></td>
                    <td width="58%"><div align="center">宠物介绍</div></td>
                    <td width="18%"><div align="center">购买宠物</div></td>
                  </tr>
                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/dragon.gif" width="45" height="46"><br>
                        泡泡龙（龙系）</div></td>
                    <td><font color=green>来自东方的一条龙，最终形态将是十分帅气人龙</font><br>
                      宠物属性：火 攻击力：随机 防御力：随机<br><font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font><br> </td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="1">
                        购买</div></td>
                  </tr>
                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/bst.gif" width="45" height="42"><br>
                        猫尾球（兽系） </div></td>
                    <td><font color=green>可爱的兽系宠物，最终形态是黑暗守护犬</font><br>
                      宠物属性：土 攻击力：随机 防御力：随机<br><font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="2">
                        购买</div></td>
                  </tr>
                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/bird.gif" width="45" height="44"><br>
                        天使球（鸟系） </div></td>
                    <td><font color=green>小鸟每个人都喜欢，最终形态是大红鹰</font><br>
                      宠物属性：水 攻击力：随机 防御力：随机<br><font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="3">
                        购买</div></td>
                  </tr>
                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/green.gif" width="45" height="46"><br>
                        苹果宝宝（植物系） </div></td>
                    <td><font color=green>谁也没有想到植物有如此强大的能力，最终形态是节节高</font><br>
                      宠物属性：木 攻击力：随机 防御力：随机<br><font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="4">
                        购买</div></td>
                  </tr>
                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/devil.gif" width="45" height="46"><br>
                        幽灵球（恶魔系） </div></td>
                    <td><font color=green>一生下来就有神秘色彩的幽灵球，最终形态是巨灵恶魔</font><br>
                      宠物属性：金 攻击力：随机 防御力：随机<br><font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="5">
                        购买</div></td>
                  </tr>
                  
                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/hupo.gif" width="45" height="46"><br>
                        琥珀球（昆虫系） </div></td>
                    <td><font color=green>在森林中生长的一种野性怪物，最终形态是瓦斯蛋</font><br>
宠物属性：土 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="6">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/oo.gif" width="45" height="46"><br>
                        圆圆（机械系） </div></td>
                    <td><font color=green>自然的力量所造，进化相对较少，最终形态是幽弗
</font><br>
宠物属性：金 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="7">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/lqq.gif" width="45" height="46"><br>
                        灵秋（神秘系） </div></td>
                    <td><font color=green>一种神秘且怪异的宠物，进化较少，最终形态是怪异蛋
</font><br>
宠物属性：无 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="8">
                        购买</div></td></tr>
                        
                        
                  <tr class=a3> 
                    <td colspan="3"><div align="center"> 
                        <input type="hidden" name="action" value="buy">
                        <input name="submit" type="submit" value="购买">
                      </div></td>
                  </tr>
                </table></td>
            </tr>
          </table> 
          </form>
<%
htmlend
%>
