<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
|
<%
|
if isDepartment("070104")=0 then
|
Response.Redirect "/"
|
Response.End()
|
end If
|
|
searchTXT=SafeRequest(Request("searchTXT"))
|
orderby=SafeRequest(Request("orderby"))
|
UnitNameID=SafeRequest(Request("UnitNameID"))
|
CoopUnitID=SafeRequest(Request("CoopUnitID"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
'默认显示字段
|
If OrdState="" Then OrdState=0
|
If OrdClassList="" Then OrdClassList="0"
|
If OrdClassList="0" Then
|
OrdClassName="未审核"
|
ElseIf OrdClassList="1" Then
|
OrdClassName="已审核"
|
Else
|
OrdClassName="全部"
|
End if
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="请选择日期"
|
end if
|
end if
|
|
|
If OrdState<>"0" then
|
OrdListName = ServiceOrdStateA(OrdState)&"记录"
|
Else
|
OrdListName = "每日营业额报表"
|
End If
|
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
If OrdDateType="" Then
|
OrdDateType=4
|
OrdDateTop=" top 20 "
|
End If
|
If OrdDateType="0" then
|
If OrdDateStart="" And OrdDateEnd="" Then
|
OrdDateStart=Date()
|
OrdDateEnd=Date()&" 00:00"
|
ElseIf OrdDateStart<>"" And OrdDateEnd="" Then
|
OrdDateEnd=OrdDateStart
|
ElseIf OrdDateStart="" And OrdDateEnd<>"" Then
|
OrdDateStart=OrdDateEnd
|
End If
|
If Cdate(OrdDateStart)>Cdate(OrdDateEnd) Then
|
OrdDateStart1=OrdDateStart
|
OrdDateStart=OrdDateEnd
|
OrdDateEnd=OrdDateStart1
|
End if
|
If OrdDateStart=OrdDateEnd Then
|
OrdDateStart=FORMATDATETIME(OrdDateStart,vbShortDate)
|
OrdDateTypeName=OrdDateStart
|
OrdDateTypeName1=OrdDateTypeName
|
OrdDateEnd=FORMATDATETIME(OrdDateEnd,vbShortDate)
|
Else
|
OrdDateTypeName=OrdDateStart&" 至 "&OrdDateEnd
|
OrdDateTypeName1="时间段"
|
End If
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&" 23:59:59'"
|
|
Else
|
sql="select vID,vtext,vOrder2 from dictionary where vType>=1 and vtitle='OrdDateType' and vID="&OrdDateType
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then
|
OrdDateTypeName = rs("vtext")
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType = rs("vOrder2")
|
Else
|
OrdDateType=4
|
OrdDateTypeName="本月"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
|
End If
|
rs.close()
|
End If
|
'时间段列表
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='OrdDateType' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdDateTypes = OrdDateTypes & rs("vID") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
OrdDateTypes = left(OrdDateTypes,len(OrdDateTypes)-1)
|
OrdDateTypesPS = SPLIT(OrdDateTypes,"|")
|
|
'公司列表
|
If UnitNameID<>"" Then
|
Response.Cookies("CAME")("UnitNameID")=UnitNameID
|
ElseIf UnitNameID="" And Request.Cookies("CAME")("UnitNameID")<>"" Then
|
UnitNameID=Request.Cookies("CAME")("UnitNameID")
|
End If
|
if isDepartment("070109")=0 And OrdClassInt>1 Then
|
UnitSql=" and replace(vtext,'分公司','') in (select replace(vtext,'服务单','') from dictionary where vType in (1,2) and vtitle='OrderClass' and vtext like '%服务单' and vOrder2 in ('"&OrdClassListSql&"')) "
|
End If
|
UnitNameName="全部"
|
UnitNames = "0,全部|"
|
sql="select vID,vtext,vType from dictionary where vType>=0 and vtitle='UnitName'"&UnitSql&" order by vType desc,vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
UnitName=rs("vtext")
|
If rs("vType")=0 Then UnitName=UnitName&"(停用)"
|
UnitNames = UnitNames & rs("vID") &","& UnitName & "|"
|
If UnitNameID=CStr(rs("vID")) Then UnitNameName = UnitName
|
rs.movenext
|
Loop
|
rs.close()
|
UnitNames = left(UnitNames,len(UnitNames)-1)
|
UnitNamesPS = SPLIT(UnitNames,"|")
|
|
'合作公司列表
|
CoopUnitName="未选择"
|
CoopUnits = "0,未选择|"
|
If CoopUnitID<>"" And CoopUnitID<>"0" Then CoopUnitName="多选"
|
If Left(CoopUnitID,2)="0," Then CoopUnitID=Mid(CoopUnitID,3)
|
sql="select UnitID,UnitShort from IntroducerUnitData where UnitState=1 order by UnitID desc"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
CoopUnits = CoopUnits & rs("UnitID") &","& rs("UnitShort") & "|"
|
If CoopUnitID=CStr(rs("UnitID")) Then CoopUnitName = rs("UnitShort")
|
rs.movenext
|
Loop
|
rs.close()
|
CoopUnits = left(CoopUnits,len(CoopUnits)-1)
|
CoopUnitsPS = SPLIT(CoopUnits,"|")
|
|
page_URL="&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&searchTXT="&searchTXT&"&orderby="&orderby&"&UnitNameID="&UnitNameID&"&CoopUnitID="&CoopUnitID&"&h_menu1_1=1"
|
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
</head>
|
|
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="Report_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- table -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5><span id="right_Menu" style="display: none;">[<a onclick="JavaScript:JS_left_Menu2('1');" style="color: #ffffff;">显示菜单</a>] </span><%If searchTXT<>"" then%>每日营业额报表 <%=searchTXT%><%else%><%=OrdDateTypeName1&" "&OrdListName%><%End if%></h5>
|
<ul class="links">
|
<li><a href="Report_DailyTurnover_csv.gds?1=1<%=page_URL%>">导出csv</a></li>
|
|
<%if isDepartment("070109")=1 Or OrdClassInt>1 then%>
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="公司" '菜单名称
|
DownMenuNameID="UnitNameID" '菜单ID
|
DownMenuOldName=UnitNameName '默认值名称
|
DownMenuOldID=UnitNameID '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 105px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 105px;">
|
<div style="padding: 0px; top: 0px; width: 105px;">
|
<%for z = 0 to UBOUND(UnitNamesPS)
|
UnitNamesPS1=SPLIT(UnitNamesPS(z),",")
|
vID=UnitNamesPS1(0)
|
vtext=UnitNamesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump('<%="?"&mid(page_URL,2)%>','<%=DownMenuOldID%>','<%=DownMenuNameID%>','<%=vID%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<%End If%>
|
|
<li>
|
<%
|
'多选下拉菜单设定
|
DownMenuName="合作单位" '菜单名称
|
DownMenuNameID="CoopUnitID" '菜单ID
|
DownMenuOldName=CoopUnitName '默认值名称
|
DownMenuOldID=CoopUnitID '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 420px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer">
|
<div style="padding: 0px; top: 0px;">
|
<%for z = 0 to UBOUND(CoopUnitsPS)
|
CoopUnitsPS1=SPLIT(CoopUnitsPS(z),",")
|
vID=CoopUnitsPS1(0)
|
vtext=CoopUnitsPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><input type="checkbox" name="MultiMenu_<%=DownMenuNameID%>" value="<%=vID%>"> <span onclick="JS_DownMenuJump('<%="?"&mid(page_URL,2)%>','<%=DownMenuOldID%>','<%=DownMenuNameID%>','<%=vID%>')"><%=vtext%></span></span>
|
<%If InStr(","&DownMenuOldID&",",","&vID&",")>0 And z>0 Then%><script type="text/javascript">document.getElementsByName("MultiMenu_<%=DownMenuNameID%>")[<%=z%>].checked=true;</script><%End If%>
|
<%next%>
|
<input type="button" value="提交" style="margin-left: 12PX;margin-top: 5px;" onclick="JS_DownMultiMenuJump('<%="?"&mid(page_URL,2)%>','<%=DownMenuOldID%>','<%=DownMenuNameID%>')"/>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
|
|
<li>
|
<div class="search">
|
<div id="Date_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_OrdDateType()">
|
<span class="select-content" style="width: 46px;">期间：<%=OrdDateTypeName%></span><span class="arrow" id="Date_arrow"></span>
|
</div>
|
<div id="Date_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 65px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 35px;">
|
<div class="jspContainer" style="width: 63px;">
|
<div style="padding: 0px; top: 0px; width: 63px;">
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_<%=vID%>')" onclick="JS_OrdDateTypeJump('<%=vID%>')" id="OrdDateType_<%=vID%>" class="list-option<%if vID=OrdDateType then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
<span title="自定义" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_0')" onclick="JS_OrdDateTypeCreateOpen()" id="OrdDateType_0" name="OrdDateType" class="list-option">自定义</span>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
|
<div class="search">
|
<form action="?" method="post">
|
<div class="input">
|
<input name="OrdDateType" type="hidden" value="<%=OrdDateType%>">
|
<input name="OrdDateStart" type="hidden" value="<%=OrdDateStart%>">
|
<input name="OrdDateEnd" type="hidden" value="<%=OrdDateEnd%>">
|
<input type="text" id="searchTXT" name="searchTXT" value="<%=searchTXT%>" />
|
</div>
|
<div class="button">
|
<input type="submit" name="submit" value="搜索" />
|
</div>
|
</form>
|
</div>
|
</ul>
|
</div>
|
<div class="dialogJ dialogJfix dialogJshadow" id="OrdDateTypeCreate" style="width: 440px;right: 80px; top: 150px;height:80px ;display:none;position:absolute;z-index:2">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_OrdDateTypeCreateClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<span class="dialogJtxt" id="EditPhotoTXT">请选择时间段</span>
|
</div>
|
<div class="dialogJcontent" style="margin-left: 5px;margin-right:5px;" >
|
<div class="input" style="float:left;margin-top: 10px;margin-left: 5px;">
|
期间：
|
<input type="text" id="OrdDateStart" name="OrdDateStart" class="date" style="width:138px;" value="<%=OrdDateStart%>">
|
至
|
<input type="text" id="OrdDateEnd" name="OrdDateEnd" class="date" style="width:138px;" value="<%=OrdDateEnd%>">
|
<input type="button" class="dialogJbtn first-child" onclick="JS_OrdDateJump()" value="查询">
|
</div>
|
</div>
|
</div>
|
<script type="text/javascript">
|
//时间表列显示下拉菜单
|
function JS_OrdDateType(){
|
if (Date_container.className!="select-container select-container-show-list"){
|
Date_container.className="select-container select-container-show-list";
|
Date_arrow.className="arrow arrow-up";
|
Date_list.style.display="block";
|
OrdClass_container.className="select-container";
|
OrdClass_arrow.className="arrow";
|
OrdClass_list.style.display="none";
|
OrdDateTypeCreate.style.display="none";
|
}
|
else {
|
Date_container.className="select-container";
|
Date_arrow.className="arrow";
|
Date_list.style.display="none";
|
}
|
}
|
//时间表列指针移动到下拉菜单
|
function JS_OrdDateTypeMouseover(id){
|
var d=document.getElementById(id);
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
document.getElementById("OrdDateType_<%=vID%>").className="list-option";
|
<%next%>
|
document.getElementById("OrdDateType_0").className="list-option";
|
d.className="list-option option";
|
}
|
//自定义时间-打开窗口
|
function JS_OrdDateTypeCreateOpen()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="block";
|
}
|
//自定义时间-关闭窗口
|
function JS_OrdDateTypeCreateClose()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="none";
|
}
|
//自定义时间-确定时间
|
function JS_OrdDateTypeCreateSave()
|
{
|
document.getElementById('ServiceOrdTraStreet').value=document.getElementById('Duration').value;
|
document.getElementById('ServiceOrdTraEnd').value=document.getElementById('ServiceOrdTraEnd').value;
|
document.getElementById('ServiceOrdTraStreetCoo').value=results.sw.point.lng + ','+ results.sw.point.lat; //起点坐标
|
document.getElementById('ServiceOrdTraEndCoo').value=results.Lu.point.lng + ','+ results.Lu.point.lat; //起点坐标
|
}
|
//时间类表列转跳
|
function JS_OrdDateJump(id){
|
var OrdDateStart=document.getElementById("OrdDateStart").value;
|
var OrdDateEnd=document.getElementById("OrdDateEnd").value;
|
var searchTXT=document.getElementById("searchTXT").value;
|
window.location.href='Report_DailyTurnover.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&UnitNameID=<%=UnitNameID%>&CoopUnitID=<%=CoopUnitID%>&OrdDateType=0&searchTXT='+searchTXT+'&OrdDateStart='+OrdDateStart+'&OrdDateEnd='+OrdDateEnd;
|
}
|
//自定义时间转跳
|
function JS_OrdDateTypeJump(id){
|
var searchTXT=document.getElementById("searchTXT").value;
|
window.location.href='Report_DailyTurnover.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&UnitNameID=<%=UnitNameID%>&CoopUnitID=<%=CoopUnitID%>&searchTXT='+searchTXT+'&OrdDateType='+id;
|
}
|
|
//时间表列转跳
|
function JS_OrdClassTypeJump(id){
|
var searchTXT=document.getElementById("searchTXT").value;
|
window.location.href='Report_DailyTurnover.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdDateType=<%=OrdDateType%>&UnitNameID=<%=UnitNameID%>&CoopUnitID=<%=CoopUnitID%>&searchTXT='+searchTXT+'&OrdClassList='+id;
|
}
|
|
</script>
|
<!-- end box / title -->
|
<%'数据读取
|
is_CSV=0%>
|
|
<div id="container" style="width: 90%; height: 400px; margin: 0 auto;position:relative; z-index:1;"></div>
|
<div><BR><BR><BR><BR><BR></div>
|
<div id="container1" style="width: 90%; height: 400px; margin: 0 auto"></div>
|
<!--#include virtual="Report_DailyTurnover_Data.gds" -->
|
<%
|
'统计汇总
|
If acc3>0 Then
|
For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
SumOrd=SumOrd+FormArray(2,Y)
|
SumMoney=SumMoney+FormArray(3,Y)
|
SumOrd1=SumOrd1+FormArray(4,Y)
|
SumMoney1=SumMoney1+FormArray(5,Y)
|
SumOrd2=SumOrd2+FormArray(7,Y)
|
SumMoney2=SumMoney2+FormArray(8,Y)
|
end if
|
Next
|
End If
|
%>
|
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<div class="table" style="overflow:auto">
|
<table>
|
<%If SystemMessageType<>"2" then%>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<%
|
For X=Lbound(FormArray)+1 to Ubound(FormArray)
|
If X=Ubound(FormArray) Then
|
classHtml=" class=""last"""
|
ElseIf X=1 Then
|
classHtml=" class=""selected"""
|
Else
|
classHtml=""
|
End If
|
Response.Write "<th"&classHtml&">"&FormArray(X,0)&"</th>"
|
Next%>
|
<th class="last"> </td>
|
</tr>
|
</thead>
|
<tbody>
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="color: #E91E63;">汇总</th>
|
<td class="category category2" style="color: #E91E63;"><%=SumOrd%></td>
|
<td class="category category2" style="color: #E91E63;"><%=SumMoney%></td>
|
<td class="category category2" style="color: #E91E63;"><%=SumOrd1%></td>
|
<td class="category category2" style="color: #E91E63;"><%=SumMoney1%></td>
|
<td class="category category2" style="color: #E91E63;"><%=Formatpercent(SumMoney1/SumMoney,0)%></td>
|
<td class="category category2" style="color: #E91E63;"><%=SumOrd2%></td>
|
<td class="category category2" style="color: #E91E63;"><%=SumMoney2%></td>
|
<td class="category category2" style="color: #E91E63;"><%=Formatpercent(SumMoney2/SumMoney,0)%></td>
|
<td class="last"> </td>
|
</tr>
|
<%
|
For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
If FormArray(1,Y)<>"" Then%>
|
<tr style="white-space: nowrap;">
|
<%
|
For X=Lbound(FormArray)+1 to Ubound(FormArray)
|
If X=Ubound(FormArray) Then
|
classHtml=" class=""category category2 last"""
|
ElseIf X=1 Then
|
classHtml=" class=""selected"""
|
Else
|
classHtml=" class=""category category2"""
|
End If
|
If X>=4 And X<=6 Then
|
OrdClassList=-1
|
ElseIf X>=7 And X<=9 Then
|
OrdClassList=-3
|
Else
|
OrdClassList=0
|
End If
|
Response.Write "<td"&classHtml&"><a href=""DispatchOrder_List.gds?OrdDateType=0&OrdState=8_3&h_menu1_1=1&OrdDateStart="&FormArray(1,Y)&"&OrdDateEnd="&FormArray(1,Y)&"&UnitNameID="&UnitNameID&"&CoopUnitID="&CoopUnitID&"&OrdClassList="&OrdClassList&""" target=""_blank"">"&FormArray(X,Y)&"</a></th>"
|
Next%>
|
<td class="last"> </td>
|
</tr>
|
<%End If
|
Next%>
|
<%End If%>
|
<%for j=Y to 20%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
<!-- pagination -->
|
<div class="pagination pagination-left">
|
<div class="results">
|
<%
|
ShowingLeast = (acc1-1)*QuantityInt+1
|
ShowingMax = QuantityInt*acc1
|
if ShowingMax>acc3 then ShowingMax=acc3
|
%>
|
<span><%="显示 "& ShowingLeast &"-"& ShowingMax &" of "&acc3%></span>
|
</div>
|
<%if acc2>1 then%>
|
<ul class="pager">
|
<%if acc1=1 then%>
|
<li class="disabled">« 上页</li>
|
<%else%>
|
<li><a href="?page=<%=acc1-1%><%=page_URL%>">« 上页</a></li>
|
<%end if%>
|
<%
|
acc4=""
|
acc5=0
|
for i=1 to acc2
|
if acc2<=9 then
|
acc4=acc4&","&i
|
else
|
if i=1 then
|
acc4=acc4&","&i
|
elseif acc1<=5 and i<=7 then
|
acc4=acc4&","&i
|
elseif acc1>=acc2-4 and i>=acc2-6 then
|
acc4=acc4&","&i
|
elseif i>=acc1-2 and i<=acc1+2 then
|
acc4=acc4&","&i
|
elseif i=acc2 then
|
acc4=acc4&","&i
|
elseif acc5=0 then
|
acc4=acc4&",0"
|
acc5=1
|
end if
|
end if
|
next
|
acc4SP=SPLIT(acc4,",")
|
for i = 1 to UBOUND(acc4SP)%>
|
<%if CInt(acc4SP(i))="0" then%>
|
<li class="separator">...</li>
|
<%elseif CInt(acc1)=cint(acc4SP(i)) then%>
|
<li class="current"><%=acc4SP(i)%></li>
|
<%else%>
|
<li><a href="?page=<%=acc4SP(i)%><%=page_URL%>"><%=acc4SP(i)%></a></li>
|
<%end if%>
|
<%next%>
|
<%if CInt(acc1)>=CInt(acc2) then%>
|
<li class="disabled">下页 »</li>
|
<%else%>
|
<li><a href="?page=<%=acc1+1%><%=page_URL%>">下页 »</a></li>
|
<%end if%>
|
</ul>
|
<%end if%>
|
</div>
|
<!-- end pagination -->
|
</div>
|
</div>
|
<!-- end table -->
|
|
<%
|
'==============================
|
'功能描述： 除去HTML标记
|
'不能保留<b><strong>等以及用户自定义的<和>
|
'==============================
|
|
Function Remove_HTML(Str1)
|
Do While InStr(1, Str1, "<", 1) >0
|
ilen1 = InStr(1, Str1, "<", 1)
|
ilen2 = InStr(1, Str1, ">", 1)
|
Str1 = Left(Str1, ilen1 -1) & Mid(Str1, ilen2 + 1)
|
Loop
|
If Str1<>"" And Not isnull(Str1) Then
|
Str1 = replace(Str1," "," ")
|
Str1 = replace(Str1,"↓","")
|
Str1 = replace(Str1,"↑","")
|
End If
|
Remove_HTML = Str1
|
End Function
|
|
xData=""
|
yData=""
|
yData2=""
|
If acc3>0 Then
|
For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
xData = xData & "','" & Remove_HTML(FormArray(1,Y))
|
yData = yData & "," & Remove_HTML(FormArray(3,Y))
|
yData2 = yData2 & "," & Remove_HTML(FormArray(2,Y))
|
Next
|
End If
|
If xData<>"" Then xData=Mid(xData,4) '日期
|
If yData<>"" Then yData=Mid(yData,2) '营业额
|
If yData2<>"" Then yData2=Mid(yData2,2) '订单数量
|
'Response.write xData &"<br>"
|
'Response.write yData2
|
'Response.end
|
%>
|
<!--Highcharts运行库-->
|
<script src="/js/jquery.min.js"></script>
|
<script src="/js/highcharts.js"></script>
|
<!--Highcharts运行库-->
|
<script language="JavaScript">
|
$(document).ready(function() {
|
var chart = {
|
type: 'column'
|
};
|
var title = {
|
text: '每日营业金额'
|
};
|
var subtitle = {
|
text: ''
|
};
|
var xAxis = {
|
categories: ['<%=xData%>'],
|
crosshair: true
|
};
|
var yAxis = {
|
min: 0,
|
title: {
|
text: '营业额（元）'
|
},
|
labels: {
|
//format: '{value} 元'
|
formatter:function(){
|
return this.value/10000+'万' ;
|
}
|
}
|
};
|
var tooltip = {
|
headerFormat: '<span style="font-size:10px">{point.key}</span><table>',
|
pointFormat: '<tr><td style="color:{series.color};padding:0">{series.name}: </td>' +
|
'<td style="padding:0"><b>{point.y:.0f} 元</b></td></tr>',
|
footerFormat: '</table>',
|
shared: true,
|
useHTML: true
|
};
|
var plotOptions = {
|
column: {
|
pointPadding: 0.2,
|
borderWidth: 0,
|
dataLabels:{
|
enabled:true, // dataLabels设为true
|
style:{
|
color: "#808080",
|
textOutline:"none",
|
fontWeight: '',
|
fontSize: '7px',
|
},
|
overflow: "justify",
|
format: "{point.y: .0f}"
|
|
}
|
}
|
};
|
var credits = {
|
enabled: false
|
};
|
|
var series= [{
|
name: '营业额',
|
data: [<%=yData%>],
|
color: '#ff9933'
|
}
|
];
|
|
var json = {};
|
json.chart = chart;
|
json.title = title;
|
json.subtitle = subtitle;
|
json.tooltip = tooltip;
|
json.xAxis = xAxis;
|
json.yAxis = yAxis;
|
json.series = series;
|
json.plotOptions = plotOptions;
|
json.credits = credits;
|
$('#container').highcharts(json);
|
|
//===========================
|
var title = {
|
text: '每日订单数量'
|
};
|
var subtitle = {
|
text: ''
|
};
|
var xAxis = {
|
categories: ['<%=xData%>'],
|
crosshair: true
|
};
|
var yAxis = {
|
min: 0,
|
title: {
|
text: '订单数量'
|
},
|
labels: {
|
format: '{value} '
|
}
|
};
|
var tooltip = {
|
headerFormat: '<span style="font-size:10px">{point.key}</span><table>',
|
pointFormat: '<tr><td style="color:{series.color};padding:0">{series.name}: </td>' +
|
'<td style="padding:0"><b>{point.y:.0f} 张</b></td></tr>',
|
footerFormat: '</table>',
|
shared: true,
|
useHTML: true
|
};
|
var plotOptions = {
|
column: {
|
pointPadding: 0.2,
|
borderWidth: 0
|
}
|
};
|
var series= [{
|
name: '订单数量',
|
data: [<%=yData2%>],
|
color: '#3399ff'
|
}
|
];
|
|
var json = {};
|
json.chart = chart;
|
json.title = title;
|
json.subtitle = subtitle;
|
json.tooltip = tooltip;
|
json.xAxis = xAxis;
|
json.yAxis = yAxis;
|
json.series = series;
|
json.plotOptions = plotOptions;
|
json.credits = credits;
|
|
$('#container1').highcharts(json);
|
|
});
|
</script>
|
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
<IFRAME id="HiddenFrame" name="HiddenFrame" WIDTH=0 HEIGHT=0 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR=#ffffff></IFRAME>
|
</body>
|
</html>
|
