WEB源码(ASP,PHP,...)

开发平台：

DOS

store_Detail2.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"><%=request.Form("nian")%>年—<%=request.Form("nian1")%>年  余额查询</font></td></tr>
  <tr><td align="center">
<%
nian=request.Form("nian")
%>
<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>
          
<%
nian=request.Form("nian")
nian1=request.Form("nian1")
end_time0=nian&"-1-1"
for i=nian to nian1
for m=1 to 12
end_time=i&"-"&m&"-1"
end_time1=DateAdd("m",1,end_time)-1
%>
<tr><td height="20" >&nbsp;<%=i%>年<%=m%>月 </a></td>
<%
n=0
for f=1 to j
set Rs=server.createobject("adodb.recordset")
rs.open "select sum(use_Amount) from In_Store where  class='"&cla(f)&"' and (uptime  between  #"&end_time0&"# and #"&end_time1&"#) group by class",conn,1,1
if not rs.eof then 
num=rs(0)
n=n+num
else
num=0
end if
rs.close
set rs=nothing
set Rs=server.createobject("adodb.recordset")
rs.open "select sum(Loan_Amount) from out_Store where  class='"&cla(f)&"' and (uptime  between  #"&end_time0&"# and #"&end_time1&"#) group by class",conn,1,1
if not rs.eof then 
num1=rs(0)
n=n-num1
else
num1=0
end if
rs.close
set rs=nothing
%>
<td width="60" align="right" bgcolor="#FFFFFF"><%=num-num1%>&nbsp;</td>
<%
next
%>
<td width="60" align="right" bgcolor="#FFFFFF"><font color="#FF6600"><%=n%></font>&nbsp;</td>
</tr>
<%
next
next
%>
        </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>

						