📄 foodget.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 foodid,getnum
dim foodnum,foodname,foodpic,foodvalue,foodmoney,foodtext,fooddate,foodsx,shopid,boss,foodlast
dim maxlist,currentpage,pcount,page_count,endpage
dim mywealth
%><HTML><HEAD><title>超级市场 → 购买商品</title><%call shophead()%><TABLE cellpadding="0" cellspacing="0" width=700 bgcolor="#B7D3FF">
<TBODY>
<TR>
<TD align="center"><%
foodid=request("foodid")
if foodid="" then
response.write "<script>alert('您未选择正确的商品。');history.go(-1);</script>"
end if
set rs=server.createobject("adodb.recordset")
sql="select foodname,foodpic,boss,foodsx,foodvalue,foodnum,foodtext,foodlast,fooddate,foodmoney,shopid from food2 where id="&foodid
rs.Open sql,connshop,1,3
if rs.eof then
response.write "<script>alert('您选择的商品不存在。');history.go(-1);</script>"
elseif rs("foodnum")<1 then
response.write "<script>alert('您选择的商品库存不足。');history.go(-1);</script>"
else
foodname=rs("foodname")
foodpic=rs("foodpic")
boss=rs("boss")
foodsx=rs("foodsx")
select case foodsx
case "JYZ"
foodvalue="经验"
case "ML"
foodvalue="魅力"
case "FTS"
foodvalue="发帖数"
end select
foodvalue=foodvalue & "+" & cstr(rs("foodvalue"))
foodnum=rs("foodnum")
foodtext=rs("foodtext")
foodlast=rs("foodlast")
fooddate=rs("fooddate")
foodmoney=rs("foodmoney")
shopid=rs("shopid")
end if
getnum=request("getnum")
if getnum="" then
call main()
else
call foodget()
end if%></TD></TR></TBODY></TABLE></center></body></html>
<%
connshop.close
set connshop=nothing
end if
%>

<%
sub main()
dim brs,isopen,shopstart,shopend,shopname
set brs=server.createobject("adodb.recordset")
sql="select ifopen,shopstart,shopclose,shopname from [shop] where id=" & shopid
brs.open sql,connshop,1,3
isopen=brs("ifopen")
shopstart=brs("shopstart")
shopend=brs("shopclose")
shopname=brs("shopname")
brs.close
set brs=nothing
if not isopen or hour(time())<shopstart or hour(time())>=shopend then
response.write "<script>alert('"&shopname&"不在营业中，请查看该商店营业状态或营业时间。');history.go(-1);</script>"
else%>欢迎您在 <b><%=shopname%></b> 购物，您选择的商品情况如下：<br><br></td></tr><tr><td align="center"><TABLE width=500>
<TBODY>
<TR>
<TD align="center" width=30% ><img src=<%=foodpic%>></TD>
<TD width=30% >品名：<%=foodname%><br>功效：<%=foodvalue%><br>价格：<%=foodmoney%>元<br>库存：<%=foodnum%>个<br>保质期：<%=foodlast%>天<br>进货时间：<%=fooddate%></TD>
<TD width=40% ><form method=post name=fnum action=foodget.asp?foodid=<%=foodid%>><font color=red>购买数量：</font><input name=getnum value=0 type=text size=5>&nbsp;<input type=submit value=购买>&nbsp;<INPUT type=button value=返回 onClick=document.location='shop.asp?shopid=<%=shopid%>'></form></TD>
</TR>
</TBODY>
</TABLE><br><br>



<%
end if
end sub
%>

<%
sub foodget()
dim brs,cost
if cint(getnum)>cint(foodnum) or cint(getnum)<=0 then
response.write "<script>alert('该物品的库存不能满足您的需求。');history.go(-1);</script>"
else
cost=getnum*foodmoney
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)<cost then
response.write "<script>alert('您的金钱不够支付。');history.go(-1);</script>"
else
brs(0)=brs(0)-cost
mywealth=brs(0)
brs.update

brs.close
set brs=nothing
sql="update [HY] set JQ=JQ-"&cost&" where NC='"&boss&"'"
conn.execute(sql)
sql="update [shop] set shoprq=shoprq+1 where id="&shopid
connshop.execute(sql)
rs("foodnum")=rs("foodnum")-getnum
rs.Update
foodvalue=rs("foodvalue")
rs.close
set rs=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")=foodpic
rs("foodname")=foodname
rs("foodmoney")=foodmoney
rs("foodsx")=foodsx
rs("foodvalue")=foodvalue
rs("foodsent")=false
rs("foodtext")=foodtext
rs("foodlast")=foodlast
rs("fooddate")=fooddate
rs("foodnum")=getnum
rs.Update
rs.close
set rs=nothing
end if
%><table width=65% ><tr><td><br>恭喜，您已成功购买了<%=foodname%>，数量为<%=getnum%>个，费用为<%=cost%>元，您还剩余金钱<font color=red><%=mywealth%></font>元。</td></tr><tr><td><br>您现在可以选择以下操作：<UL><li><a href=/>返回社区首页</a></li><li><a href=shop.asp>返回商店列表</a></li><li><a href=shoped.asp>查看我的购物车</a></li><li><a href=shop.asp?shopid=<%=shopid%>>继续购物</a></li></UL></td></tr></table><%end if
end sub
%>
⌨️ 快捷键说明

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