<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%Call head()
Call saycarda("领养宠成功")
dds=request("dds")
if dds="lxi" then
if myjb<clng(longjg) then call error("您的龙币不足，所以不能进行此次操作~~~")
sql="update users set myjb=myjb-"&longjg&",cw=1,cwsm=100,cwrq=100,cwxq=100,cwqg=100,cwzs=100,cwzt=0 where [id] ="&myid 
conn.execute sql
Response.write "恭喜您!领养龙系宠物成功!"&getcent&"-"&longjg&""
end if
if dds="jlx" then
if myjb<clng(saytkjg) then call error("您的龙币不足，所以不能进行此次操作~~~")
sql="update users set myjb=myjb-"&saytkjg&",cw=2,cwsm=100,cwrq=100,cwxq=100,cwqg=100,cwzs=100,cwzt=0 where [id] ="&myid 
conn.execute sql
Response.write "恭喜您!领养精灵系宠物成功!"&getcent&"-"&saytkjg&""
end if
if dds="nnx" then
if myjb<clng(niaojg) then call error("您的龙币不足，所以不能进行此次操作~~~")
sql="update users set myjb=myjb-"&niaojg&",cw=3,cwsm=100,cwrq=100,cwxq=100,cwqg=100,cwzs=100,cwzt=0 where [id] ="&myid 
conn.execute sql
Response.write "恭喜您!领养鸟系宠物成功!"&getcent&"-"&niaojg&""
end if
if dds="mmx" then
if myjb<clng(maojg) then call error("您的龙币不足，所以不能进行此次操作~~~")
sql="update users set myjb=myjb-"&maojg&",cw=4,cwsm=100,cwrq=100,cwxq=100,cwqg=100,cwzs=100,cwzt=0 where [id] ="&myid 
conn.execute sql
Response.write "恭喜您!领养猫系宠物成功!"&getcent&"-"&maojg&""
end if
if dds="xmx" then
if myjb<clng(xiongjg) then call error("您的龙币不足，所以不能进行此次操作~~~")
sql="update users set myjb=myjb-"&xiongjg&",cw=5,cwsm=100,cwrq=100,cwxq=100,cwqg=100,cwzs=100,cwzt=0 where [id] ="&myid 
conn.execute sql
Response.write "恭喜您!领养熊猫系宠物成功!"&getcent&"-"&xiongjg&""
end if
if dds="qwx" then
if myjb<clng(qingwajg) then call error("您的龙币不足，所以不能进行此次操作~~~")
sql="update users set myjb=myjb-"&qingwajg&",cw=6,cwsm=100,cwrq=100,cwxq=100,cwqg=100,cwzs=100,cwzt=0 where [id] ="&myid 
conn.execute sql
Response.write "恭喜您!领养青蛙系宠物成功!"&getcent&"-"&qingwajg&""
end if
if dds="tzx" then
if myjb<clng(tujg) then call error("您的龙币不足，所以不能进行此次操作~~~")
sql="update users set myjb=myjb-"&tujg&",cw=7,cwsm=100,cwrq=100,cwxq=100,cwqg=100,cwzs=100,cwzt=0 where [id] ="&myid 
conn.execute sql
Response.write "恭喜您!领养兔子系宠物成功!"&getcent&"-"&tujg&""
end if
conn.close
set rs=nothing
set conn=nothing

%>
<!--#include file="fanhui.asp"-->
<%Call headsay()%>





