<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
searchTXT=SafeRequest(Request("searchTXT"))
|
OrdClassList=SafeRequest(Request("OrdClassList"))
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'默认显示字段
|
If OrdClassList="" Then OrdClassList="0"
|
If OrdClassList="0" Then
|
OrdClassName="全部"
|
Else
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='OrderClass' and vOrder2='"&OrdClassList&"'"
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then OrdClassName = rs("vtext")
|
rs.close()
|
End if
|
If OrdDateType="" Then OrdDateType=1
|
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)&" 23:59:59"
|
Else
|
OrdDateTypeName=OrdDateStart&" 至 "&OrdDateEnd
|
OrdDateTypeName1="时间段"
|
End If
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&"'"
|
|
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=1
|
OrdDateTypeName="当天"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between DATEADD(dd,DATEDIFF(dd,0,getdate()),0) and DATEADD(ss,-1,DATEADD(dd,DATEDIFF(dd,0,getdate()),1))"
|
End If
|
rs.close()
|
End if
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="刷新完成"
|
ElseIf SMT="2" then
|
SystemMessageTXT="修改完成"
|
ElseIf SMT="4" then
|
SystemMessageTXT="删除完成"
|
end if
|
end if
|
|
|
OrdListName = "来电记录查询"
|
|
'时间段列表
|
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,"|")
|
|
'单据类型表列
|
OrdClassTypes = "0,全部|"
|
sql="select vID,vtext,vOrder2 from dictionary where vType=1 and vtitle='OrderClass' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdClassTypes = OrdClassTypes & rs("vOrder2") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
|
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
|
|
'来源类型表列
|
CallRecord_SourceList = ""
|
sql="select vID,vtext,vOrder2 from dictionary where vType=1 and vtitle='CallRecord_Source' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
CallRecord_SourceList = CallRecord_SourceList & rs("vID") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
CallRecord_SourceList = left(CallRecord_SourceList,len(CallRecord_SourceList)-1)
|
CallRecord_SourceListPS = SPLIT(CallRecord_SourceList,"|")
|
|
|
page_URL="&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&searchTXT="&searchTXT
|
|
TitleTXT=OrdListName
|
response.buffer = true
|
response.addheader "content-disposition","attachment;filename="&TitleTXT&"导出"&DTimeID()&".csv;"
|
response.contenttype = "application/octet-stream"
|
Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
|
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
if searchTXT<>"" Then
|
searchSql=""
|
If Len(searchTXT)=12 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Right(searchTXT,10)) Then
|
searchSql=" CallRecord_OrdID="&Right(searchTXT,10)&" and CallRecord_OrdClass='"&Left(searchTXT,2)&"' "
|
ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
|
searchSql=" CallRecord_OrdID="&Right(searchTXT,10)&" "
|
Else
|
searchSql=" (CallRecord_Phine like '%"&searchTXT&"%' or CallRecord_Record like '%"&searchTXT&"%') "
|
End if
|
else
|
searchSql=" CallRecord_StartTime "&SqlOrdDateType&" "
|
end if
|
|
sql="select * from CallRecord left join OrdData on SOrdID=CallRecord_OrdID where "&searchSql&" order by CallRecord_StartTime desc"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
else
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据!"
|
end If
|
|
'response.write "通话时间,通话号码,话务员,通话类型,通话来源,来电备注,通话时长,相关单据" & vbcrlf
|
response.write "通话时间,通话号码,话务员,通话类型,通话来源,来电备注,相关单据" & vbcrlf
|
|
i=1
|
do while not rs.Eof
|
CallRecordID = rs("CallRecordID")
|
CallRecord_Phine = rs("CallRecord_Phine")
|
CallRecord_OAUserID = rs("CallRecord_OAUserID")
|
CallRecord_StartTime= rs("CallRecord_StartTime")
|
CallRecord_EndTime = rs("CallRecord_EndTime")
|
CallRecord_Type = rs("CallRecord_Type")
|
CallRecord_Ord = rs("服务单号")
|
CallRecord_OrdID = rs("CallRecord_OrdID")
|
CallRecord_Record = rs("CallRecord_Record")
|
CallRecord_InAndOut = rs("CallRecord_InAndOut")
|
CallRecord_Source = rs("CallRecord_Source")
|
|
CallRecord_Time = SplitTime(DateDiff("s",CallRecord_StartTime,CallRecord_EndTime))
|
CallRecord_SourceName = CallRecord_SourceA(CallRecord_Source)
|
If CallRecord_InAndOut=1 Then
|
CallRecord_InAndOutName="呼出"
|
Else
|
CallRecord_InAndOutName="呼入"
|
End If
|
i=i+1
|
|
response.write CallRecord_StartTime & ","
|
response.write CallRecord_Phine & ","
|
response.write OAUser(CallRecord_OAUserID,"UserName") & ","
|
response.write CallRecord_InAndOutName & ","
|
response.write CallRecord_SourceName & ","
|
response.write CallRecord_Record & ","
|
'response.write CallRecord_Time & ","
|
response.write CallRecord_Ord & ","
|
response.write(vbcrlf)
|
|
rs.movenext
|
loop
|
rs.close()
|
%>
|