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

开发平台：
DOS

store_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">查询 <%=request.Form("class")%> 从 <%=request("end_time")%> 到 <%=request("end_time1")%> 的库存记录</td></tr><tr><td align="center">
<table width="80%" border="0" cellpadding="1" cellspacing="0" bgcolor="#D4D0C8" class="tddown">
          <tr class="but"> 
            
            <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">类 别</td>
            <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">配件名称</td>
            <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">车 型</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">入库量</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">出库量</td>
			<td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">数 量</td>
          </tr>
          <tr valign="top" bgcolor="#FFFFFF"> 
            <td colspan="12" align="center" class="iframe"> 
                <table width="100%" border="0" cellpadding="0" cellspacing="0" class="mouse">
                 <%
				 i=0
end_time=request.Form("end_time")
end_time1=request.Form("end_time1")
class1=request.Form("class")
 set Rs=server.createobject("adodb.recordset")
 if class1="" then
   rs.open "select class,pinming,guige,sum(use_num) as num1 from In_Store  where uptime  between  #"&end_time&"# and #"&end_time1&"# group by class,pinming,guige",conn,1,1
   else
   rs.open "select class,pinming,guige,sum(use_num) as num1 from In_Store  where class='"&class1&"' and (uptime  between  #"&end_time&"# and #"&end_time1&"#) group by class,pinming,guige",conn,1,1
   end if
	if not rs.eof then 
do while not rs.eof
class1=rs("class")
pinming=rs("pinming")
guige=rs("guige")
%>
<% set Rs0=server.createobject("adodb.recordset")
   rs0.open "select class,pinming,guige,sum(Loan_num) as num2 from out_Store  where class='"&class1&"' and pinming='"&pinming&"'   and guige='"&guige&"' and (uptime  between  #"&end_time&"# and #"&end_time1&"#) group by class,pinming,guige",conn,1,1
if rs0.eof then
num2=0
else
num2=rs0("num2")
end if
%>
                  <tr <%if i mod 2 =0 then%> bgcolor="#EEEEEE"<%end if%>>
<td height="18" width="20%" align="center" ><font color="#CC3300"><%=rs("class")%></font><%if rs("class")="" then%>&nbsp;<%end if%></td>
<td height="18" width="20%">&nbsp;<font color="#000099"><%=rs("pinming")%></font></td>
<td height="18" width="20%" align="center">&nbsp;<%=rs("guige")%></td>
<td height="18" width="10%" align="right"> <%=rs("num1")%>&nbsp;</td>
<td height="18" width="10%" align="right"><%=num2%>&nbsp;</td>
<td height="18" width="20%" align="right" ><%=rs("num1")-num2%>&nbsp;</td>
</tr>
				  
<%
rs0.close
set rs0=nothing
i=i+1
%>
<%rs.movenext%>
<%loop%>
<%
end if
rs.close
set rs=nothing
%>
                   <tr><td colspan="3" height="30">  符合查询条件的库存记录总共为 <font color="#cc0000"><%=i%></font> 条</td><td  align="right"></td><td align="right"></td></tr>
				</table>
				
              </td>
          </tr>
        </table>
		<br>
				<table cellpadding="0">
				<form name="search" method="post" action="store_Detail1.asp" target="_blank" >
				  <tr><td>
				  <input name="end_time" type="hidden" value="<%=end_time%>">
				  <input name="class" type="hidden" value="<%=class1%>">
				  <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>

						