store_Compiles2.asp
上传用户:apresys
上传日期:2021-03-30
资源大小:813k
文件大小:3k
源码类别:

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

开发平台:

DOS

  1. <!--#include file="conn.asp"-->
  2. <!--#include file="top.asp"-->
  3. <!--#include file="checkuser.asp"-->
  4. <head>
  5. <style type="text/css">
  6. <!--
  7. .select {
  8. color: #FFFFFF;
  9. background-color: #08246b;
  10. }
  11. .offline {
  12. filter: Gray;
  13. }
  14. -->
  15. </style>
  16. <title>查找结果</title>
  17. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  18. <link href="css/main.css" rel="stylesheet" type="text/css">
  19. <SCRIPT language=JavaScript src="css/User_Info_Modify.js"></SCRIPT>
  20. </head>
  21. <body >
  22.   <table width="100%" border="1" cellspacing="0" bordercolor="#D6D3CE">
  23.   <tr><td align="center" height="30"><font size="4"><%=request.Form("nian")%>年—<%=request.Form("nian1")%>年  余额查询</font></td></tr>
  24.   <tr><td align="center">
  25. <%
  26. nian=request.Form("nian")
  27. %>
  28. <table width="99%" border="0" cellpadding="1" cellspacing="0" bgcolor="#D4D0C8" class="tddown">
  29.           <tr class="but"> 
  30.             <td width="80" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">月 份</td>
  31.             
  32. <%
  33. Dim cla(20)
  34. j=0
  35. set Rs=server.createobject("adodb.recordset")
  36. rs.open "select classnumber from class ",conn,1,1
  37. if not rs.eof then 
  38. do while not rs.eof
  39. j=j+1
  40. cla(j)=rs(0)
  41. %>
  42. <td width="60" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=cla(j)%></td>
  43. <%rs.movenext
  44. loop%>
  45. <%
  46. end if
  47. rs.close
  48. set rs=nothing
  49. %>
  50. <td width="60" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">合 计</td>
  51.           </tr>
  52. <%
  53. nian=request.Form("nian")
  54. nian1=request.Form("nian1")
  55. end_time0=nian&"-1-1"
  56. for i=nian to nian1
  57. for m=1 to 12
  58. end_time=i&"-"&m&"-1"
  59. end_time1=DateAdd("m",1,end_time)-1
  60. %>
  61. <tr><td height="20" width="120" bgcolor="#FFFFFF"> <%=i%>年<%=m%>月 </td>
  62. <%
  63. n=0
  64. for f=1 to j
  65. set Rs=server.createobject("adodb.recordset")
  66. 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
  67. if not rs.eof then 
  68. num=rs(0)
  69. n=n+num
  70. else
  71. num=0
  72. end if
  73. rs.close
  74. set rs=nothing
  75. set Rs=server.createobject("adodb.recordset")
  76. 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
  77. if not rs.eof then 
  78. num1=rs(0)
  79. n=n-num1
  80. else
  81. num1=0
  82. end if
  83. rs.close
  84. set rs=nothing
  85. %>
  86. <td width="60" align="right" bgcolor="#FFFFFF"><%=num-num1%>&nbsp;</td>
  87. <%
  88. next
  89. %>
  90. <td width="60" align="right" bgcolor="#FFFFFF"><font color="#FF6600"><%=n%></font>&nbsp;</td>
  91. </tr>
  92. <tr><td colspan="18" height="1" bgcolor="#000000"></td></tr>
  93. <%
  94. next
  95. next
  96. %>
  97.         </table>
  98. <br>
  99. <table cellpadding="0">
  100. <form name="search" method="post" action="store_Detail2.asp" target="_blank" >
  101.   <tr><td>
  102.    <input name="nian" type="hidden" value="<%=nian%>">
  103.    <input name="nian1" type="hidden" value="<%=nian1%>">
  104.   <input type="submit" name="sub"  value="生成明细表"></td></tr></form></table>
  105. </TD></TR>
  106.   </table>
  107. </body>
  108. </html>
  109. <!--#include file="footer.htm"--></TD>
  110.  </BODY></HTML>