📄 kucha.asp

📁 一款用ASP写的办公自动化软件
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<%
if request("post")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from kucun where xinghao like '%"&request("search")&"%'  order by time desc"
rs.open sql,conn,1,1
set rs1=server.CreateObject("adodb.recordset")
sql1="select sum(fa) as ff from kucun where xinghao like '%"&request("search")&"%' "
rs1.open sql1,conn,1,1
set rs2=server.CreateObject("adodb.recordset")
sql2="select sum(ru) as rr from kucun where xinghao like '%"&request("search")&"%'"
rs2.open sql2,conn,1,1
else

set rs=server.CreateObject("adodb.recordset")
sql="select * from kucun order by time desc"
rs.open sql,conn,1,1
set rs1=server.CreateObject("adodb.recordset")
sql1="select sum(fa) as ff from kucun"
rs1.open sql1,conn,1,1
set rs2=server.CreateObject("adodb.recordset")
sql2="select sum(ru) as rr from kucun"
rs2.open sql2,conn,1,1
End If 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #CCCCCC;
}
a:active {
	text-decoration: none;
}
body {
	background-color: #ffffff;
}
.style3 {font-size: 16px; font-weight: bold;}
.style5 {color: #000000}
.style6 {color: #FFFFFF}
-->
</style>
</head>

<body>
<form name="form1" method="post" action="">
  <table width="627"  border="0" align="center" bgcolor="#000000">
    <tr>
      <td height="32" bgcolor="BC82D6"><blockquote>
        <p><span class="style6"><span class="style5">　请输入查询关键字：</span>        
              <input name="search" type="text" id="search">
              <input name="post" type="hidden" id="post" value="true">
              <input type="submit" name="Submit" value="查询">
        </span></p>
      </blockquote></td>
    </tr>
  </table>
</form>
<br>
<table width="627" height="190" border="0" align="center" cellspacing="1" bgcolor="#336699">
  <tr bgcolor="BC82D6">
    <td height="61" colspan="5"><div align="center" class="style3 style6">库存盘点表</div></td>
  </tr>
  <tr>
    <td width="111" height="32" background="images/tile_sub.gif"><div align="center" class="style5">产品名称</div></td>
    <td width="111" background="images/tile_sub.gif"><div align="center" class="style5">发出</div></td>
    <td width="111" background="images/tile_sub.gif"><div align="center" class="style5">入库</div></td>
    <td width="111" background="images/tile_sub.gif"><div align="center" class="style5">库存</div></td>
    <td width="161" background="images/tile_sub.gif"><div align="center" class="style5">日期</div></td>
  </tr>
  <%
	if not rs.eof then
	zong=rs.recordcount
	shownum=15
	rs.pagesize=shownum
	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
	
	%>
  <tr>
    <td height="24" bgcolor="#FFFFFF"><div align="center"><%=rs("xinghao")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%= rs("fa") %></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%= rs("ru") %></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%= rs("ru")-rs("fa") %></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%= rs("time") %></div></td>
  </tr>
  <%
  rs.movenext
  if rs.eof then exit for 
  next
  else 
 response.Write("暂无信息")
 end if 
  %>
  <tr>
    <td height="17" bgcolor="#CCCCCC"><div align="center">合计</div></td>
    <td bgcolor="#CCCCCC"><div align="center">
    <%= rs1("ff") %></div></td>
    <td bgcolor="#CCCCCC"><div align="center">

      <%= rs2("rr") %></div></td>
    <td bgcolor="#CCCCCC">
      <div align="center"><%= rs2("rr")-rs1("ff") %></div></td>
    <td bgcolor="#CCCCCC"></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="30" colspan="5"><table width="100%"  border="0">
        <tr>
          <td width="32%">【<a href=javascript:window.print();>打印</a>】</td>
          <td width="68%"><div align="right">【<a href=kucha.asp?p=1>第一页</a>】　【<a href=kucha.asp?p=<%=requestpage-1%>>上一页</a>】　【<a href=kucha.asp?p=<%=requestpage+1%>>下一页</a>】　【<a href=kucha.asp?p=<%=maxpage%>>最后一页</a>】 </div></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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