?? out_detail1.asp
字號:
<!--#include file="conn.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">
<table width="1000" border="1" cellspacing="0" bordercolor="#D6D3CE">
<tr><td align="center" height="50"><font size="4"><%=year(request.Form("end_time"))%>年<%=month(request.Form("end_time"))%>月 配件出庫匯總表</font></td></tr>
<tr><td align="center">
<%
end_time=request.Form("end_time")
end_time1=request.Form("end_time1")
Dim names(100)
i=0
set Rs=server.createobject("adodb.recordset")
rs.open "select use_dep from out_Store where uptime between #"&end_time&"# and #"&end_time1&"# group by use_dep",conn,1,1
if not rs.eof then
do while not rs.eof
i=i+1
names(i)=rs(0)
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF">
<tr>
<td width="160" height="20" align="center" >送交單位</td>
<%
Dim cla(20)
j=0
set Rs=server.createobject("adodb.recordset")
rs.open "select classnumber from class ",conn,1,1
if not rs.eof then
do while not rs.eof
j=j+1
cla(j)=rs(0)
%>
<td width="75" align="center" ><%=cla(j)%></td>
<%rs.movenext
loop%>
<%
end if
rs.close
set rs=nothing
%>
<td width="80" align="center" >合 計</td>
</tr>
<%
Dim num(100,100)
dim n(100)
m=1
f=1
for m=1 to i
%>
<tr><td height="20" > <%=names(m)%></a></td>
<%
n(m)=0
for f=1 to j
set Rs=server.createobject("adodb.recordset")
rs.open "select sum(Loan_Amount) from out_Store where use_dep='"&names(m)&"' and class='"&cla(f)&"' and (uptime between #"&end_time&"# and #"&end_time1&"#) group by use_dep",conn,1,1
if not rs.eof then
num(m,f)=rs(0)
n(m)=n(m)+num(m,f)
%>
<td align="right" ><%=num(m,f)%> </td>
<%
else
num(m,f)=0
%>
<td align="right" ><%=num(m,f)%> </td>
<%
end if
rs.close
set rs=nothing
next
%>
<td align="right" ><%=n(m)%> </td>
</tr>
<%
next
%>
<tr>
<td align="center" bgcolor="#FFFFFF">合 計</td>
<%
y=0
for f=1 to j
%>
<td height="20" align="right" bgcolor="#FFFFFF">
<%
w=0
for m=1 to i
w=w+num(m,f)
y=y+num(m,f)
next
%><%=w%> </td>
<%next%>
<td align="right" bgcolor="#FFFFFF"><%=y%> </td>
</tr>
<tr><td colspan="16" height="30" bgcolor="#FFFFFF"> 付單： <%=i%> 張</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 + -