?? sctogw.asp
字號:
<!--#include file="conn.asp"-->
<%
if request.Cookies("bjx")("username")="" then
response.write "<script language=javascript>alert('對不起,您還沒有登陸!');window.close();</script>"
response.End
end if
username=request.Cookies("bjx")("username")
bookid=request("bookid")
if bookid="" then
response.write "<script language=javascript>alert('對不起,您沒有選擇商品!');window.close();</script>"
response.End
end if
Set rs_s=Server.CreateObject("Adodb.RecordSet")
rs_s.Open "Select * from BJX_goods where bookid in ("&bookid&")",Conn,3,3
while not rs_s.eof
if request.Cookies("bjx")("reglx")=2 then
danjia=rs_s("vipjia")
else
danjia=rs_s("huiyuanjia")
end if
kucun=rs_s("kucun")
bookname=rs_s("bookname")
if kucun<=0 then
response.write "<script language=javascript>alert('你選購的商品“"&bookname&"”暫時缺貨不能放到購物車里,請選購其它商品!');window.close();</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_action where username='"&username&"' and bookid="&trim(rs_s("bookid"))&" and zhuangtai=7",conn,1,3
if rs.recordcount=1 then
'//修改數量
if kucun<(rs("bookcount")+1) then
response.write "<script language=javascript>alert('你選購的商品“"&bookname&"”暫時缺貨不能放到購物車里,請選購其它商品!');window.close();</script>"
response.end
end if
rs("zonger")=(rs("bookcount")+1)*danjia
rs("bookcount")=rs("bookcount")+1
rs.update
rs.close
set rs=nothing
else
'//添加購物
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_action",conn,1,3
rs.addnew
rs("bookid")=trim(rs_s("bookid"))
rs("username")=username
rs("zhuangtai")=7
rs("bookcount")=1
rs("zonger")=danjia
rs.update
rs.close
set rs=nothing
end if
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
response.Redirect "buy.asp?action=show"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -