📄 fooduse.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="shopconn.asp" -->
<!--#include file="../tools.asp"-->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
Response.Write("对不起，您不是社区用户，请先注册！")
Response.End
else
dim foodid,act
dim username,foodname,fooddate,foodpic,foodmoney,foodtext,foodnum,foodlast,sentname,foodacc,foodsent,senttext
dim tmpsx
%><HTML><HEAD><title>超级市场 → 使用商品</title><%call shophead()%><TABLE cellpadding="0" cellspacing="0" width=100%>
<TBODY>
<TR>
<TD align="center"><%
foodid=request("foodid")
act=request("act")
if foodid="" then
response.write "<script>alert('请从正当渠道进来，谢谢！');history.go(-1);</script>"
response.end
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
end if
username=rs("userid")
foodname=rs("foodname")
fooddate=rs("fooddate")
foodpic=rs("foodpic")
foodmoney=rs("foodmoney")
foodtext=rs("foodtext")
foodnum=rs("foodnum")
foodlast=rs("foodlast")
sentname=rs("sentname")
foodacc=rs("foodacc")
foodsent=rs("foodsent")
senttext=rs("senttext")
if rs.eof and rs.bof then
response.write "<script>alert('该商品不存在或者该商品不属于您！');history.go(-1);</script>"
response.end
end if
end if
if act="" then
response.write "<script>alert('请正确选择您进行的操作！');history.go(-1);</script>"
response.end
end if
%>
<br><table width=400><tr><td align=center width=50%><img src="<%=foodpic%>" border=0 alt="<%=foodtext%>"><td width=50%>品名：<%=foodname%><br>数量：<%=foodnum%>个<br>价钱：<%=foodmoney%>元<br>保质期：<%=foodlast%>天<br>生产日期：<%=fooddate%></td></tr></table><br><%
select case act
case "use"
call usefood()
case "sent"
call sentfood()
case "sell"
call sellfood()
case "drop"
call dropfood()
case "acc"
call accfood()
case "noacc"
call noaccfood()
end select
%>
<%sub usefood%>
<table>
<tr><td><form method=post name=fnum action=foodused.asp?foodid=<%=foodid%>><font color=red>请输入使用数量：</font><input name=gnum value=0 type=text size=5> <input type=submit value=使用> <INPUT type=button value=返回 onClick=document.location='shoped.asp'></form></td></tr></table><br>
<%end sub%>
<%sub sentfood%>
<table><form method=post name=fnum action=foodsend.asp?foodid=<%=foodid%>>
<tr><td>请输入赠送数量：<input name=gnum value=0 type=text size=5> 送给：<input type=text maxLength=20 name=guser size=25></td></tr>
<tr><td align="center">您 的 祝 福 语<br><TEXTAREA class="TextBorder" name=gtext rows=4 cols="60" title="内容不能超过66个字符！">送给您一个惊喜！请您一定收下哦！</TEXTAREA></td></tr>
<tr><td align="center"><input type=submit value=赠送> <input type="reset" value="重写" class="TextBorder" name="B1"> <INPUT type=button value=返回 onClick=document.location='shoped.asp'></td></tr></form></table><br>
<%end sub%>
<%sub sellfood%>
<table><tr><td align=center><font color=red>确认出售的话，整份物品将以原价的 50% 返回社区仓库，不再返回商店！</font><br><INPUT type=button value=出售 onClick=document.location='foodhold.asp?foodid=<%=foodid%>&act=sell'> <INPUT type=button value=返回 onClick=document.location='shoped.asp'></td></tr></table><br>
<%end sub%>
<%sub dropfood%>
<table><tr><td align=center><font color=red>确认丢弃的话，整份物品将被销毁。系统将自动回到您的购物车。</font><br><INPUT type=button value=丢弃 onClick=document.location='foodhold.asp?foodid=<%=foodid%>&act=drop'> <INPUT type=button value=返回 onClick=document.location='shoped.asp'></td></tr></table><br>
<%end sub%>
<%sub accfood
rs("foodsent")=false
rs("foodacc")=true
rs.update
dim rs1,message,sendid
set rs1=server.createobject("adodb.recordset")
strsql="select ID from HY where NC='"& username & "'"
rs1.open strsql,conn,1,1
sendid=rs("ID")
rs1.close
set rs1=nothing
message=""&username&"已经接受您的礼物！"
sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
sql = sql & sentname & "',"& sendid &",'"& message & "',0,'"&ConvertDateTime(Now())&"',0)"
conn.execute(sql)
conn.close
set conn=nothing
%>
<table><tr><td align=center>恭喜，操作成功！</td></tr>
<%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>
<%
end sub%>
<%sub noaccfood
rs("foodsent")=false
rs("userid")=sentname
rs("sentname")=""
rs("foodacc")=false
rs("foodtext")="这是"&membername&"退回的礼品"
rs.update
dim rs1,message,sendid
set rs1=server.createobject("adodb.recordset")
strsql="select ID from HY where NC='"& username & "'"
rs1.open strsql,conn,1,1
sendid=rs("ID")
rs1.close
set rs1=nothing
message=""&username&"拒绝接受您的礼物，请前往超市查收。"
sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
sql = sql & sentname & "',"& sendid &",'"& message & "',0,'"&ConvertDateTime(Now())&"',0)"
conn.execute(sql)
conn.close
set conn=nothing
%>
<table><tr><td align=center>恭喜，操作成功！</td></tr>
<%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>
<%
end sub%>
</TD></TR></TBODY></TABLE></center></body></html>
<%
end if
connshop.close
set connshop=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -