📄 shoptop.asp

📁 一个较好的网上购物系统是基于ASP的多用户网上商城
💻 ASP
字号:
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR> <td><!--#include file="top.asp"-->


<BODY>
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR align="center"> 
      <TD vAlign=top> 
        <TABLE cellSpacing="1" width="700" cellpadding="0" border=0 bgcolor="#008000">
          <TBODY>
            <TR> 
              <TD bgColor=#E4F4E1 align="left" height=21> 
						&nbsp;<img border="0" src="images/news.gif" width="15" height="15"> 
						店铺排行</TD>
                  
            </TR>
            


<%
Dim StrSql,Rs
StrSql="select * from user_info order by shop_hits desc"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open StrSql,conn,1,1
%>


                  <tr> 

                    <td height=18 bgcolor="#FFFFFF"</td>

                  <div align="center">
					<table border="0" width="100%" cellpadding="2">

						<tr>
							<td align="center">序号</td>
							<td align="center">店铺标志</td>
							<td align="center">店铺名称</td>
							<td align="center">店铺掌柜</td>
							<td align="center">店铺OICQ</td>
							<td align="center">开店时间</td>
							<td align="center">人气</td>
						</tr>
						<%
	  IF not rs.eof and not rs.bof then
	  dim page_size
	  dim page_no
	  dim page_total
	  page_size=10
	  if request.QueryString("page_no")="" then
	  page_no=1
	  else
	  page_no=cint(request.QueryString("page_no"))
	  end if
	  rs.pagesize=page_size
	  page_total=rs.pagecount
	  rs.absolutepage=page_no
	  dim I,J
	  I=0
	  J=page_size
	  do while not rs.eof and J>0
	  J=J-1
	  I=I+1
      %>

						<tr>
							<td align="center"><%=rs("user_id")%></td>
							<td align="center"><a href="shop_info.asp?user_id=<%=rs("user_id")%>" target="_blank">
							<img src="<%=rs("shop_img")%>" height=60 width=60 border=0 style="border: 1px solid #008000"></a></td>
							<td align="center"><%=rs("shop_name")%></td>
							<td align="center"><%=rs("user_name")%></td>
							<td align="center"><%=rs("user_qq")%></td>
							<td align="center"><%=rs("user_date")%></td>
							<td align="center"><%=rs("shop_hits")%></td>
						</tr><%
	      Rs.MoveNext
		Loop      
	  End IF
	  %>

					</table>
					
<table  width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page" >
              <tr>
                <td bgcolor="#E4F4E1"><div align="center">[本页是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?page_no=1">第一页</a>]
              <%if int(page_no)>1 then%>
              [<a href="?page_no=<%=cstr(int(page_no-1))%>">前一页</a>]
              <%elseif int(page_no)<=1 then%>
              [<a href="?page_no=1">前一页</a>]
              <%end if%>
              <%if int(page_no)<int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_no+1))%>">后一页</a>]
              <%elseif int(page_no)>=int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_total))%>">后一页</a>]
              <%end if%>
              [<a href="?page_no=<%=page_total%>">最后一页</a>] 转到
              <input name="page" type="text" value="<%=page_no%>" size="5">页
			<input type="button" class=input name="Submit" value="转到" onclick="GoPage()"></div></td>
              </tr>
</table>
					</div>

                  </tr>



          </TBODY>
        </TABLE>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"--> </TD>
    </TR>
  </TBODY>
</TABLE>

<%
Rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
⌨️ 快捷键说明

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