📄 p_subsaleorder_s.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
if GetUserGPower<>9999 then
Call Msg("您没有权限访问此页",1,"")
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 showadv(){
if (document.Frm2.stype[0].checked) {
CityArea.style.display = "";
CountyArea.style.display = "none";
}
if (document.Frm2.stype[1].checked) {
CityArea.style.display = "none";
CountyArea.style.display = "";
}
}
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 (document.Frm2.stype[0].checked) {
if(fromTime > toTime){
alert('起始时间不能大于终止时间，请重新输入！');
return false;
}
if(document.Frm2.fromTime.value==""){
alert("请选择开始日期");
document.Frm2.fromTime.focus();
return false;
}
}
}
</Script>
<style type="text/css">
<!--
.style1 {font-weight: bold}
-->
</style>
</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=""mySubSaleOrder.asp"">我的销售记录</a>"
Response.write " | <a href=""SubSaleOrder_add.asp"">添加销售记录</a>"
if GetUserGPower=9999 then
Response.write " | <a href=""P_SubSaleOrder_s.asp"">(省)销售统计</a>"
Response.write " | <a href=""P_SubSaleOrder_Chk.asp"">审核回款</a>"
elseif GetUserGPower=999 then
Response.write " | <a href=""S_SubSaleOrder_s.asp"">(市)销售统计</a>"
elseif GetUserGPower=99 then
Response.write " | <a href=""X_SubSaleOrder_s.asp"">(县)销售统计</a>"
end if
%>
</td>
</tr>
</table>
<form method="post" action="P_SubSaleOrder_sok.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="25%" class="tdbg">方式</td>
<td width="75%" class="tdbg"><input name="stype" type="radio" onclick=showadv() value="1" checked>
按地市
<input type="radio" name="stype" value="2" onclick=showadv()>
按县 </td>
</tr>
<tr class="tdbg">
<td class="tdbg">产品名称/型号</td>
<td class="tdbg"><select name="Pro_ID" id="Pro_ID">
<%Call Opt_N("T_Product","Pro_ID","Pro_MC","",1)%>
</select></td>
</tr>
<tr class="tdbg" id=CityArea style="DISPLAY : ">
<td class="tdbg">地市</td>
<td class="tdbg"><select name="CCityID" id="CCityID">
<%Call Opt_N("City","CityID","CityName","",1)%>
</select>
</td>
</tr>
<tr class="tdbg" id=CountyArea style="DISPLAY : none">
<td class="tdbg">县</td>
<td class="tdbg">
<!--联动下拉框开始-->
<%
Dim Rst,Sqlt,Rstt,sqltt
Dim kCount
Sqlt = "select * from County order by CountyID asc"
Call sql_open(Rst,Sqlt,Conn,1,1)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
kCount = 0
do while not Rst.eof
%>
subcat[<%=kCount%>] = new Array("<%= trim(Rst("CountyName"))%>","<%= trim(Rst("CityID"))%>","<%= trim(Rst("CountyID"))%>");
<%
kCount = kCount + 1
Rst.movenext
loop
Call Rs_End(Rst)
%>
onecount=<%=kCount%>;
function changelocation(CityID)
{
document.Frm2.CountyID.length = 0;
var CityID=CityID;
var i;
//document.Frm2.CountyID.options[0] = new Option('====所有地区====','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == CityID)
{
document.Frm2.CountyID.options[document.Frm2.CountyID.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<select name="CityID" onChange="changelocation(document.Frm2.CityID.options[document.Frm2.CityID.selectedIndex].value)">
<%
Sqltt = "select * from City order by CityID asc"
Call sql_open(Rstt,Sqltt,Conn,1,1)
do while not Rstt.eof
%>
<option value="<%=trim(Rstt("CityID"))%>"><%=trim(Rstt("CityName"))%></option>
<%
Rstt.movenext
loop
Call Rs_End(Rstt)
%>
</select>
<select name="CountyID">
<option selected value="">==所有地区==</option>
</select>
<script LANGUAGE="javascript">
changelocation(document.Frm2.CityID.options[document.Frm2.CityID.selectedIndex].value);
</script>
<!--联动下拉框结束-->
</td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg">统计日期</td>
<td width="65%" 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>
<br>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -