buypost.asp

来自「教师评估系统」· ASP 代码 · 共 32 行

<!-- #include file="Cls.asp" -->
<%
top "购买帖子",true
ChkUser
buyid=ChkNumeric(Request.Form("buyid"))
much=ChkNumeric(Request.Form("much"))
if buyid=0 Or much<=0 Then Error 3,"<li><a href="&HTMLEncode(Request.ServerVariables("HTTP_REFERER"))&">点这里返回主题</a></li>"
sql="select * from [WxThreads] where id="&buyid&""
Rs.open sql,Conn,1,3
if Rs.Eof Then Error 5,"<li>该主题不存在</li>"
Username=Rs("Username")
AddUserx=Conn.Execute("select Adduser from [WxThreads] where id="&buyid&"")(0)
if instr(AddUserx,CookieUserName)>0 then Error 4,"<li>您已购买过该帖子</li><li><a href="&Request.ServerVariables("HTTP_REFERER")&">点这里返回主题</a></li>"
sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Rs1.open sql,Conn,1,3
if Rs1("UserMoney")>=much then
Rs1("UserMoney")=Rs1("UserMoney")-much
else
Error 4,"<li>您的金币不足</li><li><a href="&Request.ServerVariables("HTTP_REFERER")&">点这里返回主题</a></li>"
end if
Rs1.update
Rs1.close
sql="select * from [WxUsers] where Username='"&Username&"'"
Rs1.open sql,Conn,1,3
Rs1("UserMoney")=Rs1("UserMoney")+much
Rs1.update
Rs1.close
Rs("AddUser")=CookieUserName&"|"&Rs("AddUser")
Rs.update
Rs.close
Succ "购买主题","<li><a href=Threads.asp?Tid="&buyid&">返回主题</a></li>","Threads.asp?Tid="&buyid
HtmlEnd%>