📄 foodused.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,gnum
dim username,foodname,fooddate,foodpic,foodsx,foodvalue,foodmoney,foodtext,foodnum,foodlast,sentname,foodacc,foodsent,senttext
dim brs,tmpsx,foodlasted
%><HTML><HEAD><title>超级市场 → 使用商品</title><%call shophead()%><TABLE cellpadding="0" cellspacing="0" width=100% bgcolor="#B7D3FF">
<TR>
<TD align="center"><%
foodid=request("foodid")
gnum=cint(request("gnum"))
if foodid="" then
response.write "<script>alert('请从正当渠道进来，谢谢。');history.go(-1);</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from [foodbuy] where id="&foodid
rs.open sql,connshop,1,3
if rs.eof and rs.bof then
response.write "<script>alert('该商品不存在或者该商品不属于您！');history.go(-1);</script>"
response.end
else
username=rs("userid")
if username<>membername then
response.write "<script>alert('该商品不存在或者该商品不属于您！');history.go(-1);</script>"
response.end
end if
foodname=rs("foodname")
fooddate=rs("fooddate")
foodpic=rs("foodpic")
foodsx=rs("foodsx")
select case foodsx
case "JYZ"
tmpsx="经验"
case "ML"
tmpsx="魅力"
case "FTS"
tmpsx="发帖数"
end select
foodvalue=rs("foodvalue")
foodmoney=rs("foodmoney")
foodtext=rs("foodtext")
foodnum=rs("foodnum")
foodlast=rs("foodlast")
sentname=rs("sentname")
foodacc=rs("foodacc")
foodsent=rs("foodsent")
senttext=rs("senttext")
foodlasted=datediff("d",cdate(fooddate),now)
end if
end if
if gnum="" or gnum=<0 or gnum>cint(foodnum) then
response.write "<script>alert('请正确输入您要使用的数量！');history.go(-1);</script>"
response.end
end if
set brs=server.createobject("adodb.recordset")
sql="select * from [HY] where NC='"&membername&"'"
brs.open sql,conn,1,3
if foodlasted<=foodlast then
brs(""&foodsx&"")=brs(""&foodsx&"") + foodvalue*gnum
else
brs(""&foodsx&"")=brs(""&foodsx&"")-foodvalue*gnum\2
end if
brs.update
brs.close
set brs=nothing
if foodnum>gnum then
rs("foodnum")=rs("foodnum")-gnum
rs.update
else
set brs=server.createobject("adodb.recordset")
sql="delete from foodbuy where id="&foodid
brs.open sql,connshop,1,3
end if
%>
<table><tr><td align=center>
<%if foodlasted<=foodlast then%>
恭喜，物品使用成功！您的<font color=red> <%=tmpsx%> </font>增加<font color=red> <%=foodvalue*gnum%> </font>。</td></tr>
<%else%>
由于使用过期物品，您的<font color=red> <%=tmpsx%> </font>减少<font color=red> <%=foodvalue*gnum\2%> </font>。</td></tr>
<%end if%><%response.write "<meta http-equiv=refresh content=""1;url=shoped.asp"">"%><tr><td>系统将自动在３秒后返回购物车，您现在可以选择下面操作：
<UL><li><a href=/><font color=#000000>返回中央广场</font></a></li>
<li><a href=shoped.asp><font color=#000000>返回我的购物车</font></a></li>
<li><a href=shop.asp><font color=#000000>返回商店列表</font></a></li></UL>
</td></tr></table></td></tr></table></center></body></html>
<%
end if
connshop.close
set connshop=nothing
%>
⌨️ 快捷键说明

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