📄 shoped.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="shopconn.asp" -->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
Response.Write("对不起，您不是社区用户，请先注册！")
Response.End
else
dim username,userWealth,userEP,userCP,show,rs,sql,i
dim maxlist,currentpage,pcount,page_count,endpage
dim foodvalue
Response.Buffer=true
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
%>
<HTML><HEAD><title>超级市场 → 我的服装柜</title><link rel=stylesheet type=text/css href=forum.css>
<script language="JavaScript">
<!--
function dressshop() {
DRESSSHOP = window.open('','fDRESSSHOP','scrollbars=yes,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=790,height=540,left=0,top=0');
DRESSSHOP.location.replace('dressshop.asp');
}
//-->
</script></HEAD>
<body topMargin="0" leftMargin="0" background="../images/bg.gif"><center><table width="100%" height="33" cellpadding="0" cellspacing="0"><tr><TD width="250"></TD><TD align="center" width="200"><FONT size="+1"><b>我的服装柜</b></FONT></TD>
<%if not master then%>
<td align=right width="250"><a href="javascript:dressshop()"><font color=#7a437a>商店列表</font></a> <a href=lfshow.asp><font color=#7a437a>个性设置</font></a></a><%else%><td align=right width="250"><a href="javascript:dressshop()"><font color=#7a437a>商店列表</font></a> <a href=lfshow.asp><font color=#7a437a>个性设置</font></a> <a href=myshop.asp><font color=#7a437a>我的商店</font></a> <a href="shopmana.asp"><font color=red>超市管理</font></a><%end if%> </td></tr></table>
<table width=90% cellpadding=0 cellspacing=0><tr><td width=200 align=center valign=top><%
username=membername
set rs=server.createobject("adodb.recordset")
sql="select JQ,JYZ,ML,FTS from [HY] where NC='"&username&"'"
rs.open sql,conn,1,1
userWealth=rs("JQ")
userEP=rs("JYZ")
userCP=rs("ML")
rs.close
set rs=nothing%><br><br><table width=200 cellpadding=0 cellspacing=0><tr><td align=center><IFRAME src=userfaceback.ASP?UserName=<%=username%> width='193' height=212 marginwidth='0' marginheight='0' hspace='0' vspace='0' frameborder='0' scrolling='NO' allowtransparency='true' id=v_UserName></iframe></td></tr><tr><td height=25> 用户：<b><%=username%></b></td></tr><tr><td height=25> 金钱：<%=userWealth%></td></tr><tr><td height=25> 经验：<%=userEP%></td></tr><tr><td height=25> 魅力：<%=userCP%></td></tr></table></td><td width=100%>
<table width=100%>
<!--<tr><td align=center><b>我的购物车</b><%set rs=server.createobject("adodb.recordset")
sql="select * from foodbuy where userid='"&membername&"' and show=0"
rs.open sql,connshop,1,1
if rs.eof and rs.bof then%></td></tr><tr><td align=center>无任何物品！</td></tr><%else%>：有<%=rs.recordcount%>个物品</td></tr><tr><td align=center><%rs.movefirst
for i=1 to rs.recordcount
select case rs("foodsx")
case "JYZ"
foodvalue="经验"
case "ML"
foodvalue="魅力"
case "FTS"
foodvalue="发帖数"
end select%><TABLE width=100%><TR><TD rowspan=7 width=40% align=center><%
if rs("foodacc") then%><img src=<%=rs("foodpic")%> border=0><br><font color=FF0000>这是 <%=rs("sentname")%> 送给你的哟。</font><%else%><img src=<%=rs("foodpic")%> border=0 alt=<%=rs("foodtext")%>><%end if%></TD><TD width=60% >名称：<%=rs("foodname")%></TD></TR><TR><TD>功效：<%=foodvalue%>+<%=rs("foodvalue")%></TD></TR><TR><TD>数量：<%=rs("foodnum")%></TD></TR><TR><TD>价格：<%=rs("foodmoney")%>元</TD></TR><TR><TD>保质期：<%=rs("foodlast")%>天 <%if datediff("d",rs("fooddate"),now)>rs("foodlast") then%><FONT color="#ff0000">过期</FONT><%end if%></TD></TR><TR><TD>生产日期：<%=rs("fooddate")%></TD></TR><TR><TD><INPUT type=button value=使用 onClick=document.location='fooduse.asp?foodid=<%=rs("id")%>&act=use'> <INPUT type=button value=送人 onClick=document.location='fooduse.asp?foodid=<%=rs("id")%>&act=sent'> <INPUT type=button value=出售 onClick=document.location='fooduse.asp?foodid=<%=rs("id")%>&act=sell'> <INPUT type=button value=丢弃 onClick=document.location='fooduse.asp?foodid=<%=rs("id")%>&act=drop'></TD></tr></TABLE><hr size=1 width=90% color=#F2F8FF><%
rs.movenext
next
rs.close
set rs=nothing%></td></tr>
<%end if%>
//-->
<tr><td align=center><br><br><font color=0000FF><b>服装柜</b><%set rs=server.createobject("adodb.recordset")
sql="select * from foodbuy where userid='"&membername&"' and show<>0"
rs.open sql,connshop,1,1
if rs.eof and rs.bof then%></td></tr><tr><td align=center>无任何服饰！</td></tr><%else%>：有<%=rs.recordcount%>件服饰</font></td></tr><tr><td align=center><%rs.movefirst
for i=1 to rs.recordcount
select case rs("show")
case "1"
show="鞋子"
case "2"
show="下装"
case "3"
show="上衣"
case "4"
show="饰品"
end select%><TABLE width=100%><TR><TD rowspan=7 width=40% align=center>
<%if rs("foodacc") then%><img src=<%=rs("foodpic")%> border=0><br><font color=FF0000>这是 <%=rs("sentname")%> 送给你的哟。</font><%else%><img src=<%=rs("foodpic")%> border=0 alt=<%=rs("foodtext")%>><%end if%></TD><TD width=60% >名称：<%=rs("foodname")%></TD></TR><TR><TD>数量：1</TD></TR><TR><TD>类别：<%if rs("sex")=0 then%>女<%else%>男<%end if%><%=show%></TD></TR><TR><TD>价格：<%=rs("foodmoney")%>元</TD></TR><TR><TD>保质期：<%=rs("foodlast")%>天 <%if datediff("d",rs("fooddate"),now)>rs("foodlast") then%><FONT color="#ff0000">过期</FONT><%end if%></TD></TR><TR><TD>生产日期：<%=rs("fooddate")%></TD></TR><TR><TD><INPUT type=button value=使用 onClick=document.location='lfshow.asp'> <INPUT type=button value=送人 onClick=document.location='fooduse.asp?foodid=<%=rs("id")%>&act=sent'> <INPUT type=button value=出售 onClick=document.location='fooduse.asp?foodid=<%=rs("id")%>&act=sell'> <INPUT type=button value=丢弃 onClick=document.location='fooduse.asp?foodid=<%=rs("id")%>&act=drop'></TD></tr></TABLE><hr size=1 width=90% color=#F2F8FF><%
rs.movenext
next
rs.close
set rs=nothing%></td></tr><%
end if%>
</table><br></td></tr></table><%
connshop.close
set connshop=nothing
%></center></body></html>
<% end if %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -