📄 sta_5.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
if GetUserGPower<>9999 then
Call Msg("您没有访问权限",1,"")
end if
Dim Action
Dim fromTime,toTime
Dim rst,sqlt
Dim crs,csql
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_5.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>
<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)%>">
<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 width="50">市</td>
<td width="80" height="22">县</td>
<td>应回款数</td>
<td>回款金额</td>
<td>开票金额</td>
<td>未开票金额</td>
<td>回笼率</td>
</tr>
<%
sql = "Select * from City order by CityID asc;"
Call sql_open(Rs,Sql,Conn,1,1)
if rs.eof and rs.bof then
response.Write("市")
else
Do while not rs.eof
%>
<tr align="center" class="stdbg">
<td><%=Rs("CityName")%></td>
<td> </td>
<td><%response.Write InPro_M(999,"",Rs("CityID"),0,"",2,fromTime,toTime)%></td>
<td><%response.Write Fund_Num(999,"",Rs("CityID"),"","",2,"","",0,2)%></td>
<td><%response.Write Fund_Num(999,"",Rs("CityID"),"","",2,"","",1,2)%></td>
<td><%
Dim t
t=0
t = clng(Fund_Num(999,"",Rs("CityID"),"","",2,"","",0,2))-clng(Fund_Num(999,"",Rs("CityID"),"","",2,"","",1,2))
Response.Write t
%></td>
<td>
<%
dim t1,t2
t=0
t1=0
t2=0
t1 =clng(InPro_M(999,"",Rs("CityID"),0,"",2,fromTime,toTime))
t2 =clng(Fund_Num(999,"",Rs("CityID"),"","",2,"","",0,2))
if t1=0 or t2=0 then
t=0
else
t = 100*(round((t2/t1),2))
end if
Response.write t&"%"
%>
</td>
</tr>
<%
sqlt = "Select * from County where CityID="&Rs("CityID")&" order by CountyID asc;"
Call sql_open(rst,sqlt,Conn,1,1)
Do while not rst.eof
%>
<tr align="center" class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td> </td>
<td><%=rst("CountyName")%></td>
<td><%response.Write InPro_M(99,"",Rs("CityID"),rst("CountyID"),"",2,fromTime,toTime)%></td>
<td><%response.Write Fund_Num(99,"",Rs("CityID"),rst("CountyID"),"",2,"","",0,2)%></td>
<td><%response.Write Fund_Num(99,"",Rs("CityID"),rst("CountyID"),"",2,"","",1,2)%></td>
<td><%
t=0
t = clng(Fund_Num(999,"",Rs("CityID"),rst("CountyID"),"",2,"","",0,2))-clng(Fund_Num(999,"",Rs("CityID"),rst("CountyID"),"",2,"","",1,2))
Response.Write t
%></td>
<td>
<%
t=0
t1=0
t2=0
t1 =clng(InPro_M(99,"",Rs("CityID"),rst("CountyID"),"",2,fromTime,toTime))
t2 =clng(Fund_Num(99,"",Rs("CityID"),rst("CountyID"),"",2,"","",0,2))
if t1=0 or t2=0 then
t=0
else
t = 100*(round((t2/t1),2))
end if
Response.write t&"%"
%>
</td>
</tr>
<%
rst.movenext
loop
rs.movenext
loop
end if
call rs_end(rs)
%>
</table>
<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -