📄 sta_0.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
Dim t,t1,t2
if GetUserGPower<>9999 then
	Call Msg("您没有访问权限",1,"")
end if

Dim Action,crs,csql
Dim fromTime,toTime
fromTime = Request("fromTime")
toTime = Request("toTime")

if fromTime<>"" and toTime<>""  then
	fromTime = RequestTime(fromTime)
	toTime = RequestTime(toTime)
end if

%>
<html>
<head>
<title>(县)统计</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<script src="../js/ListOp.js" language=javascript></script>
<Script>
function getCorrectDateString(time)
  {
      var fbeg = time.indexOf("-", 0);
      var fend = time.indexOf("-",fbeg + 1);
      var fh = time.substring(0, fbeg);
      var fm = time.substring(fbeg + 1, fend);
      var fe = time.substring(fend + 1);
      var fhLen = fh.length;
      var fmLen = fm.length;
      var feLen = fe.length;
      if (fhLen < 4)
        fh = "20" + fh;
      if (fmLen < 2)
        fm = "0" + fm;
      if (feLen < 2)
        fe = "0" + fe;
      var tmp = fh + "-" + fm + "-" + fe;
      return tmp;
    }
function Checkfrm(){
	var fromTime = getCorrectDateString(document.all.fromTime.value);
	var toTime = getCorrectDateString(document.all.toTime.value);
	if(fromTime > toTime){
		alert('起始时间不能大于终止时间，请重新输入！');
		return false;
		}
	if(document.Frm2.fromTime.value==""){
		alert("请选择开始日期");
		document.Frm2.fromTime.focus();
		return false;
		}
}	
</Script>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="topbg"> 
    <td height="22" colspan="2" align="center">统计</td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30">
<%
	Response.write "<a href=""Sta_0.asp"">我的统计</a> | "

	Response.write "<a href=""Sta_1.asp"">按地区统计</a> | "
	
	Response.write " <a href=""Sta_2.asp"">按县统计</a> | "
	
	Response.write " <a href=""Sta_3.asp"">按产品统计</a> | "
	
	Response.write " <a href=""Sta_4.asp"">回笼资金统计一</a> | "
	
	Response.write " <a href=""Sta_5.asp"">回笼资金统计二</a> | "	
%>
	</td>
  </tr>
</table>
<br>
<form method="post" action="Sta_0.asp" name="Frm2" onsubmit="javascript:return Checkfrm();">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
    <tr class="title"> 
      <td height="22" colspan="2"> <div align="center">本公司数据统计</div></td>
    </tr>
    <tr class="tdbg">
      <td width="20%" class="tdbg">统计日期</td>
      <td width="75%" class="tdbg"><input name=fromTime size=22  readonly>        &nbsp;
	    <img align=absMiddle alt="date picker" border=0 id=fromDivPos name=fromDivPos onMouseUp="toggleDatePicker('fromDiv','Frm2.fromTime')" src="../images/calendaricon.gif" width="34" height="21">
	    <div id=fromDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div>
	    到
	    <input name=toTime size=22  readonly value="<%=Format_Time(now(),2)%>">	    &nbsp;
	    <img align=absMiddle alt="date picker" border=0 id=toDivPos name=toDivPos onMouseUp="toggleDatePicker('toDiv','Frm2.toTime')" src="../images/calendaricon.gif" width="34" height="21">
	    <div id=toDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div>      
	    之间</td>
    </tr>
    <tr> 
      <td height="40" colspan="2" align="center" class="tdbg">
	  <input  type="Submit" name="Submit" value=" 统 计 " style="cursor:hand;"></td>
    </tr>

  </table>
</form>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">


  <tr align="center" class="title">
    <td height="19">产品名</td>
    <td colspan="2">发货数</td>
    <td colspan="2">销售/回款数</td>
    <td>未回款数</td>
  </tr>
  <tr align="center" class="topbg">
    <td height="22">&nbsp;</td>
    <td>本次新增</td>
    <td>发货数</td>
    <td>本次新增</td>
    <td>累计</td>
    <td>未回款数</td>
  </tr>
  <%
  sql = "Select * from T_Product order by Pro_ID desc;"
  Call sql_open(rs,sql,Conn,1,1)
  if rs.eof and rs.eof then
  	Response.write "产品"
  else
  	Do while not rs.eof
  %>
  <tr align="center" class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
    <td height="22"><%=rs("Pro_MC")%></td> 
    <td><%Response.Write OutmyPro(9999,GetUserID,rs("Pro_ID"),1,fromTime,toTime,1)%></td>
    <td><%Response.Write OutmyPro(9999,GetUserID,rs("Pro_ID"),2,fromTime,toTime,1)%></td>
    <td><%Response.Write Fundmy_Num(9999,GetUserID,rs("Pro_ID"),1,fromTime,toTime,1,1)%></td>
    <td><%Response.Write Fundmy_Num(9999,GetUserID,rs("Pro_ID"),2,fromTime,toTime,1,1)%></td>
    <td><%Response.Write Fundmy_Num(9999,GetUserID,rs("Pro_ID"),2,fromTime,toTime,0,1)%></td>
  </tr>
  <%
  rs.movenext
  loop
  end if
  Call rs_end(Rs)
  %>
</table>
<br>
⌨️ 快捷键说明

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