usergmdjchk.asp

信息管理系统 管理页面:admin/index.asp 用户和密码都是admin

<!--#include file=conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=config.asp-->
<%
dim rs,sql,username,hb_all,a,b,c,d,hb
a=trim(request("a"))
b=trim(request("b"))
c=trim(request("c"))
d=trim(request("d"))
if request("a")="" or request("b")="" or request("c")="" or request("d")="" then
response.write "<li>参数错误！"
response.write "<meta http-equiv=refresh content=""1;URL=usergmdj.asp"">"
response.end
end if
username=request.cookies("ijob")("username")
hb_all=a*g_a+b*g_b+c*g_c+d*g_d
set rs=server.createobject("adodb.recordset")
sql = "select hb,jf,a,b,c,d from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if rs("hb")<hb_all then
response.write "<li>你的虚拟货币太少，无法购买这么多道具！"
response.write "<meta http-equiv=refresh content=""1;URL=usergmdj.asp"">"
response.end
else
rs("hb")=int(rs("hb")-hb_all)
rs("a")=rs("a")+int(a)
rs("b")=rs("b")+int(b)
rs("c")=rs("c")+int(c)
rs("d")=rs("d")+int(d)
rs("jf")=int(rs("jf")+hb_all/jf_4)
rs.update
end if
response.write "<li>购买道具成功，你的积分同时增加！"
response.write "<meta http-equiv=refresh content=""1;URL=user.asp"">"
rs.close
set rs=nothing
closedb
%>