report.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 169 行

ASP
169 行
字号 
<!--#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>

<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 width="760" cellspacing="1">
  <form action="report_list.asp" method="get" name="myform" id="myform">
    <tr valign="middle" bgcolor="#CCCCCC"> 
      <td colspan="2" height="20" bgcolor="#EFEFEF">&gt;&gt;产品销售报表</td>
    </tr>
    <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="760" 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>
</body>
</html>

report.asp - 源码说明

本页面展示了「非常有商业价值的软件」中的 report.asp 源码文件，采用 ASP 编程语言编写，共 169 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与商相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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