【调度系统】广东民航医疗快线调度系统源代码
wzp
2024-12-05 9dc0d99742f5526321e1b5fdb0dec10e6725415e
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> 
<% Session.CodePage=65001 %> 
<% Response.charset = "utf-8" %>
<!--#include virtual="/inc/odbc.asp"-->
<!--#include virtual="/inc/function.asp"-->
<!--#include virtual="/inc/core.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set rsDt = Server.CreateObject("ADODB.Recordset")
 
SqlDateType=" between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0)) "
 
sql="select SourceName,sum(LoginUserInt) as LoginUserInt,sum(NewUserInt) as NewUserInt from (select (CASE when LEFT(UserSource,3)='Iid' then (select top 1 IntroducerName from IntroducerData where IntroducerID=replace(UserSource,LEFT(UserSource,3),'')) when LEFT(UserSource,4)='UUID' then '营销小程序' else UserSource END) as SourceName,LEFT(UserSource,3) as Source,replace(UserSource,LEFT(UserSource,3),'') as SourceID,count(UserID) as LoginUserInt,NewUserInt=(select count(UserID) from UserData as b where a.UserSource=b.UserSource and UserRegisterTime"&SqlDateType&") from UserData as a where UserSource<>'' and UserLoginTime"&SqlDateType&" GROUP BY UserSource) as aa GROUP BY SourceName"
 
sql="select SourceName,sum(isnull(OrdSumInt,0)) as OrdSumInt,sum(isnull(OrdSumIntDel,0)) as OrdSumIntDel,sum(isnull(OrdSumPrice,0)) as OrdSumPrice,sum(isnull(OrdSumPriceDel,0)) as OrdSumPriceDel from (select UserSource,(CASE when LEFT(UserSource,3)='Iid' then (select top 1 IntroducerName from IntroducerData where IntroducerID=replace(UserSource,LEFT(UserSource,3),'')) when LEFT(UserSource,4)='UUID' then '营销小程序' else UserSource END) as SourceName,count(ServiceOrdID) as OrdSumInt,OrdSumIntDel=(select count(ServiceOrdID) from UserData as b,ServiceOrder where ServiceOrdState=4 and a.UserSource=b.UserSource and ServiceOrdUserID=UserID and UserSource<>'' and (ServiceOrdCancelReason<>10 or  ServiceOrdCancelReason is null)  and (ServiceOrdOperationRemarks<>'[客户未正式提交需求,可不联系]' or ServiceOrdOperationRemarks is null) and ServiceOrd_CC_Time "&SqlDateType&" ),sum(ServiceOrdTraTxnPrice) as OrdSumPrice,OrdSumPriceDel=(select sum(ServiceOrdTraTxnPrice) from UserData as b,ServiceOrder where ServiceOrdState=4 and a.UserSource=b.UserSource and ServiceOrdUserID=UserID and UserSource<>'' and (ServiceOrdCancelReason<>10 or  ServiceOrdCancelReason is null)  and (ServiceOrdOperationRemarks<>'[客户未正式提交需求,可不联系]' or ServiceOrdOperationRemarks is null) and ServiceOrd_CC_Time "&SqlDateType&" ) from UserData as a,ServiceOrder where ServiceOrdUserID=UserID and UserSource<>'' and (ServiceOrdCancelReason<>10 or  ServiceOrdCancelReason is null) and (ServiceOrdOperationRemarks<>'[客户未正式提交需求,可不联系]' or ServiceOrdOperationRemarks is null) and ServiceOrd_CC_Time "&SqlDateType&"  GROUP BY UserSource) as aa GROUP BY SourceName"
rs.open sql,objConn,1,1
do while not rs.Eof
    SourceName=rs("SourceName")
    OrdSumInt=rs("OrdSumInt")
    OrdSumIntDel=rs("OrdSumIntDel")
    OrdSumPrice=rs("OrdSumPrice")
    OrdSumPriceDel=rs("OrdSumPriceDel")
    Response.Write " SourceName="&SourceName&" OrdSumInt="&OrdSumInt&" OrdSumIntDel="&OrdSumIntDel&" OrdSumPrice="&OrdSumPrice&" OrdSumPriceDel="&OrdSumPriceDel&"<br>"
    rs.movenext
Loop
rs.close()
 
Response.Write "<br><br>"
sql="select top 50 * from UserData,ServiceOrder where ServiceOrdUserID=UserID and UserSource<>''  and (ServiceOrdOperationRemarks<>'[客户未正式提交需求,可不联系]' or ServiceOrdOperationRemarks is null) order by ServiceOrdID desc"
rs.open sql,objConn,1,1
do while not rs.Eof
    ServiceOrdID=rs("ServiceOrdID")
    UserSource=rs("UserSource")
    ServiceOrdState=rs("ServiceOrdState")
    ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
    ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
    ServiceOrdCancelReason=rs("ServiceOrdCancelReason")
    Response.Write UserUUID &" ServiceOrdID="&ServiceOrdID&" UserSource="&UserSource&" ServiceOrdState="&ServiceOrdState&" ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&" ServiceOrd_CC_Time="&ServiceOrd_CC_Time&" ServiceOrdCancelReason="&ServiceOrdCancelReason&"<br>"
    rs.movenext
Loop
rs.close()
 
 
 
%>