⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 report.asp

📁 购物系统时尚版.强大的后台文章编辑器的功能
💻 ASP
字号:
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<html>
<head>
<title>销售报表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
</head>
<body>
<!--#include file="TopManu.asp"-->

<p> 
  <script language="javascript">
	<!--//
	function checksignup() {

		if ( document.myform.lbid.value == '' ) {
			window.alert('请选择产品分类!!');
			document.myform.lbid.focus();
			
		}
		else if ( document.myform.xlbid.value == '' ) {
			window.alert('您是通过后退按扭回到本网页,请先涮新本网页,或重新选择产品类别!');
			document.myform.xlbid.focus();
			
		}
else {
			return true;
			}
		return false;
	}

	//-->
	</script>
</p>
<div align="center">
<table border="0" width="100%" id="table1" cellspacing="0" style="border-collapse: collapse" cellpadding="0">
	<tr>
		<td background="image/admintoptdbg.gif">
		<p align="left">
		<img border="0" src="image/title_arrow.bmp" width="17" height="27" align="absmiddle"><font color="#808080"><b>产品销售报表</b></font></td>
	</tr>
</table>
<table width="100%" style="border: 1px solid #CCCCCC; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; border-collapse:collapse" cellpadding="4">
  <form action="report_list.asp" method="get" name="myform" id="myform">
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td align="right" bgcolor="#FFFFFF" width="194">开始时间:</td>
      <td bgcolor="#FFFFFF" width="559"> <select size="1" name="byear">
      <%
      for i=2005 to 2015
      response.write "<option value="&i&">"&i&"</option>"
      next
      %></select>年<select size="1" name="bmonth">
	<%
      for ii=1 to 12
      response.write "<option value="&ii&">"&ii&"</option>"
      next
      %></select>月<select size="1" name="bday">
      <%
      for iii=1 to 31
      response.write "<option value="&iii&">"&iii&"</option>"
      next
      %></select>日</td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td align="right" bgcolor="#FFFFFF" width="194">结束时间:</td>
      <td bgcolor="#FFFFFF" width="559"> <select size="1" name="eyear">
            <%
      for p=2005 to 2015
      response.write "<option value="&p&">"&p&"</option>"
      next
      %></select>年<select size="1" name="emonth">
		            <%
      for pp=1 to 12
      response.write "<option value="&pp&">"&pp&"</option>"
      next
      %></select>月<select size="1" name="eday">
                  <%
      for ppp=1 to 31
      response.write "<option value="&ppp&">"&ppp&"</option>"
      next
      %></select>日</td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td align="right" bgcolor="#FFFFFF" width="194">报表范围:</td>
      <td bgcolor="#FFFFFF" width="559"> <%dim rs
dim count
set rs = conn.execute("select * from small_class order by id asc")
%> <script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("txt_small_class"))%>","<%= trim(rs("iid"))%>","<%= trim(rs("id"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.xlbid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.xlbid.options[document.myform.xlbid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script> <%
					set rs = conn.execute("select * from big_class")
					if rs.eof and rs.bof then
						response.write "请先添加类别。"
						response.end
					else
					%> <select name="lbid" size="1" onChange="changelocation(document.myform.lbid.options[document.myform.lbid.selectedIndex].value)">
          <option value="0" selected>全部大类别</option>
          <%do while not rs.eof%>
          <option value="<%=trim(rs("id"))%>"><%=trim(rs("txt_big_class"))%></option>
          <%
        				rs.movenext
       					loop
						end if
       					rs.close
        				set rs = nothing
        				conn.Close
        				set conn = nothing
						%>
        </select> <select name="xlbid">
          <option value="0" selected>全部小类别</option>
        </select></td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td width="194" align="right" bgcolor="#FFFFFF">排序方式(按时间):</td>
      <td width="559" bgcolor="#FFFFFF"> <INPUT type=radio CHECKED value=desc name=fs onFocus=this.blur()>
        降序 
        <INPUT type=radio value=asc name=fs onFocus=this.blur()>
        升序</td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td align="center" bgcolor="#FFFFFF" width="753" colspan="2">
<input name="Submit" type="submit" value="立即执行" onFocus="this.blur()" onClick="javascript:return checksignup()"></td>
    </tr>
  </form>
</table>
</div>
<div align="center">
	<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F1F1F1">
		<tr>
			<td>
			<ul>
				<li><font color="#FF0000">请注意以下事项</font></li>
				<li>当要选择所有产品类别时,大类别和小类别均选择“全部大类别”和“全部小类别”。</li>
				<li>要分类别统计报表时,请正确选择大类别和小类别。</li>
				<li>默认为全部类别(产品)的报表。</li>
				<li>如果看不到小类别(除了没添加小类别),请先涮新本网页,或重新选择产品类别。</li>
			</ul>
			</td>
		</tr>
	</table>
</div>
<table border="0" width="760" id="table3" cellspacing="0" cellpadding="0" align=center>
	<tr>
		<td align=right><input TYPE="button" VALUE="刷新本页" ONCLICK="location.reload()"> </td>
	</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -