📄 dressget.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!-- #include file="shopconn.asp" -->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
		Response.Write("对不起，您不是社区用户，请先注册！")
        Response.End
else
dim dressname,dressid,dresssex,showid,dresspic,dressmoney,dresstext,dresslast,brs,mywealth,rs,sql
%><HTML><HEAD><title>超级市场 → 购买商品</title><%call shophead()%><TABLE cellpadding="0" cellspacing="0" width=700>
<TBODY>
<TR>
<TD align="center"><%
dressid=request("dressid")
if dressid="" then
response.write "<script>alert('您未选择正确的商品。');history.go(-1);</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select dressname,dresssex,showid,dresspic,dressmoney,dresstext,dresslast from dress where id="&dressid
rs.Open sql,connshop,1,3
if rs.eof then
response.write "<script>alert('您选择的商品不存在。');history.go(-1);</script>"
else
dressname=rs("dressname")
dresssex=rs("dresssex")
showid=rs("showid")
dresspic=rs("dresspic")
dressmoney=rs("dressmoney")
dresstext=rs("dresstext")
dresslast=rs("dresslast")



set brs=server.createobject("adodb.recordset")
sql="select JQ from [HY] where NC='"&membername&"'"
brs.Open sql,conn,1,3
if brs.eof or brs.bof or brs(0)<dressmoney then
response.write "<script>alert('您的金钱不够支付。');history.go(-1);</script>"
else
brs(0)=brs(0)-dressmoney
mywealth=brs(0)
brs.update
brs.close
set brs=nothing

set rs=server.createobject("adodb.recordset")
sql="select * from foodbuy where (id is null)"
rs.Open sql,connshop,1,3
rs.AddNew
rs("userid")=membername
rs("foodpic")=dresspic
rs("foodname")=dressname
rs("foodmoney")=dressmoney
rs("show")=showid
rs("foodsent")=false
rs("foodtext")=dresstext
rs("foodlast")=dresslast
rs("fooddate")=date()
rs("foodnum")="1"
rs.Update
rs.close
set rs=nothing
end if%>
<table width=65% ><tr><td><br>恭喜，您已成功购买了1个<%=dressname%>，费用为<%=dressmoney%>元，您还剩余金钱<font color=red><%=mywealth%></font>元。</td></tr><tr><td><br>您现在可以选择以下操作：<UL><li><a href=shop.asp>返回商店列表</a></li><li><a href=shoped.asp>查看我的购物车</a></li></UL></td></tr></table><%

end if
end if%></TD></TR></TBODY></TABLE></center></body></html>
<%
end if
connshop.close
set connshop=nothing%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -