<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%Call head()
Call saycarda("还魂丹购买")

dim sl


sl=request.form("sl")


if pz=0 then
response.write"你暂时还没有领养宠物哦`~"
else

if myjb<sl*hhd then
response.write"您的"&getcent&"不足"& sl*3000 &""
else
if cwhh>0 then
                sql="update users set myjb=myjb-"& sl*3000 &",cwhh=cwhh+"& sl &"  where [id] ="&myid 
			conn.execute sql
response.write"购买成功.您购买了"& sl &"个还魂丹.花费了"& sl*hhd &""&getcent&"!请到您的宠物储藏柜查看!"
else

                sql="update users set myjb=myjb-"& sl*3000 &",cwhh="& sl &"  where [id] ="&myid 
			conn.execute sql
response.write"购买成功.您购买了"& sl &"个还魂丹.花费了"& sl*hhd &""&getcent&"!请到您的宠物储藏柜查看!"

end if
end if
end if
	conn.close
	set rs=nothing
	set conn=nothing
%>
<br/>--------<br/><a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>







<%Call headsay()%>
