📄 product_out_detail.asp

📁 asp_erp 源碼附詳盡使用說明及數據庫
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css/main.css" rel="stylesheet" type="text/css">
<title>∷企业生产管理信息系统∷</title>
<!--media=print 这个属性可以在打印时有效--> 
<style media=print> 
.Noprint{display:none;} 
.PageNext{page-break-after: always;} 
</style>
</head>
<body leftmargin="30" topmargin="20">
<%
dim SeachModel
SeachModel=request.form("SeachModel")
pinming=trim(request.form("pinming"))
use_dep=request.form("use_dep")
class1=request.form("class")
guige=request.form("guige")
uptime=cstr(trim(request.form("uptime")))
uptime1=cstr(trim(request.form("uptime1")))
end_time=cstr(trim(request.form("end_time")))
end_time1=cstr(trim(request.form("end_time1")))
nian=cstr(trim(request.form("nian")))
'查询代码开始
names=Split(SeachModel,", ")
i=0
sql="select * from product_out_store where"
for each name in names
if names(i)="1" then
sql=sql+" and class = '"&class1&"'"
end if
if names(i)="5" then
sql=sql+" and uptime  between  #"&uptime&"# and #"&uptime1&"#"
end if
if names(i)="6" then
sql=sql+" and end_time  between  #"&end_time&"# and #"&end_time1&"#"
end if

if names(i)="7" then
sql=sql+" and uptime  between  #"&uptime&"# and #"&uptime1&"#"
end if

if names(i)="8" then
sql=sql+" and year(uptime) = '"&nian&"'"
end if

if names(i)="2" then
sql=sql+" and pinming like '%"&pinming&"%'"
end if
if names(i)="4" then
sql=sql+" and use_dep = '"&use_dep&"'"
end if
if names(i)="3" then
sql=sql+" and guige = '"&guige&"'"
end if
i=i+1
next
sql=sql+" order by -id"
set rs=server.createobject("adodb.recordset")
sql=Replace(sql, "where and", "where")

%>

<table width="920" border="1" cellpadding="0" cellspacing="0" bgcolor="#ffffff"  bordercolor="#000000">
          <tr><td height="35" colspan="11" align="center"><font size="4" face="黑体"><b>产品出库汇总明细</b></font></td></tr>
		  <tr> 
 			<td width="95" height="18" align="center" >出库日期</td>
                        <td width="95" height="18" align="center" >仓库</td>
			<td width="95" height="18" align="center" >优级品</td>
			<td width="95" height="18" align="center" >一级品</td>
			<td width="95" height="18" align="center" >合格品</td>
			<td width="95" height="18" align="center" >等外品</td>
			<td width="95" height="18" align="center" >总量</td>
			<td width="180" height="18" align="center" >购货单位</td>
          </tr>
          
                  <% 
				  dim i
				  i=0
				  Loan_num=0
				  Loan_Amount=0
         rs.open sql,conn,1,1
		 if rs.eof and rs.bof then
		response.write "<tr><td><br><br><center>还没有符合条件的查询！</center><br><br></td></tr>"
		else
		 do while not rs.eof
		 i=i+1
		   %>

                  <tr>
<td height="18" align="center" width="95"><%=rs("uptime")%></td>
<td align="center" width="95"><%=rs("class")%></td>
<td align="center" width="95"><%=Formatnumber(rs("youjipin"),2,-1,0,0)%></td>
<td align="center" width="95"><%=Formatnumber(rs("yijipin"),2,-1,0,0)%></td>
<td align="center" width="95"><%=Formatnumber(rs("hegepin"),2,-1,0,0)%></td>
<td align="center" width="95"><%=Formatnumber(rs("dengwaipin"),2,-1,0,0)%></td>
<td align="center" width="95"><%=Formatnumber(rs("Loan_num"),2,-1,0,0)%></td>
<td align="center" width="180"><%=rs("use_dep")%></td>




</tr>
				  
                  <%
youjipin_num=youjipin_num+rs("youjipin")
yijipin_num=yijipin_num+rs("yijipin")
hegepin_num=hegepin_num+rs("hegepin")
dengwaipin_num=dengwaipin_num+rs("dengwaipin")
Loan_num=Loan_num+rs("Loan_num")

rs.movenext
loop
end if
%>
                   <tr><td colspan="8" height="30">  符合查询条件的出库记录总共为 <font color="#cc0000"><%=i%></font> 条</td></tr>

                  <tr>



<td height="18" align="center" width="95"><font color="red">总计：</font></td>
<td align="center" width="95">&nbsp;</td>
<td align="center" width="95"><font color="red"><%=youjipin_num%></font></td>
<td align="center" width="95"><font color="red"><%=yijipin_num%></font></td>
<td align="center" width="95"><font color="red"><%=hegepin_num%></font></td>
<td align="center" width="95"><font color="red"><%=dengwaipin_num%></font></td>
<td align="center" width="95"><font color="red"><%=Loan_num%></font></td>
<td align="center" width="180">&nbsp;</td>




</tr>
				</table>
				<table>
				<tr><td height="30" colspan="10" align="center"><OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0 VIEWASTEXT> 
</OBJECT> 
<input type=button value=打印 onClick="document.all.WebBrowser.ExecWB(6,1)" class="NOPRINT"> 
<input type=button value=直接打印 onClick="document.all.WebBrowser.ExecWB(6,6)" class="NOPRINT"> 
<input type=button value=页面设置 onClick="document.all.WebBrowser.ExecWB(8,1)" class="NOPRINT"> 
<input type=button value=打印预览 onClick="document.all.WebBrowser.ExecWB(7,1)" class="NOPRINT">
</td></tr>
				</table>
				
</body>
</html>
⌨️ 快捷键说明

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