⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 goods_manage.asp

📁 ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFANSHI:BINDIYI@163.COM
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Cookies.asp"-->
 <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发货管理</title>
<style type="text/css">
<!--
.style1 {color: #0000FF}
-->
</style>
</head>
<body>
<h1 align="center" class="style1">&nbsp;</h1>
<h1 align="center" class="style1">货物发布管理</h1>
<%
dim rs,us
 set rs=server.CreateObject("adodb.recordset")
 us="select * From goods"
rs.Open us,conn,1
%>
<table width="98%" height="82" border="1" bordercolor="#0000FF">
  <tr>
    <th width="7%" height="44" scope="col">物品ID</th>
    <th width="9%" scope="col">物品名称</th>
    <th width="9%" scope="col">一级类别</th>
    <th width="9%" scope="col">二级类别</th>
    <th width="5%" scope="col">单价</th>
    <th width="9%" scope="col">面向地区</th>
    <th width="7%" scope="col">存货量</th>
    <th width="9%" scope="col">已售出量</th>
    <th width="9%" scope="col">折扣信息</th>
    <th width="7%" scope="col">查看</th>
  </tr>
  <%
				if Not rs.EOF and Not rs.BOF then
					if Request.QueryString("page_no")="" then
					page_no=1
					else
					page_no=cint(Request.QueryString("page_no"))
					end if
					rs.PageSize=10
					rs.AbsolutePage=page_no
					dim I
					I=rs.PageSize
				
				do while Not rs.EOF and I>0
				I=I-1
						
				  %>
    <tr>
    <th height="30" scope="row"><%=rs("goods_id")%></th>
    <th><%=rs("name")%></th>
    <th><%=rs("class1")%></th>
    <th><%=rs("class2")%></th>
    <th><%=rs("price")%></th>
    <th><%=rs("area")%></th>
    <th><%=rs("inventory")%></th>
    <th><%=rs("sale_num")%></th>
    <th><%=rs("discount")%></th>
    <th> <a href="goodsinfo.asp?goods_id=<%=rs("goods_id")%>">查看</a></th>
  </tr>
  <%
				  rs.MoveNext 
				   loop
				 %> 
</table>
<table width="751" border="0">
              <tr>
                <th width="745" scope="col">请选择页面:
                  <%
			for I=1 to rs.PageCount
			  if I=page_no then
			    Response.Write I & "&nbsp"
			  else
			  
			    Response.Write ("<a href='goods_manage.asp?page_no=" & I & "'>" & I & "</a>")
			 end if
			next
			else
			 Response.Write "没有用户!"
			 end if
			%>&nbsp;</th>
              </tr>
            </table>
		
		<% 
    rs.close
    set rs=nothing
	call closedb()
%>
      
          <table width="751" border="1">
            <tr>
              <th width="307" scope="col">&nbsp;</th>
              <th width="270" scope="col"><a href="goods_add.asp">添加货物</a></th>
              <th width="152" scope="col">&nbsp;</th>
            </tr>
          </table>
       
</body>
</html>

⌨️ 快捷键说明

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