开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
In_Compiles.asp
资源名称：4s.rar　[点击查看]
上传用户：apresys
上传日期：2021-03-30
资源大小：813k
文件大小：12k
源码类别：

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

开发平台：

DOS

In_Compiles.asp：源码内容
  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">
  20. <SCRIPT language=JavaScript src="css/User_Info_Modify.js"></SCRIPT>
  22. </head>
  23. <body >
  25.   <table width="100%" border="1" cellspacing="0" bordercolor="#D6D3CE">
  26.   <tr><td align="center">
  27.   <%if request("action")<>"search" then%>
  28. <fieldset style="width:95%"><legend>详细入库信息查询</legend>
  29. <table width="90%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  30. <form name="powersearch" method="post" action="In_Compiles.asp?action=search" >
  31.   <tr><td width="20%" height="30" ><input type="checkbox" name="SeachModel"   value=1>按分类</td><td>
  32.   <select name='class'  style='width:130'>
  33. <option selected value="">请选择类别</option>
  34. <%
  35. set rs1=server.createobject("adodb.recordset")
  36.    rs1.open "select * from class",conn,1,1
  37.    if not rs1.eof then
  38.    do while not rs1.eof
  39. %>
  40. <option value="<%=rs1("classnumber")%>"><%=rs1("classnumber")%></option>
  41. <%
  42. rs1.movenext
  43. loop
  44. end if
  45. rs1.close
  46. set rs1=nothing
  47. %></select></td><td width="20%"><input type="checkbox" name="SeachModel"   value=2>
  48. 按配件名称</td>
  49. <td width="30%">
  50. <input name="pinming" type="text"  size="20">
  51. </td>
  52. </tr>
  53. <tr><td height="30" >
  54. <input type="checkbox" name="SeachModel"   value=3>
  55. 按车型</td>
  56.   <td><input name="guige" type="text"  size="20"></td>
  57.  
  58.   <td><input type="checkbox" name=SeachModel   value=4>按供应商</td>
  59.             <td><select name="Supplier"   style='width:130'>
  60. <%
  61.  set rs=server.createobject("adodb.recordset")
  62. sql="select * from Supplier"
  63. rs.open sql,conn,1,1
  64. if not rs.eof then
  65. do while not rs.eof
  66. %>
  67. <option value="<%=rs("Supplier_name")%>"><%=rs("Supplier_name")%></option>
  68. <%
  69. rs.movenext
  70. loop
  71. rs.close
  72. set rs=nothing
  73. end if 
  74. %>
  75. </select>
  76.             </td>
  77.           </tr>
  78.  
  81. <tr><td  height="30" ><input type="checkbox" name=SeachModel value=5>按入库日期</td><td ><INPUT  name="uptime" onFocus="show_cele_date(uptime,'','',uptime)" value="<%=year(now())%>-<%=month(now())%>-<%=day(now())%>"  size="8"> 到 <INPUT  name="uptime1" onFocus="show_cele_date(uptime1,'','',uptime1)" value="<%=year(now())%>-<%=month(now())%>-<%=day(now())%>"  size="8"></td><td  height="30" ><input type="checkbox" name=SeachModel value=6>按结帐日期</td><td ><INPUT  name="end_time" onFocus="show_cele_date(end_time,'','',end_time)" value="<%=year(now())%>-<%=month(now())%>-<%=day(now())%>"  size="8"> 到 <INPUT  name="end_time1" onFocus="show_cele_date(end_time1,'','',end_time1)" value="<%=year(now())%>-<%=month(now())%>-<%=day(now())%>"  size="8"></td></tr>
  83. <tr><td><input type="checkbox" name=SeachModel   value=7>按仓库</td>
  84.             <td><select name='storage'  style='width:130'>
  86. <%
  87. set rs1=server.createobject("adodb.recordset")
  88.    rs1.open "select * from storage  order by storage",conn,1,1
  89.    if not rs1.eof then
  90.    do while not rs1.eof
  91. %>
  92. <option value="<%=rs1("storage")%>"><%=rs1("storage")%></option>
  93. <%
  94. rs1.movenext
  95. loop
  96. end if
  97. rs1.close
  98. set rs1=nothing
  99. %></select>
  100.             </td><td align="center" height="30" colspan="2"><input type="submit" name="Submit" value="查询" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="查询"></td></tr>
  101. </form>
  102. </table> </fieldset><br>
  103. <br>
  104. <fieldset style="width:95%"><legend>单月入库汇总查询</legend>
  105. <table width="90%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  106. <form name="powersearch" method="post" action="In_Compiles1.asp?action=search" >
  107. <tr><td  height="30"  width="30%" align="center">选择查询日期（1个自然月） </td><td  width="30%"> <INPUT  name="end_time" onFocus="show_cele_date(end_time,'','',end_time)" value="<%=year(now())%>-<%=month(now())%>-<%=day(now())%>"  size="10"> 到 <INPUT  name="end_time1" onFocus="show_cele_date(end_time1,'','',end_time1)" value="<%=year(now())%>-<%=month(now())%>-<%=day(now())%>"  size="10"></td><td  height="30"  width="40%"><input type="submit" name="Submit" value="查询" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="查询"> * 如：2006年8月则选择2006-8-1到2006-8-31</td></tr>
  108. </form>
  109. </table> </fieldset>
  110. <br>
  111. <br>
  112. <fieldset style="width:95%"><legend>年度入库汇总查询</legend>
  113. <table width="90%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  114. <form name="powersearch" method="post" action="In_Compiles2.asp?action=search" >
  115. <tr><td  height="30"  width="30%" align="center">请输入查询年份 </td><td  width="30%"> <INPUT  name="nian"  value="<%=year(now())%>" onKeyUp="value=value.replace(/[^d.]/g,'')" maxlength="4" size="6"> </td><td  height="30"  width="40%"><input type="submit" name="Submit" value="查询" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="查询"></td></tr>
  116. </form>
  117. </table> </fieldset>
  118. <%else%>
  120. <%
  121. dim SeachModel
  122. SeachModel=request.form("SeachModel")
  123. pinming=trim(request.form("pinming"))
  124. Supplier=request.form("Supplier")
  125. class1=request.form("class")
  126. guige=request.form("guige")
  127. storage=request.form("storage")
  128. uptime=cstr(trim(request.form("uptime")))
  129. uptime1=cstr(trim(request.form("uptime1")))
  130. end_time=cstr(trim(request.form("end_time")))
  131. end_time1=cstr(trim(request.form("end_time1")))
  133. '查询代码开始
  134. names=Split(SeachModel,", ")
  135. i=0
  136. sql="select * from In_Store where"
  137. for each name in names
  138. if names(i)="1" then
  139. sql=sql+" and class = '"&class1&"'"
  140. end if
  141. if names(i)="5" then
  142. sql=sql+" and uptime  between  #"&uptime&"# and #"&uptime1&"#"
  143. end if
  144. if names(i)="6" then
  145. sql=sql+" and end_time  between  #"&end_time&"# and #"&end_time1&"#"
  146. end if
  147. if names(i)="2" then
  148. sql=sql+" and pinming like '%"&pinming&"%'"
  149. end if
  150. if names(i)="4" then
  151. sql=sql+" and Supplier = '"&Supplier&"'"
  152. end if
  153. if names(i)="3" then
  154. sql=sql+" and guige = '"&guige&"'"
  155. end if
  156. if names(i)="7" then
  157. sql=sql+" and storage = '"&storage&"'"
  158. end if
  159. i=i+1
  160. next
  161. sql=sql+" order by -id"
  162. set rs=server.createobject("adodb.recordset")
  163. sql=Replace(sql, "where and", "where")
  165. %>
  167. <table width="99%" border="0" cellpadding="1" cellspacing="0" bgcolor="#D4D0C8" class="tddown">
  168.           <tr class="but"> 
  169.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">日期</td>
  170.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">类 别</td>
  171.             <td width="12%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">配件名称</td>
  172.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">车 型</td>
  173.             <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">单 位</td>
  174. <td width="18%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">供应商</td>
  175. <td width="8%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">采购单价</td>
  176. <td width="8%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">数 量</td>
  177. <td width="9%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">总金额</td>
  178. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">结帐日期</td>
  179.           </tr>
  180.           <tr valign="top" bgcolor="#FFFFFF"> 
  181.             <td colspan="12" align="center" class="iframe"> 
  182.                 <table width="100%" border="0" cellpadding="0" cellspacing="0" class="mouse">
  183.                   <% 
  184.   dim i
  185.   i=0
  186.   use_num=0
  187.   use_Amount=0
  188.          rs.open sql,conn,1,1
  189.  if rs.eof and rs.bof then
  190. response.write "<tr><td><br><br><center>还没有符合条件的查询！</center><br><br></td></tr>"
  191. else
  192.  do while not rs.eof
  193.  i=i+1
  194.    %>
  195.                   <tr><td height="18" width="10%" align="center" ><a href="In_Store.Asp?id=<%=rs("ID")%>&action=edit"><%=rs("uptime")%></a></td>
  196. <td height="18" width="10%" align="center" ><font color="#CC3300"><%=rs("class")%></font><%if rs("class")="" then%>&nbsp;<%end if%></td>
  197. <td height="18" width="12%">&nbsp;<a href="In_Store.Asp?id=<%=rs("ID")%>&action=edit"><font color="#000099"><%=rs("pinming")%></font></a></td>
  198. <td height="18" width="10%" align="center">&nbsp;<%=rs("guige")%></td>
  199. <td height="18" width="5%" align="center"><font color="#009900"><%=rs("Unit")%></font><%if rs("Unit")="" then%>&nbsp;<%end if%></td>
  200. <td height="18"  width="18%" >&nbsp;<font color="#666666"><%=rs("Supplier")%></font></td>
  201. <td height="18" width="8%" align="right" ><font color="#FF0000"><%=rs("use_price")%></font><%if rs("use_price")="" then%>&nbsp;<%end if%></td>
  202. <td height="18" width="8%" align="right"><%=rs("use_num")%>&nbsp;</td>
  203. <td height="18" width="9%" align="right"><font color="#FF6600"><%=rs("use_Amount")%></font>&nbsp;</td>
  204. <td height="18" width="10%" align="center"><%if rs("end_time")="1980-1-1" then%><font color="#FF0000">未结帐</font><%else%><%=rs("end_time")%><%end if%></td>
  205. </tr>
  206.   
  207.                   <%
  208. use_num=use_num+rs("use_num")
  209. use_Amount=use_Amount+rs("use_Amount")
  210. rs.movenext
  211. loop
  212. end if
  213. %>
  214.                    <tr><td colspan="6" height="30">  符合查询条件的入库记录总共为 <font color="#cc0000"><%=i%></font> 条</td><td  align="right">总计：</td><td align="right"><font color="#cc0000"><%=use_num%></font></td><td align="right"><font color="#cc0000"><%=use_Amount%></font></td></tr>
  215. </table>
  217.               </td>
  218.           </tr>
  219.         </table>
  220. <br>
  221. <table cellpadding="0">
  222. <form name="search" method="post" action="In_Detail.asp" target="_blank" >
  223.   <tr><td>
  224.   <input name="SeachModel" type="hidden" value="<%=SeachModel%>">
  225.   <input name="pinming" type="hidden" value="<%=pinming%>">
  226.   <input name="class" type="hidden" value="<%=class1%>">
  227.   <input name="guige" type="hidden" value="<%=guige%>">
  228.   <input name="Supplier" type="hidden" value="<%=Supplier%>">
  229.   <input name="storage" type="hidden" value="<%=storage%>">
  230.   <input name="uptime" type="hidden" value="<%=uptime%>">
  231.   <input name="uptime1" type="hidden" value="<%=uptime1%>">
  232.   <input name="end_time" type="hidden" value="<%=end_time%>">
  233.   <input name="end_time1" type="hidden" value="<%=end_time1%>">
  234.   <input type="submit" name="sub"  value="生成明细表"></td></tr></form></table>
  235. <%end if%>
  236. </TD></TR>
  237.   </table>
  238. </body>
  239. </html>
  240. <!--#include file="footer.htm"--></TD>
  241.  </BODY></HTML>