📄 stockpile_list.asp

📁 ASP数据库系统开发案例精选(光盘）中的客户关系管理系统用户名/密码：admin/admin
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<%
'接受的参数，默认为出库
ty=request("ty")
if ty="" then
ty="出库"
end if
if ty="库存" then
set rs=server.CreateObject("adodb.recordset")
sql="SELECT dbo.tb_Stockpile.id,dbo.tb_Product.ProductNumber, dbo.tb_Product.ProductName,dbo.tb_Stockpile.StockpileProductNumber, dbo.tb_Stockpile.StockpileType,dbo.tb_Stockpile.SetTime FROM dbo.tb_Stockpile INNER JOIN dbo.tb_Product ON dbo.tb_Stockpile.StockpileProductName = dbo.tb_Product.id  where (dbo.tb_Stockpile.StockpileProductName = "&request("id")&") ORDER BY dbo.tb_Stockpile.id DESC"
rs.open sql,conn,1,1
else
set rs=server.CreateObject("adodb.recordset")
sql="SELECT dbo.tb_Stockpile.id,dbo.tb_Product.ProductNumber, dbo.tb_Product.ProductName,dbo.tb_Stockpile.StockpileProductNumber, dbo.tb_Stockpile.StockpileType,dbo.tb_Stockpile.SetTime FROM dbo.tb_Stockpile INNER JOIN dbo.tb_Product ON dbo.tb_Stockpile.StockpileProductName = dbo.tb_Product.id WHERE (dbo.tb_Stockpile.StockpileType = '"&ty&"') AND (dbo.tb_Stockpile.StockpileProductName = "&int(request("id"))&") ORDER BY dbo.tb_Stockpile.id DESC"
rs.open sql,conn,1,1
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #DFEEFF;
}
.style3 {color: #FFFFFF}
-->
</style></head>
<script language="javascript">
function HLItem(obj){
	obj.oldClassName=obj.className;
	obj.className="List";
}
function Re(obj){
 obj.className=obj.oldClassName
}

</script>

<body>
<table width="100%"  border="0" >
  <tr>
    <td valign="top">	<fieldset class="fiedset">
  <legend>
  <input name="radiobutton" type="radio" value="radiobutton" onClick="location='Stockpile_List.asp?id=<%=request("id")%>&ty=出库'" <%if ty="出库" then%> checked <%end if%>>
  出库列表
  <input name="radiobutton" type="radio" value="radiobutton" onClick="location='Stockpile_List.asp?id=<%=request("id")%>&ty=入库'" <%if ty="入库" then%> checked <%end if%>> 
  入库列表
  <input type="radio" name="radiobutton" value="radiobutton" onClick="location='Stockpile_List.asp?id=<%=request("id")%>&ty=库存'" <%if ty="库存" then%> checked <%end if%>>
库存记录</legend>
  <form name="form2" method="post" action="Stockpile_del.asp?p=<%=request("p")%>&ty=<%=ty%>&id=<%=request("id")%>">
    <table width="90%"  border="0" align="center" cellspacing="0">
      <tr>
        <td width="6%"><table width="100%"  border="0" cellspacing="0" class="table">
          <tr>
            <td bgcolor="#000099" class="listTitle">&nbsp;</td>
          </tr>
		  		  <%
		  if not rs.eof then
		  tol=rs.recordcount
		  rs.pagesize=15
		  maxpage=rs.pagecount
		  requestpage=clng(request("p"))
		  if requestpage="" or requestpage=0 then
		  requestpage=1
		  end if
		  if requestpage>maxpage then
		  requestpage=maxpage
		  end if
		  if requestpage<>1 then
		  rs.move (requestpage-1)*rs.pagesize
		  end if
		  for i=1 to rs.pagesize and not rs.eof 
		  if i mod 2=1 then
		  bg="#FFFFFF"
		  else
		  bg="#efefef"
		  end if
		  %>
          <tr>
            <td align="center" bgcolor=<%=bg%>><input name="del" type="checkbox" id="del" value="<%=rs("id")%>"></td>
          </tr>
		  		  <%
		  	rs.movenext
			if rs.eof then exit for
			next
			else
			response.Write("&nbsp;")
			end if
		  %>
        </table></td>
        <td width="94%"><table width="100%"  border="0" align="center" cellspacing="0" bordercolor="#FFFFFF" class="table">
          <tr bordercolor="#ffffff" cellpadding="0">
            <td width="19%" align="center"  class="listTitle">产品编号</td>
            <td width="19%" align="center"  class="listTitle">产品名称</td>
            <td width="19%" align="center"  class="listTitle">数量</td>
            <td width="19%" align="center"  class="listTitle">库存类型</td>
			<td width="19%" align="center"  class="listTitle">登记时间</td>
          </tr>
		  <%
if ty="库存" then
set rs=server.CreateObject("adodb.recordset")
sql="SELECT dbo.tb_Stockpile.id,dbo.tb_Product.ProductNumber, dbo.tb_Product.ProductName,dbo.tb_Stockpile.StockpileProductNumber, dbo.tb_Stockpile.StockpileType,dbo.tb_Stockpile.SetTime FROM dbo.tb_Stockpile INNER JOIN dbo.tb_Product ON dbo.tb_Stockpile.StockpileProductName = dbo.tb_Product.id where (dbo.tb_Stockpile.StockpileProductName = "&request("id")&")  ORDER BY dbo.tb_Stockpile.id DESC"
rs.open sql,conn,1,1
else
set rs=server.CreateObject("adodb.recordset")
sql="SELECT dbo.tb_Stockpile.id,dbo.tb_Product.ProductNumber, dbo.tb_Product.ProductName,dbo.tb_Stockpile.StockpileProductNumber, dbo.tb_Stockpile.StockpileType,dbo.tb_Stockpile.SetTime FROM dbo.tb_Stockpile INNER JOIN dbo.tb_Product ON dbo.tb_Stockpile.StockpileProductName = dbo.tb_Product.id WHERE (dbo.tb_Stockpile.StockpileType = '"&ty&"') AND (dbo.tb_Stockpile.StockpileProductName = "&int(request("id"))&") ORDER BY dbo.tb_Stockpile.id DESC"
rs.open sql,conn,1,1
end if

		  if not rs.eof then
		  tol=rs.recordcount
		  rs.pagesize=15
		  maxpage=rs.pagecount
		  requestpage=clng(request("p"))
		  if requestpage="" or requestpage=0 then
		  requestpage=1
		  end if
		  if requestpage>maxpage then
		  requestpage=maxpage
		  end if
		  if requestpage<>1 then
		  rs.move (requestpage-1)*rs.pagesize
		  end if
		  for i=1 to rs.pagesize and not rs.eof 
		  if i mod 2=1 then
		  bg="#FFFFFF"
		  else
		  bg="#efefef"
		  end if
		  %>
          <tr align="center" bgcolor=<%=bg%> style="cursor:hand" onClick="window.parent.frames('bo').window.location = 'Stockpile_ed.asp?id=<%=rs("id")%>'" onMouseOver="HLItem(this)" onMouseOut="Re(this)">
            <td height="22"><%=rs("ProductNumber")%></td>
            <td><%=rs("ProductName")%></td>
            <td>
<%=rs("StockpileProductNumber")%>
			</td>
            <td>
<%=rs("StockpileType")%>
			</td>
			<td>
			<%=rs("SetTime")%>
			</td>
          </tr>
		  <%
		  	rs.movenext
			if rs.eof then exit for
			next
			else
			response.Write("没有客户信息，请<a href='Stockpile_add.asp' target='bo'>添加</a>")
			end if
		  %>
        </table></td>
      </tr>
    </table>
    <table width="90%"  border="0" align="center">
      <tr>
        <td width="37%">&nbsp;</td>
        <td width="63%" align="right"> <a href="Stockpile_List.asp?p=1&id=<%=request("id")%>&ty=<%=ty%>">首页</a> <a href="Stockpile_List.asp?p=<%=requestpage-1%>&id=<%=request("id")%>&ty=<%=ty%>">上一页</a> <a href="Stockpile_List.asp?p=<%=requestpage+1%>&id=<%=request("id")%>&ty=<%=ty%>">下一页</a> <a href="Stockpile_List.asp?p=<%=maxpage%>&id=<%=request("id")%>&ty=<%=ty%>">最后一</a> 当前页：<%=requestpage%> 总页数：<%=maxpage%> 总客户数：<%=tol%> &nbsp;每页显示15条信息</td>
      </tr>
    </table>
  </form>
  <p><br>
      </p>
	 </fieldset></td>
  </tr>
</table>

</body>
</html>
💿 文件大小 382 K
👤 上传用户 zhou28
📂 所属分类软件测试
🏷️ 相关标签

#admin #ASP #数据库 #光盘
⌨️ 快捷键说明

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