📄 save_buy.asp
字号:
<!--#include file="conn.asp"-->
<% id=request.querystring("id")
jiage=request("jiage")
body=request("body")
body1=request("body1")
name=request("name")
gamename=request("gamename")
gamequ=request("gamequ")
if session("userid")="" then
response.write"<script>alert('非法操作！');</Script>"
response.write"<script Language=Javascript>location.href = 'index.asp';</script>"
response.end
end if
%>
<% userid=session("userid")
sql="select * from users where userid='"&userid&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM card where id="&id
rs3.open sql, conn, 1, 3
if rs3("oklook")=2 then
response.write"<script>alert('该卡已被购买,交易失败！');</Script>"
response.write"<script Language=Javascript>location.href = 'cuser.asp';</script>"
response.end
end if
qian=trim(rs("qian"))
if cint(qian) < cint(jiage) then
response.write"<script>alert('帐户余额不足，交易失败！');</Script>"
response.write"<script Language=Javascript>location.href = 'cuser.asp';</script>"
response.end
else
sql1="select * from users where userid='"&userid&"' "
set rs2= Server.CreateObject("ADODB.RecordSet")
rs2.Open sql1, Conn, 2, 3
rs2("qian")=rs2("qian")-jiage
rs2.update
conn.Execute("update card set oklook=2 where id="&id)
set rs1=server.createobject("adodb.recordset")
sql="select * from shop "
rs1.open sql,conn,1,3
rs1.addnew
rs1("cardname")=rs3("cardname")
rs1("carid")=rs3("carid")
rs1("carpws")=rs3("carpws")
rs1("jg")=jiage
rs1("body")=body
rs1("body1")=body1
rs1("riqi")=now()
rs1("url")=rs3("url")
rs1("lb")=name
rs1("name")=session("userid")
rs1("gamename")=gamename
rs1("gamequ")=gamequ
rs1.update
end if
carid=rs1("carid")
carpws=rs1("carpws")
jg=rs1("jg")
%>
<head>
<meta http-equiv="Refresh" content="2; URL=list.asp?carid=<%=rs1("carid")%>&carpws=<%=rs1("carpws")%>&jg=<%=rs1("jg")%>&url=<%=rs1("url")%>">
</head>
<br><br>
<center>交易进行中，请稍后...⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -