📄 goods_list.asp

📁 校园二手交易系统,具有完备的后台操作以及应用功能!
💻 ASP
字号:
<!--#include file="top.asp"-->
<BODY>
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR align="center"> 
      <TD vAlign=top> 
           <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
          <TBODY>
                <TR> 
              <TD  class=th> 
						&nbsp;<img border="0" src="images/news.gif" width="15" height="15"> 
						商品列表</TD>
                  
            </TR>
            
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>

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


          

					<tr> 



                   <div align="center">
           <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">


						<tr>
							<td align="center" height="21" class="tablebody1">
							序号</td>
							<td align="center" height="21" class="tablebody1">
							商品图片</td>
							<td align="center" height="21" class="tablebody1">
							商品名称</td>
							<td align="center" height="21" class="tablebody1">
							推荐</td>
							<td align="center" height="21" class="tablebody1">
							商品价格</td>
							<td align="center" height="21" class="tablebody1">
							商品数量</td>
							<td align="center" height="21" class="tablebody1">
							支付宝</td>
							<td align="center" height="21" class="tablebody1">
							发布时间</td>
							<td align="center" height="21" class="tablebody1">
							人气</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" class="tablebody1"><%=rs("goods_id")%></td>
							<td align="center" class="tablebody1"><a href="goods_info.asp?goods_id=<%=rs("goods_id")%>" target="_blank">
							<img src="<%=rs("goods_pic")%>" height=60 width=60 border=0 style="border: 1px solid #C0C0C0; "></a></td>
							<td align="center" class="tablebody1"><%=rs("goods_name")%></td>
							<td align="center" class="tablebody1"><% 
		  Select Case rs("font")
                Case "1"
                response.write "<img src=img/good.gif border=0 alt=推荐商品>"
                 End Select
		   %></td>
							<td align="center" class="tablebody1"><%=rs("goods_price")%>元</td>
							<td align="center" class="tablebody1"><%=rs("goods_amount")%>个</td>
							<td align="center" class="tablebody1"><% 
		  Select Case rs("AlipayStatus")
                Case "1"
                response.write "<img src=images/AlipayStatus.gif border=0 alt=支持支付宝>"
                
                 End Select
		   %></TD></td>
							<td align="center" class="tablebody1"><%=rs("goods_date")%></td>
							<td align="center" class="tablebody1"><%=rs("goods_hits")%></td>
						</tr><%
	      Rs.MoveNext
		Loop      
	  End IF
	  %>

					</table>
					
<table  width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page">
              <tr>
                <td><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>
 
<!--#include file="bottom.asp"--> 

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

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