📄 product_store_detail.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"))
cangku1=request.form("cangku")
guige=request.form("guige")
'查询代码开始
names=Split(SeachModel,", ")
i=0
sql="select * from product_Store where"
for each name in names
if names(i)="1" then
sql=sql+" and cangku = '"&cangku1&"'"
end if
if names(i)="2" then
sql=sql+" and pinming like '%"&pinming&"%'"
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="620" border="1" cellpadding="0" cellspacing="0" bgcolor="#ffffff" bordercolor="#000000">
<tr><td height="35" colspan="10" align="center"><font size="4" face="黑体"><b>库存产品汇总明细</b></font></td></tr>
<tr>
<td width="150" height="18" align="center" >仓库</td>
<td width="100" height="18" align="center" >优级品数</td>
<td width="100" height="18" align="center" >一级品数</td>
<td width="100" height="18" align="center" >合格品数</td>
<td width="100" height="18" align="center" >等外品数</td>
<td width="100" height="18" align="center" >总产量</td>
</tr>
<%
dim i
i=0
num=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" width="150" align="center" ><%=rs("cangku")%></td>
<td width="100" align="center"><%=Formatnumber(rs("youjipin_num"),2,-1,0,0)%></td>
<td width="100" align="center"><%=Formatnumber(rs("yijipin_num"),2,-1,0,0)%></td>
<td width="100" align="center"><%=Formatnumber(rs("hegepin_num"),2,-1,0,0)%></td>
<td width="100" align="center"><%=Formatnumber(rs("dengwaipin_num"),2,-1,0,0)%></td>
<td width="100" align="center"><%=Formatnumber(rs("number"),2,-1,0,0)%></td>
</tr>
<%
num=num+rs("number")
youji=youji+rs("youjipin_num")
yiji=yiji+rs("yijipin_num")
hege=hege+rs("hegepin_num")
dengwai=dengwai+rs("dengwaipin_num")
rs.movenext
loop
end if
%>
<tr><td colspan="6" height="30"> 符合查询条件的库存记录总共为 <font color="#cc0000"><%=i%></font> 条</td></tr>
<td height="18" width="150" align="center" > </td>
<td width="100" align="center"><%=Formatnumber(youji,2,-1,0,0)%></td>
<td width="100" align="center"><%=Formatnumber(yiji,2,-1,0,0)%></td>
<td width="100" align="center" ><%=Formatnumber(hege,2,-1,0,0)%></td>
<td width="100" align="center"><%=Formatnumber(dengwai,2,-1,0,0)%></td>
<td width="100" align="center"><%=Formatnumber(num,2,-1,0,0)%></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 + -