📄 shopshow.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 id,maxlist,dressname,allnumber,currentpage,Pcount,page_count,dresssex,showid,sid,rs,sql,i
dim dresspic,dressmoney,dresstext,dresslast,endpage,show
%><HTML><HEAD><title>超级市场</title><%
call shophead()
id=request("id")
sid=request("showid")
if id="" then
	conn.close
	set conn=nothing
	connshop.close
	set connshop=nothing
	response.write "<script>alert('对不起！请正确选择商店名');history.go(-1);</script>"
	response.end
else%>
<table width=90% cellpadding="0" cellspacing="0">
<tr><td width=150 valign=top align=center>
<table width="141" cellpadding="0" cellspacing="0"><TR>
      <TD><IMG src="pic/7.gif" height="52" border="0"></TD>
    </TR><tr><td background="pic/6.gif" height=149 align=center><img src=pic/<%if id=0 then%>boy<%else%>girl<%end if%>.gif alt=购买<%if id=0 then%>男<%else%>女<%end if%>式服装的地方>&nbsp;</td></tr><TR>
      <TD align=center><IMG src="pic/8.gif" height="18" border="0"><br><br><A href="?id=<%=id%>&showid=3">上衣柜</A>&nbsp;<A href="?id=<%=id%>&showid=2">下装柜</A><br><br><A href="?id=<%=id%>&showid=1">鞋子柜</A>&nbsp;<A href="?id=<%=id%>&showid=4">饰品柜</A><br><br></TD>
    </TR></table>
<td width=100% valign=top align=center>
            <%
if not isInteger(request("showid")) or request("showid")="" then
            set rs=server.createobject("adodb.recordset")
	    sql="select * from dress where dresssex="&id&" order by ID desc"
	    rs.open sql,connshop,1,1
end if



if request("showid")="1" then
            set rs=server.createobject("adodb.recordset")
	    sql="select * from dress where dresssex="&id&" and showid=1 order by ID desc"
	    rs.open sql,connshop,1,1
end if

if request("showid")="2" then
            set rs=server.createobject("adodb.recordset")
	    sql="select * from dress where dresssex="&id&" and showid=2 order by ID desc"
	    rs.open sql,connshop,1,1
end if

if request("showid")="3" then
            set rs=server.createobject("adodb.recordset")
	    sql="select * from dress where dresssex="&id&" and showid=3 order by ID desc"
	    rs.open sql,connshop,1,1
end if

if request("showid")="4" then
            set rs=server.createobject("adodb.recordset")
	    sql="select * from dress where dresssex="&id&" and showid=4 order by ID desc"
	    rs.open sql,connshop,1,1
end if



	    if rs.eof and rs.bof then%><table width=100% ><tr><td align=center><br>欢迎 <b><%=membername%></b> 光临<%if id=0 then%>男<%else%>女<%end if%>式服装店<br><br><br><br><br><br><br>本店目前暂时没有任何商品出售！</td></tr></table></TD></TR></TABLE><%
	    else
		maxlist=10
		allnumber=rs.recordcount
		rs.movefirst
		currentpage=trim(request("page"))
                if currentpage="" or not isinteger(currentpage) then
	           currentpage=1
                else
	           currentpage=clng(currentpage)
	           if err then
	             currentpage=1
	             err.clear
	           end if
                end if
                if allnumber mod maxlist=0 then
      		        Pcount= allnumber \ maxlist
    		else
    			Pcount= allnumber \ maxlist+1
    		end if%><table width=100% cellpadding=0 cellspacing=0><tr><td align=center><br>欢迎&nbsp;<b><%=membername%></b>&nbsp;光临<%if id=0 then%>男<%else%>女<%end if%>式服装店&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;本店柜台共有<%=allnumber%>种商品供您选购</td></tr></TABLE><TABLE width=100%><%
		      	if currentpage > Pcount then currentpage = Pcount
			if currentpage<1 then currentpage=1
			RS.Move (currentpage-1) * maxlist
			page_count=0
		      do while not rs.eof and page_count < maxlist
			dressname=rs("dressname")
			dresssex=rs("dresssex")
			showid=rs("showid")
			select case showid
			case "1"
			    show="鞋子"
			case "2"
				show="下装"
			case "3"
				show="上衣"
			case "4"
				show="饰品"
			end select
			dresspic=rs("dresspic")
			dressmoney=rs("dressmoney")
			dresstext=rs("dresstext")
			dresslast=rs("dresslast")%><tr><td align=center><TABLE width=90% ><TR><TD rowspan=6 width=50% align=center><img border=0 src=<%=dresspic%> alt=<%=dresstext%>></td><td width=50% >品名：<%=dressname%><%if master then%> <A href="showmana.asp?dressid=<%=rs("id")%>"><FONT color="#ff0000">修改</FONT></A><%end if%></td></tr><tr><td>价格：<%=dressmoney%></td></tr><tr><td>类别：<%=show%></td></tr><tr><td>保质期：<%=dresslast%>天</td></tr><tr><td><INPUT type=button value=立刻购买 onClick=document.location='dressget.asp?dressid=<%=rs("id")%>'></td></tr></table><hr size=1 width=90% color=#F2F8FF></td></tr><%page_count=page_count+1
		      rs.movenext
		      loop
%></table></td></tr></table><table width=100% cellpadding=0 cellspacing=0><tr><td align=center>页次：<b><%=currentpage%></b>/<b><%=Pcount%></b>页&nbsp;&nbsp;每页：<b><%=maxlist%></b>个&nbsp;&nbsp;总数：<b><%=allnumber%></b>个&nbsp;&nbsp;&nbsp;分页：<%if currentpage > 4 then%><a href=?page=1&id=<%=id%>&showid=<%=sid%>>[1]</a> ...<%end if
			if Pcount>currentpage+3 then
				endpage=currentpage+3
			else
				endpage=Pcount
			end if
			for i=currentpage-3 to endpage
			if not i<1 then
				if i = clng(currentpage) then%><font color=red>[<%=i%>]</font><%else%><a href=?page=<%=i%>&id=<%=id%>&showid=<%=sid%>>[<%=i%>]</a><%end if
			end if
			next
			if currentpage+3 < Pcount then%>... <a href=?page=<%=Pcount%>&id=<%=id%>&showid=<%=sid%>>[<%=Pcount%>]</a><%end if
%><br><br></td></tr></table>


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

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