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()
|
|
|
| %>
|
|
