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

开发平台：
DOS

In_Compiles1.asp：源码内容
							<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="checkuser.asp"-->
<head>
<style type="text/css">
<!--
.select {
	color: #FFFFFF;
	background-color: #08246b;
}
.offline {
	filter: Gray;
}
-->
</style>
<title>查找结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript src="css/User_Info_Modify.js"></SCRIPT>
</head>
<body >
  <table width="100%" border="1" cellspacing="0" bordercolor="#D6D3CE">
  <tr><td align="center" height="30"><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 Supplier from In_Store where uptime  between  #"&end_time&"# and #"&end_time1&"# group by Supplier",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="99%" border="0" cellpadding="1" cellspacing="0" bgcolor="#D4D0C8" class="tddown">
          <tr class="but"> 
            
            <td width="120" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">送交单位</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="60" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=cla(j)%></td>
<%rs.movenext
loop%>
<%
end if
rs.close
set rs=nothing
%>
	<td width="60" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">合 计</td>
          </tr>
          
				<%
Dim num(100,100)
dim n(100)
m=1
f=1
for m=1 to i
%>
<tr><td height="20" width="120" bgcolor="#FFFFFF"> <%=names(m)%></a></td>
<%
n(m)=0
for f=1 to j
set Rs=server.createobject("adodb.recordset")
rs.open "select sum(use_Amount) from In_Store where supplier='"&names(m)&"' and class='"&cla(f)&"' and (uptime  between  #"&end_time&"# and #"&end_time1&"#) group by Supplier",conn,1,1
if not rs.eof then 
num(m,f)=rs(0)
n(m)=n(m)+num(m,f)
%>                
<td  width="60" align="right"  bgcolor="#FFFFFF"><font color="#CC3300"><%=num(m,f)%>&nbsp;</td>
<%
else
num(m,f)=0
%>
<td width="60" align="right" bgcolor="#FFFFFF"><%=num(m,f)%>&nbsp;</td>
<%
end if
rs.close
set rs=nothing
next
%>
<td width="60" align="right" bgcolor="#FFFFFF"><font color="#FF6600"><%=n(m)%></font>&nbsp;</td>
</tr>
<tr><td colspan="18" height="1" bgcolor="#000000"></td></tr>
<%
next
%>
 <tr class="but"> 
            
            <td width="120" align="center"  bgcolor="#FFFFFF">合 计</td>
			<%
			y=0
			for f=1 to j
			%>
<td width="60" height="20" align="right" bgcolor="#FFFFFF">
<%
w=0
for m=1 to i
w=w+num(m,f)
y=y+num(m,f)
next
%><font color="#FF0000"><%=w%></font>&nbsp;</td>
<%next%>
	<td width="60" align="right" bgcolor="#FFFFFF"><font color="#FF0000"><%=y%></font>&nbsp;</td>
          </tr>
<tr><td colspan="18" height="1" bgcolor="#000000"></td></tr>
<tr><td colspan="16" height="30" bgcolor="#FFFFFF">  付单： <font color="#cc0000"><%=i%></font> 张</td></tr>
        </table>
		<br>
				<table cellpadding="0">
				<form name="search" method="post" action="In_Detail1.asp" target="_blank" >
				  <tr><td>
				   <input name="end_time" type="hidden" value="<%=end_time%>">
				  <input name="end_time1" type="hidden" value="<%=end_time1%>">
				  <input type="submit" name="sub"  value="生成明细表"></td></tr></form></table>
	</TD></TR>
  </table>
</body>
</html>
<!--#include file="footer.htm"--></TD>
 </BODY></HTML>

						