📄 savedingdansub.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%
if request.Cookies("days6")("username")="" then
response.write "<script language=javascript>alert('您没用会员帐号登陆，不支持商家出价！！');window.close;</script>"
response.End
end if
if session("addtime")<>"" then
if DateDiff("s",session("addtime"),Now())<10 then
response.write "<script language=javascript>alert('你提交数据太快，请等10秒在提交！');history.go(-1);</script>"
response.end
end if
end if
bookid=int(trim(request("id")))
username=request.cookies("days6")("username")
userzhenshiname=request.cookies("days6")("userzhenshiname")
shuliang=int(trim(request("shuliang")))
if shuliang<=0 or shuliang="" then
response.write"<script>alert(""你购买的数量不正确"");history.go(-1);</script>"
response.end
end if
set rs_user=server.CreateObject("adodb.recordset")
rs_user.Open "select userid,jf from [user] where username='"&username&"'",conn,1,3
rs_user("jf")=rs_user("jf")+1
rs_user.update
set rs_news=server.CreateObject("adodb.recordset")
rs_news.Open "select kucun,shjiatejiabook,newsbook,vipjia from [shop_books] where bookid="&bookid&"",conn,1,1
kucun=int(rs_news("kucun"))
jiage=rs_news("shjiatejiabook")
yfei=rs_news("vipjia")
if rs_news("newsbook")=1 then
yunfei=yfei
elseif rs_news("newsbook")=2 then
yunfei=0
elseif rs_news("newsbook")=3 then
yunfei=yfei/2
elseif rs_news("newsbook")=4 then
yunfei=0
end if
if shuliang>kucun then
response.write"<script>alert(""库存数量不足！！"");history.go(-1);</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from bookjia",conn,1,3
rs.AddNew
rs("bookid")=bookid
rs("username")=username
rs("zongjia")=shuliang*(jiage+yunfei)
rs("shuliang")=shuliang
rs("jiage")=jiage
rs("leixing")=2
rs("deal")=1
rs("deal")=1
rs("dealshuliang")=shuliang
rs("zhuangtai")=1
rs("userid")=rs_user("userid")
rs("order")=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
rs("shuliang")=trim(request("shuliang")) '
rs("adddate")=now() '加入日期
rs("dealdate")=now()
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("userip")=userip
rs.Update
session("addtime")=now()
rs.Close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.Open "select kucun from shop_books where bookid="&bookid,conn,1,3
rs("kucun")=rs("kucun")-shuliang
rs.update
rs.close
set rs=nothing
response.Write "成功购买!"
cl
response.End
%>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 1000)">
<%end sub%>
<%closedb%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -