<!--#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*smk then
response.write"您的"&getcent&"不足"& sl*smk &""
else

                sql="update users set myjb=myjb-"& sl*smk &",cwsmk=cwsmk+"& sl &"  where [id] ="&myid 
			conn.execute sql
response.write"购买成功.您购买了"& sl &"张宠物生命卡.花费了"& sl*smk &""&getcent&"!请到您的宠物储藏柜查看!"



end if
end if
	conn.close
	set rs=nothing
	set conn=nothing
%>
<!--#include file="fanhui.asp"-->






<%Call headsay()%>
