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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
statforms.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：3k
源码类别：

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

开发平台：

DOS

statforms.asp：源码内容
  2. <!--#include file="conn.asp"-->
  3. <%if session("admin")="" then
  4. response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
  5. response.End
  7. end if
  8. 'day1=trim(Request.Form("year1"))&"-"&trim(Request.Form("month1"))&"-"&trim(Request.Form("day1"))
  9. 'day2=trim(Request.Form("year2"))&"-"&trim(Request.Form("month2"))&"-"&trim(Request.Form("day2"))
  10. day1="#"&trim(Request.Form("month1"))&"-"&trim(Request.Form("day1"))&"-"&trim(Request.Form("year1"))&"#"
  11. day2="#"&trim(Request.Form("month2"))&"-"&trim(Request.Form("day2"))&"-"&trim(Request.Form("year2"))&"#"
  12. %>
  13. <html><head><title>Untitled Document</title>
  14. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  15. <link href="../images/css.css" rel="stylesheet" type="text/css">
  16. </head>
  17. <body>
  18. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
  19. <tr> 
  20. <td colspan="4" align="center" height="24" bgcolor="#cccccc"><b><font color="#ffffff">统计报表查看</font></b></td>
  21. </tr>
  22. <tr>
  23. <%
  24. set rs=server.createobject("adodb.recordset")
  25. rs.open "select * from products order by bookid",conn,1,1
  26. %>
  27. <td height="107"> 
  28. <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
  29. <tr align="center" > 
  30. <td width="11%">商品ID</td>
  31. <td width="41%">商品名称</td>
  32. <td width="17%">商品单位</td>
  33. <td width="14%">销售数量</td>
  34. <td width="17%">销售额</td>
  35. </tr>
  36.                                 <%
  37. z_xs_sl=0
  38. z_xs_je=0
  39. while not rs.eof
  40. set rs2=server.createobject("adodb.recordset")
  41. rs2.open "select * from orders where (datediff('d',fhsj,"&day2&")>=0)  and (datediff('d',"&day1&",fhsj)>=0)  and (bookid="&rs("bookid")&")",conn,1,1
  42. 'rs2.open "select * from orders where (datediff('d',fhsj,"&day2&")>=0)  and (bookid="&rs("bookid")&")",conn,1,1
  43. 'response.write "select * from orders where  datediff('d',fhsj,"&day2&")>=0 and  datediff('d',"&day1&",fhsj)<=0 and bookid="&rs("bookid")
  44. 'response.end
  45. xs_sl=0
  46. xs_je=0
  47. while not rs2.eof
  48. xs_sl=xs_sl+rs2("bookcount")
  49. xs_je=xs_je+rs2("zonger")
  50. rs2.movenext
  51. wend
  52. rs2.close
  53. set rs2=nothing
  54. %>
  55. <tr > 
  56. <td align="center" width="11%"><%=rs("bookid")%></td>
  57. <td width="41%" STYLE='PADDING-LEFT: 10px'><%=rs("bookname")%></td>
  58. <td align="center" width="17%"><%=rs("bookchuban")%></td>
  59. <td align="center" width="14%" ><%=xs_sl%></td>
  60. <td align="center" width="17%"><%=xs_je%></td>
  61. </tr>
  62.                                 <%
  63. z_xs_sl=z_xs_sl+xs_sl
  64. z_xs_je=z_xs_je+xs_je
  65. rs.movenext
  66. wend
  67. rs.close
  68. set rs=nothing
  69. %>
  70. <tr > 
  71. <td colspan="5" align="center"> 
  72. <input type="button" name="Submit" value="返回" onClick="javascript:history.go(-1)">
  73. </td>
  74. </tr>
  75. </table>
  76. </td>
  77. </tr>
  78. </table>
  79. <!--#include file="foot.asp"-->
  80. </body>
  81. </html>