<!--#include virtual="/inc/aspJSON1.17.asp" -->
|
<%
|
'--------------------------事务结束处理---------------------begin
|
Function rsRollbackTrans(rsErrors)
|
'sql="Insert into OA_OperationRecord (OperationID,OperationAction,OperationRecord,OperationIP) values ('"&session("adminID")&"','"&admin_save&"','"&OperationRecord&"','"&Request.ServerVariables("REMOTE_ADDR")&"')"
|
'objConn.Execute sql
|
if rsErrors=0 then
|
objConn.CommitTrans
|
else
|
objConn.RollbackTrans
|
Response.Write rsErrors
|
Response.End
|
end if
|
End Function
|
'--------------------------事务结束处理---------------------end
|
|
'--------------------------生成唯一ID---------------------begin
|
'生成时间ID
|
Function DTimeID()
|
Ye=Year(date())
|
Mo=Month(date())
|
Da=Day(date())
|
Ho=Hour(time())
|
Mi=Minute(time())
|
Se=Second(time())
|
if len(Mo)=1 then Mo="0" & Mo
|
if len(Da)=1 then Da="0" & Da
|
if len(Ho)=1 then Ho="0" & Ho
|
if len(Mi)=1 then Mi="0" & Mi
|
if len(Se)=1 then Se="0" & Se
|
DTimeID = Mo&Da&Ho&Mi&Se
|
End Function
|
|
'生成日期ID
|
Function DDateID()
|
Ye=Year(date())
|
Mo=Month(date())
|
Da=Day(date())
|
Ho=Hour(time())
|
Mi=Minute(time())
|
Se=Second(time())
|
if len(Mo)=1 then Mo="0" & Mo
|
if len(Da)=1 then Da="0" & Da
|
if len(Ho)=1 then Ho="0" & Ho
|
if len(Mi)=1 then Mi="0" & Mi
|
if len(Se)=1 then Se="0" & Se
|
DDateID = Ye&Mo&Da
|
End Function
|
|
'创建随机ID过程
|
function getID()
|
dim numbers
|
dim letters
|
dim i
|
dim ID
|
Randomize
|
numbers = "0123456789"
|
letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
for i = 1 to 10
|
if i mod 2 <> 0 then
|
ID = ID & mid(letters, Int((26 * Rnd) + 1),1)
|
else
|
ID = ID & mid(numbers, Int((10 * Rnd) + 1),1)
|
end if
|
next
|
getID = ID
|
end function
|
|
'创建随机ID过程2
|
Function randKey(obj)
|
Dim char_array(80)
|
Dim temp
|
For i = 0 To 9
|
char_array(i) = Cstr(i)
|
Next
|
For i = 10 To 35
|
char_array(i) = Chr(i + 55)
|
Next
|
For i = 36 To 61
|
char_array(i) = Chr(i + 61)
|
Next
|
Randomize
|
For i = 1 To obj
|
'rnd函数返回的随机数在0~1之间，可等于0，但不等于1
|
'公式：int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数，可等于下限但不可等于上限
|
temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)
|
Next
|
randKey = temp
|
End Function
|
|
'创建随机ID过程(纯数字)
|
function getIDnumbers(obj)
|
dim numbers
|
dim letters
|
dim i
|
dim ID
|
Randomize
|
numbers = "0123456789"
|
letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
for i = 1 to obj
|
ID = ID & mid(numbers, Int((10 * Rnd) + 1),1)
|
next
|
getIDnumbers = ID
|
end function
|
|
'创建唯一ID过程,调用DTimeID()、getID()
|
Function CreateMyID()
|
dim MyID
|
MyID=DTimeID()&"-"&getID()
|
CreateMyID = MyID
|
End Function
|
'response.write CreateMyID()
|
'--------------------------生成唯一ID---------------------end
|
|
Function NewMRPOrderID(OrderType)
|
NewMRPOrderID="MRP-"&OrderType&"-"&DDateID()&"-"&randKey(4)
|
End Function
|
|
'-------------------------供应商状态--------------------begin
|
Function Supplier_A(execLevel)
|
select case execLevel
|
case -1
|
Supplier_A="等待审核"
|
case 0
|
Supplier_A="正常"
|
end select
|
End Function
|
'-------------------------供应商状态--------------------end
|
|
'-------------------------采购入库/出库单状态--------------------begin
|
Function PurchaseOrderState_A(OrderState,OrdType)
|
If OrdType="10" Then
|
OrdTypeName="入库"
|
Else
|
OrdTypeName="出库"
|
End If
|
If OrderState=0 Then
|
PurchaseOrderState_A = "未审核"
|
ElseIf OrderState=1 Then
|
PurchaseOrderState_A = "已审核,等待"&OrdTypeName
|
ElseIf OrderState=2 Then
|
PurchaseOrderState_A = "部分"&OrdTypeName
|
ElseIf OrderState=3 Then
|
PurchaseOrderState_A = "已"&OrdTypeName
|
ElseIf OrderState=4 Then
|
PurchaseOrderState_A = "取消"
|
End If
|
End Function
|
'-------------------------采购入库/出库单状态--------------------end
|
|
|
'-------------------------销售出库/入库单状态--------------------begin
|
Function TradeOrderState_A(OrderState,OrdType)
|
If OrdType="11" Then
|
OrdTypeName="出库"
|
Else
|
OrdTypeName="入库"
|
End If
|
If OrderState=0 Then
|
TradeOrderState_A = "未审核"
|
ElseIf OrderState=1 Then
|
TradeOrderState_A = "已审核,等待"&OrdTypeName
|
ElseIf OrderState=2 Then
|
TradeOrderState_A = "部分"&OrdTypeName
|
ElseIf OrderState=3 Then
|
TradeOrderState_A = "已"&OrdTypeName
|
ElseIf OrderState=4 Then
|
TradeOrderState_A = "取消"
|
End If
|
End Function
|
'-------------------------采购入库/出库单状态--------------------end
|
|
'--------------------------字符转换---------------------begin
|
Function DealInput1(exp1)
|
dim exp2
|
If exp1<>"" Then
|
exp2=Replace(exp1,chr(13),"")
|
exp2=Replace(exp2,chr(10),"<p></p>")
|
End If
|
DealInput1=trim(exp2)
|
End Function
|
'--------------------------字符转换---------------------end
|
|
'--------------------------字符转换2---------------------begin
|
Function DealInput2(exp1)
|
dim exp2
|
If exp1<>"" Then
|
exp2=Replace(exp1,chr(13),"")
|
exp2=Replace(exp2,chr(10),"<br> ")
|
End If
|
DealInput2=trim(exp2)
|
End Function
|
'--------------------------字符转换2---------------------end
|
|
'--------------------------字符转换3---------------------begin
|
Function DealInput3(exp1)
|
dim exp2
|
If exp1<>"" Then
|
exp2=Replace(exp1,chr(13),"")
|
exp2=Replace(exp2,chr(10),"\n")
|
End If
|
DealInput3=trim(exp2)
|
End Function
|
'--------------------------字符转换3---------------------end
|
|
'是否判断
|
Function is_B(isInt)
|
select case isInt
|
case 0
|
is_B="否"
|
case 1
|
is_B="是"
|
end select
|
End Function
|
|
'--------------------------仓库查找---------------------begin
|
Function Warehouse_A(WarehouseID,DataID)
|
if WarehouseID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select WarehouseID,WarehouseName from MRP_Warehouse where WarehouseID="&WarehouseID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
ADMINWarehouseID = adminrs("WarehouseID")
|
ADMINWarehouseName = adminrs("WarehouseName")
|
else
|
DataID="ID"
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "ID"
|
Warehouse_A = WarehouseID
|
case "Name"
|
Warehouse_A = ADMINWarehouseName
|
end select
|
end if
|
End Function
|
'--------------------------仓库查找---------------------end
|
|
'--------------------------供应商查找---------------------begin
|
Function Supplier_A(SupplierID,DataID)
|
if SupplierID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select SupplierID,SupplierName from MRP_Supplier where SupplierID="&SupplierID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
ADMINSupplierID = adminrs("SupplierID")
|
ADMINSupplierName = adminrs("SupplierName")
|
else
|
DataID="ID"
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "ID"
|
Supplier_A = SupplierID
|
case "Name"
|
Supplier_A = ADMINSupplierName
|
end select
|
end if
|
End Function
|
'--------------------------供应商查找---------------------end
|
|
'--------------------------用户查找---------------------begin
|
Function OAUser(adminID,DataID)
|
if adminID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID,OA_User,OA_Name,OA_weixinAvatar,OA_mobile from OA_User where OA_User_ID="&adminID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
ADMINuserID = adminrs("OA_User_ID")
|
ADMINuser = adminrs("OA_User")
|
ADMINName = adminrs("OA_Name")
|
ADMINMobile = adminrs("OA_mobile")
|
ADMINAvatar = adminrs("OA_weixinAvatar")
|
If ADMINAvatar="" Then ADMINAvatar="/resources/images/icon_avatar_default.png"
|
else
|
DataID="adminID"
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "userID"
|
OAUser = ADMINuserID
|
case "UserName"
|
OAUser = ADMINName
|
case "UserPhone"
|
OAUser = ADMINMobile
|
case "adminID"
|
OAUser = adminID
|
case "Avatar"
|
OAUser = ADMINAvatar
|
end select
|
end if
|
End Function
|
'--------------------------用户查找---------------------end
|
|
'--------------------------部门查找---------------------begin
|
Function OADepartment(OA_DepartmentID,DataID)
|
if OA_DepartmentID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='OA_Department' and vID="&OA_DepartmentID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
Did = adminrs("id")
|
DepartmentID = adminrs("vID")
|
DepartmentName = adminrs("vtext")
|
DepartmentParentid = adminrs("vType")
|
DepartmentOrder = adminrs("vOrder")
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "Did"
|
OADepartment = Did
|
case "DepartmentID"
|
OADepartment = DepartmentID
|
case "DepartmentName"
|
OADepartment = DepartmentName
|
Case Else
|
OADepartment = OA_DepartmentID
|
end select
|
end if
|
End Function
|
'--------------------------部门查找---------------------end
|
|
'--------------------------职能查找---------------------begin
|
Function OACompetency(OA_Competency,DataID)
|
if OA_Competency<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='OA_Competency' and vID="&OA_Competency
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
Cid = adminrs("id")
|
CompetencyID = adminrs("vID")
|
CompetencyName = adminrs("vtext")
|
CompetencyOrder = adminrs("vOrder")
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "Cid"
|
OACompetency = Cid
|
case "CompetencyID"
|
OACompetency = CompetencyID
|
case "CompetencyName"
|
OACompetency = CompetencyName
|
Case Else
|
OACompetency = OA_Competency
|
end select
|
end if
|
End Function
|
'--------------------------职能查找---------------------end
|
|
'--------------------------调度单跟随人员---------------------begin
|
Function EntourageOANameA(EntourageID,DispatchOrdID,DataID)
|
if EntourageID<>"" And DispatchOrdID<>"" then
|
Set EntourageOArs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID,OA_User,OA_Name,OA_weixinAvatar,EntourageLead,EntourageState,EntourageDKP,EntourageDKPScale,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageEnd_Time,EntourageState_Time,Stretcher_is,StretcherM=isnull((select b.StretcherMoney/COUNT(a.Stretcher_is) from DispatchOrd_Entourage as a,DispatchOrd as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.DispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.StretcherMoney>0 GROUP BY b.StretcherMoney),0) from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageID="&EntourageID
|
EntourageOArs.open sql,objConn,1,1
|
if not EntourageOArs.Eof then
|
EntourageOAuserID = EntourageOArs("OA_User_ID")
|
EntourageOAuser = EntourageOArs("OA_User")
|
EntourageOAName = EntourageOArs("OA_Name")
|
EntourageOAAvatar = EntourageOArs("OA_weixinAvatar")
|
If EntourageOAAvatar="" Then EntourageOAAvatar="/resources/images/icon_avatar_default.png"
|
EntourageOALead = EntourageOArs("EntourageLead")
|
EntourageOAState= EntourageOArs("EntourageState")
|
EntourageOT_is = EntourageOArs("EntourageOT_is") '是否休息出车
|
EntourageLong_is= EntourageOArs("EntourageLong_is") '是否跟车
|
EntourageBetimesHH= EntourageOArs("EntourageBetimesHH")'提出出车N小时
|
EntourageDKP = EntourageOArs("EntourageDKP") '个人绩效
|
EntourageDKPScale = EntourageOArs("EntourageDKPScale")'分成比例
|
EntourageEnd_Time = EntourageOArs("EntourageEnd_Time")'报告提交时间
|
EntourageState_Time = EntourageOArs("EntourageState_Time")'调度时间
|
Stretcher_is = EntourageOArs("Stretcher_is")
|
StretcherM = Stretcher_is*EntourageOArs("StretcherM")
|
else
|
DataID="userID"
|
end if
|
EntourageOArs.close()
|
|
select case DataID
|
case "userID"
|
EntourageOANameA = EntourageOAuserID
|
case "UserName"
|
EntourageOANameA = EntourageOAName
|
If EntourageOAState="3" Then
|
EntourageOANameA = "<font color='#6699ff'>"&EntourageOANameA&"</font>"
|
ElseIf EntourageOAState="2" Then
|
EntourageOANameA = "<font color='#C3C3C3'>"&EntourageOANameA&"</font>"
|
End if
|
If EntourageOALead="1" Then EntourageOANameA = "<img src='/resources/images/2016020401.png'>"&EntourageOANameA
|
case "UserNameList"
|
EntourageOANameA = EntourageOAName
|
If EntourageOT_is="1" Then
|
EntourageOT_is="/休"
|
Else
|
EntourageOT_is=""
|
End If
|
If EntourageLong_is="1" Then
|
EntourageLong_is="/跟"
|
Else
|
EntourageLong_is=""
|
End If
|
If EntourageBetimesHH>0 Then
|
EntourageBetimesHH="/提"&EntourageBetimesHH
|
Else
|
EntourageBetimesHH=""
|
End If
|
If EntourageOAState="3" Then
|
EntourageOANameA = "<font color='#6699ff'>"&EntourageOANameA&EntourageOT_is&EntourageLong_is&EntourageBetimesHH&"</font>"
|
ElseIf EntourageOAState="2" Then
|
EntourageOANameA = "<font color='#C3C3C3'>"&EntourageOANameA&EntourageOT_is&EntourageLong_is&EntourageBetimesHH&"</font>"
|
End if
|
If EntourageOALead="1" Then EntourageOANameA = EntourageOANameA&"<img src='/resources/images/2016020401.png'>"
|
case "UserNameReport"
|
EntourageOANameA = EntourageOAName
|
If Len(EntourageOANameA)=2 Then EntourageOANameA=EntourageOANameA&" "
|
If EntourageOT_is="1" Then
|
EntourageOANameA = "<font color='#ff0033'>"&EntourageOANameA&"</font>"
|
ElseIf EntourageBetimesHH>0 Then
|
EntourageOANameA = "<font color='#6699ff'>"&EntourageOANameA&"</font> 提前"&EntourageBetimesHH&"小时"
|
End If
|
If EntourageDKP>0 Then
|
If EntourageDKPScale=1 Then
|
EntourageOANameA = EntourageOANameA &" 驻点提成:"&EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)&"元"
|
else
|
EntourageOANameA = EntourageOANameA &" 绩效:"&EntourageDKP&" 提成:"&EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)+StretcherM&"元"
|
End if
|
Else
|
EntourageOANameA = EntourageOANameA &" <font color='#6699ff'>未填写完成报告单</font>"
|
End If
|
case "Avatar"
|
EntourageOANameA = EntourageOAuser
|
end select
|
end if
|
End Function
|
'--------------------------调度单跟随人员---------------------end
|
|
|
'--------------------------调度单跟随人员权限---------------------begin
|
Function EntourageOAidA(DispatchOrdID)
|
EntourageOAidA=0
|
if DispatchOrdID<>"" then
|
Set EntourageOArs = Server.CreateObject("ADODB.Recordset")
|
sql="select EntourageLead,EntourageState from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid="&session("adminID")
|
EntourageOArs.open sql,objConn,1,1
|
if not EntourageOArs.Eof Then
|
EntourageOALead = EntourageOArs("EntourageLead")
|
EntourageOAState= EntourageOArs("EntourageState")
|
else
|
EntourageOALead="-1"
|
end if
|
EntourageOArs.close()
|
|
select case EntourageOALead
|
case "0" '参考者
|
EntourageOAidA = 1
|
case "1" '领队
|
EntourageOAidA = 2
|
end select
|
end if
|
End Function
|
'--------------------------调度单跟随人员权限---------------------end
|
|
'--------------------------车辆资料查询---------------------begin
|
Function CarDataA(CarID,CarLicense,DataID)
|
Set CarDataRS = Server.CreateObject("ADODB.Recordset")
|
If CarID<>"" then
|
CarDataA=CarID
|
sql="select * from CarData where CarID="&CarID
|
ElseIf CarLicense<>"" Then
|
CarDataA=CarLicense
|
sql="select * from CarData where CarLicense='"&CarLicense&"'"
|
End if
|
CarDataRS.open sql,objConn,1,1
|
if not CarDataRS.Eof then
|
CarDataAID = CarDataRS("CarID")
|
CarDataALicense = CarDataRS("CarLicense")
|
CarDataAAVIN = CarDataRS("CarVIN")
|
CarDataAModels = CarDataRS("CarModels")
|
CarDataAGPS_IMEI= CarDataRS("GPS_IMEI")
|
end if
|
CarDataRS.close()
|
|
select case DataID
|
case "CarID"
|
CarDataA = CarDataAID
|
case "CarLicense"
|
CarDataA = CarDataALicense
|
case "CarVIN"
|
CarDataA = CarDataAAVIN
|
case "CarModels"
|
CarDataA = CarDataAModels
|
case "CarIMEI"
|
CarDataA = CarDataAGPS_IMEI
|
end select
|
End Function
|
'--------------------------车辆资料查询---------------------end
|
|
'--------------------------医院资料查询---------------------begin
|
Function HospA(HospID,DataID)
|
if HospID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='HospName' and vID="&HospID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
Hid = adminrs("id")
|
HospID = adminrs("vID")
|
HospName = adminrs("vtext")
|
HosOrder = adminrs("vOrder")
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "HospName"
|
HospA = HospName
|
Case Else
|
HospA = HospName
|
end select
|
end if
|
End Function
|
'--------------------------医院资料查询---------------------end
|
|
'--------------------------用户账号类型---------------------begin
|
Function AdminType_A(AdminType)
|
select case AdminType
|
case 1
|
AdminType_A=Ch("管理员")
|
case 2
|
AdminType_A=Ch("经销商")
|
case 3
|
AdminType_A=Ch("供应商")
|
end select
|
End Function
|
'--------------------------用户账号类型---------------------end
|
|
'--------------------------账号状态---------------------begin
|
Function AdminExecLevel_A(AdminExecLevel)
|
select case AdminExecLevel
|
case -1
|
AdminExecLevel_A="停用"
|
case 0
|
AdminExecLevel_A="只读"
|
case 1
|
AdminExecLevel_A="正常"
|
case 2
|
AdminExecLevel_A="管理员"
|
case 3
|
AdminExecLevel_A="系统"
|
end select
|
End Function
|
'--------------------------账号状态---------------------end
|
|
'--------------------------账号状态B---------------------begin
|
Function AdminExecLevel_B(AdminExecLevel,weixinStatus,Status)
|
select case AdminExecLevel
|
case -1
|
AdminExecLevel_B="停用"
|
case 0
|
AdminExecLevel_B="只读"
|
case 1
|
AdminExecLevel_B="正常"
|
case 2
|
AdminExecLevel_B="管理员"
|
case 3
|
AdminExecLevel_B="系统"
|
end Select
|
|
If Status="1" then
|
select case weixinStatus
|
case 1
|
AdminExecLevel_B=AdminExecLevel_B&"-已关注微信OA"
|
case 2
|
AdminExecLevel_B=AdminExecLevel_B&"-已禁用微信OA"
|
case 4
|
AdminExecLevel_B=AdminExecLevel_B&"-未关注微信OA"
|
end Select
|
ElseIf Status="2" Then
|
select case weixinStatus
|
case 1
|
AdminExecLevel_B="[已关注]"
|
case 2
|
AdminExecLevel_B="[已禁用]"
|
case 4
|
AdminExecLevel_B="[未关注]"
|
end Select
|
ElseIf weixinStatus=4 And (AdminExecLevel=1 Or AdminExecLevel=2) Then
|
AdminExecLevel_B="未关注"
|
End if
|
End Function
|
'--------------------------账号状态B---------------------end
|
|
'--------------------------审核状态---------------------begin
|
Function AP_Check_A(AP_Check)
|
select case AP_Check
|
case "1"
|
AP_Check_A="审核"
|
case "2"
|
AP_Check_A="审核"
|
case "0"
|
AP_Check_A="未审核"
|
case "-1"
|
AP_Check_A="作废"
|
case "4"
|
AP_Check_A="不通过"
|
end select
|
End Function
|
'--------------------------审核状态---------------------end
|
|
'--------------------------语言类型---------------------begin
|
Function AdminLanguage_A(AdminLanguage)
|
select case AdminLanguage
|
case "zh-CN"
|
AdminLanguage_A=Ch("简体中文")
|
case "En"
|
AdminLanguage_A=Ch("英文")
|
end select
|
End Function
|
'--------------------------语言类型---------------------end
|
|
'--------------------------是否有效---------------------begin
|
Function Is_A(IsInt)
|
select case IsInt
|
case 0
|
Is_A=Ch("有效")
|
case 1
|
Is_A=Ch("无效")
|
end select
|
End Function
|
'--------------------------语言类型---------------------end
|
|
|
'--------------------------公司名称---------------------begin
|
Function Companies_B(B2bID,DataID)
|
Set Crs = Server.CreateObject("ADODB.Recordset")
|
if B2bID<=1999 then
|
CompaniesName_zh="管理员"
|
CompaniesName_en="ADMIN"
|
Companies_is=1
|
elseif B2bID<=2999 then
|
sql="select DealerID,DealerName_zh,DealerName_en,Dealer_is,Dealer_Language from B2B_Dealer where DealerID="&B2bID
|
Crs.open sql,objConn,1,1
|
if not Crs.eof then
|
CompaniesName_zh = Crs("DealerName_zh")
|
CompaniesName_en = Crs("DealerName_en")
|
Companies_Language = Crs("Dealer_Language")
|
Companies_is = Crs("Dealer_is")
|
end if
|
Crs.close()
|
|
elseif B2bID<=3999 then
|
sql="select SupplierID,SupplierName_zh,SupplierName_en,Supplier_is,Supplier_Language from B2B_Supplier where SupplierID="&B2bID
|
Crs.open sql,objConn,1,1
|
if not Crs.eof then
|
CompaniesName_zh = Crs("SupplierName_zh")
|
CompaniesName_en = Crs("SupplierName_en")
|
Companies_Language = Crs("Supplier_Language")
|
Companies_is = Crs("Supplier_is")
|
end if
|
Crs.close()
|
|
end if
|
|
select case DataID
|
case "CompaniesName"
|
if session("Admin_Language")="zh-CN"then
|
CompaniesName= CompaniesName_zh
|
elseif session("Admin_Language")="En"then
|
CompaniesName= CompaniesName_en
|
end if
|
Companies_B = CompaniesName
|
case "CompaniesNameAll"
|
if session("Admin_Language")="zh-CN"then
|
CompaniesName= CompaniesName_zh
|
if CompaniesName_en<>"" then CompaniesName = CompaniesName &" ("&CompaniesName_en&")"
|
elseif session("Admin_Language")="En"then
|
CompaniesName= CompaniesName_en
|
if CompaniesName_zh<>"" then CompaniesName = CompaniesName &" ("&CompaniesName_zh&")"
|
end if
|
Companies_B = CompaniesName
|
end select
|
|
if Companies_is=1 then Companies_B = Companies_B &" ["&Is_A(Companies_is)&"]"
|
End Function
|
'--------------------------公司名称---------------------end
|
|
'--------------------------公司服务类型---------------------begin
|
Function CompaniesType_A(ID,CompaniesType)
|
Set Crs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from GBR.dbo.dictionary WHERE vtitle = '"&CompaniesType&"' and vID="&ID
|
Crs.open sql,objConn,1,1
|
if not Crs.eof then
|
vtext = Crs("vtext")
|
vtextEn= Crs("vtextEn")
|
end if
|
Crs.close()
|
if session("Admin_Language")="En" then
|
CompaniesType_A = vtextEn
|
else
|
CompaniesType_A = vtext
|
end if
|
End Function
|
'--------------------------公司服务类型---------------------end
|
|
'--------------------------服务单据状态---------------------begin
|
Function ServiceOrdStateA(ServiceOrdState)
|
Set ServiceOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='ServiceOrderState' and vID="&ServiceOrdState
|
ServiceOrdStateRS.open sql,objConn,1,1
|
if not ServiceOrdStateRS.Eof then
|
ServiceOrdStateA = ServiceOrdStateRS(0)
|
else
|
ServiceOrdStateA = "问题订单"
|
end if
|
ServiceOrdStateRS.close()
|
End Function
|
'--------------------------服务单据状态---------------------end
|
|
'--------------------------调度单据状态---------------------begin
|
Function DispatchOrdStateA(DispatchOrdState)
|
Set DispatchOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
DispatchOrdState1=DispatchOrdState
|
If InStr(DispatchOrdState1,"_")>0 Then DispatchOrdState1=Left(DispatchOrdState1,InStr(DispatchOrdState1,"_")-1)
|
sql="select vtext,vOrder2 from dictionary where vtitle='DispatchOrdState' and vID="&DispatchOrdState1
|
DispatchOrdStateRS.open sql,objConn,1,1
|
if not DispatchOrdStateRS.Eof then
|
If DispatchOrdStateRS(1)<>"" Then
|
DispatchOrdStateA = DispatchOrdStateRS(1)
|
Else
|
DispatchOrdStateA = DispatchOrdStateRS(0)
|
End If
|
else
|
DispatchOrdStateA = "问题订单"
|
end if
|
DispatchOrdStateRS.close()
|
End Function
|
'--------------------------调度单据状态---------------------end
|
|
'--------------------------调度单取消详情---------------------begin
|
Function CancelReasonB(DispatchOrdCancelReason,DispatchOrdCancelReasonTXT)
|
If DispatchOrdCancelReason<>"" then
|
Set DispatchOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='CancelReason' and vID="&DispatchOrdCancelReason
|
DispatchOrdStateRS.open sql,objConn,1,1
|
if not DispatchOrdStateRS.Eof then
|
CancelReasonB = DispatchOrdStateRS(0)
|
else
|
CancelReasonB = "其它取消"
|
end If
|
If DispatchOrdCancelReasonTXT<>"" Then CancelReasonB=CancelReasonB&"("&DispatchOrdCancelReasonTXT&")"
|
DispatchOrdStateRS.close()
|
End If
|
End Function
|
'--------------------------调度单取消详情---------------------end
|
|
'--------------------------调度单据列表---------------------begin
|
Function DispatchOrdStateB(DispatchOrdState)
|
if DispatchOrdState="1" Or DispatchOrdState="2" then
|
DispatchOrdStateB = "未确认列表"
|
ElseIf DispatchOrdState="3" Then
|
DispatchOrdStateB = "未出车列表"
|
ElseIf DispatchOrdState="4" Or DispatchOrdState="5" Or DispatchOrdState="6" Or DispatchOrdState="7" Then
|
DispatchOrdStateB = "执行中列表"
|
ElseIf DispatchOrdState="8" Then
|
DispatchOrdStateB = "已返回列表"
|
ElseIf DispatchOrdState="9" Then
|
DispatchOrdStateB = "跑空单列表"
|
ElseIf DispatchOrdState="10" Then
|
DispatchOrdStateB = "取消单据列表"
|
ElseIf DispatchOrdState="12" Or DispatchOrdState="100" Then
|
DispatchOrdStateB = "历史任务列表"
|
else
|
DispatchOrdStateB = "全部调度单"
|
end if
|
End Function
|
'--------------------------调度单据列表---------------------end
|
|
|
'--------------------------个人任务-调度单据状态---------------------begin
|
Function TaskStateA(TaskState)
|
If TaskState="2" then
|
TaskStateA = "新任务"
|
ElseIf TaskState="3" then
|
TaskStateA = "进行中"
|
ElseIf TaskState="8" then
|
TaskStateA = "已完成"
|
else
|
TaskStateA = "问题订单"
|
end if
|
End Function
|
'--------------------------个人任务-调度单据状态---------------------end
|
|
'--------------------------单据号码类型---------------------begin
|
Function OrderClassA(OrderClass)
|
Set OrderClassRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='OrderClass' and vOrder2='"&OrderClass&"'"
|
OrderClassRS.open sql,objConn,1,1
|
if not OrderClassRS.Eof then
|
OrderClassA = OrderClassRS(0)
|
else
|
OrderClassA = "单据类型错误"
|
end if
|
OrderClassRS.close()
|
End Function
|
'--------------------------单据号码类型---------------------end
|
|
|
'--------------------------服务单状态---------------------begin
|
Function ServiceOrdTypeA(ServiceOrdType)
|
Set OrderTypeRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='ServiceOrderType' and vID="&ServiceOrdType
|
OrderTypeRS.open sql,objConn,1,1
|
if not OrderTypeRS.Eof then
|
ServiceOrdTypeA = OrderTypeRS(0)
|
else
|
ServiceOrdTypeA = ""
|
end if
|
OrderTypeRS.close()
|
End Function
|
'--------------------------服务单状态---------------------end
|
|
'--------------------------取消类型---------------------begin
|
Function CancelReasonA(CancelReason)
|
Set OrderTypeRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='CancelReason' and vID="&CancelReason
|
OrderTypeRS.open sql,objConn,1,1
|
if not OrderTypeRS.Eof then
|
CancelReasonA = OrderTypeRS(0)
|
else
|
CancelReasonA = "其它"
|
end if
|
OrderTypeRS.close()
|
End Function
|
'--------------------------取消类型---------------------end
|
|
|
|
'--------------------------小数显示---------------------begin
|
Function FN(n)
|
if IsNumeric(n)=False then
|
FN=n
|
elseif InStr(n,".")<=0 then
|
FN=FormatNumber(n,0,-1,,0)
|
elseif len(Mid(n,InStr(n,".")))=2 then
|
FN=FormatNumber(n,1,-1,,0)
|
else
|
FN=FormatNumber(n,2,-1,,0)
|
end if
|
End Function
|
'--------------------------小数显示---------------------end
|
|
'======================去掉UBB代码(单图片)======================
|
Private Function ReUBBimg(ByVal inVal) '转换成UBB代码：inVal 为需要转换的字符串
|
|
'inVal = Server.HTMLEncode(inVal)
|
inVal = Replace(inVal," "," ")
|
inVal = Replace(inVal,vbCrlf,"")
|
|
Dim regEx
|
Set regEx = New RegExp
|
regEx.IgnoreCase = True
|
regEx.Global = True
|
|
|
regEx.Pattern = "\[IMG]http://(.[^\[]*)(\.gif|\.jpg|\.jpeg)\[\/IMG]"
|
inVal = regEx.Replace(inVal,",http://$1$2")
|
|
regEx.Pattern = "\[IMG](.[^\[]*)(\.gif|\.jpg|\.jpeg)\[\/IMG]"
|
inVal = regEx.Replace(inVal,",$1$2")
|
|
Set regEx = Nothing
|
ReUBBimg = inVal
|
End Function
|
|
'验证字段2
|
Function SafeRequestHtml(ParaName)
|
ParaValue=ParaName
|
if not isnull(ParaValue) then
|
ParaValue = replace(ParaName,"'","''")
|
'ParaValue = replace(ParaValue,"""",""")
|
ParaValue = replace(ParaValue,"http://v.com.cn:8080","")
|
ParaValue = replace(ParaValue,"http://www.v.com.cn:8080","")
|
end if
|
OperationRecord=OperationRecord&ParaValue
|
SafeRequestHtml=ParaValue
|
End function
|
|
|
'缩略图生成
|
Function strPICTurn(PicID,strPIC,strPICs,scaleW,scaleH,S)
|
if Instr(strPICs,scaleW&"x"&scaleH)>=1 or Request.ServerVariables("SERVER_NAME")="192.168.0.250" then '已有合适图片
|
'if Instr(strPICs,scaleW&"x"&scaleH)=0 then '已有合适图片 or Request.ServerVariables("SERVER_NAME")="new.v.com.cn"
|
strPICTurn=replace(strPIC,".","_"&scaleW&"x"&scaleH&".")
|
else '产生缩略图
|
org_file = server.mappath(strPIC)
|
org_FileName = Right(org_file, Len(org_file)-InstrRev(org_file,"\")) '源文件名
|
org_FilePath = Left(org_file, InstrRev(org_file,"\")) '文件路径
|
new_FileName = replace(org_FileName,".","_"&scaleW&"x"&scaleH&".") '新文件名
|
new_file = org_FilePath & new_FileName '新文件路径+新文件名
|
org_webPath = replace(strPIC,org_fileName,"") '文件网页路径
|
CreatThumbPhoto org_FilePath,org_FileName,org_FilePath,new_FileName,scaleW,scaleH,S,PicID
|
objConn.Execute "update GBR.dbo.Picture set PicURLs='"&strPICs&","&scaleW&"x"&scaleH&"' where PicID="&PicID
|
strPICTurn = org_webPath & new_FileName
|
end if
|
End Function
|
|
sub CreatThumbPhoto(org_path,org_name,target_path,target_name,scaleW,scaleH,S,PicID)
|
set fso = Server.CreateObject("scripting.FileSystemObject")
|
if fso.FileExists(org_path&org_name) then
|
Response.Expires = 0
|
' create instance of AspJpeg
|
Set jpeg = Server.CreateObject("Persits.Jpeg")
|
' Open source file
|
jpeg.Open( org_path & org_name )
|
W = cint(scaleW)
|
H = cint(scaleH)
|
PicWidth=cint(jpeg.OriginalWidth)
|
PicHeight=cint(jpeg.OriginalHeight)
|
SaveWidth=0
|
SaveHeight=0
|
if cint(jpeg.OriginalWidth) > W or cint(jpeg.OriginalHeight) > H then
|
|
if S="W" then
|
SaveWidth=W
|
SaveHeight=jpeg.OriginalHeight * W / jpeg.OriginalWidth
|
elseif S="H" then
|
SaveWidth=H
|
SaveHeight=jpeg.OriginalWidth * H / jpeg.OriginalHeight
|
else
|
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
|
SaveWidth=jpeg.OriginalWidth * W / jpeg.OriginalHeight
|
SaveHeight=W
|
Else
|
SaveWidth=H
|
SaveHeight=jpeg.OriginalHeight * H / jpeg.OriginalWidth
|
End If
|
end if
|
jpeg.Width = SaveWidth
|
jpeg.Height = SaveHeight
|
|
if SaveWidth<>W or SaveHeight<>H then
|
x = 0
|
y = 0
|
if SaveWidth>SaveHeight then
|
x = (SaveWidth-W)/2
|
else
|
y = (SaveHeight-H)/2
|
end if
|
jpeg.crop x,y,W+x,H+y '开始切割其实是把超过52象素的下部分去掉
|
end if
|
'jpeg.Sharpen 1, 130
|
'jpeg.Quality = 100 ' 默认值为80，最佳为100
|
jpeg.Sharpen 1, 101 ' 设定锐化效果第一个阐述为半径（1或2），第二个为数量（百分比，大于100）
|
'jpeg.Interpolation 2 ' 设定锐化效果 2最慢，默认值为1，最快为0
|
|
|
else
|
jpeg.Height = jpeg.OriginalHeight
|
jpeg.Width = jpeg.OriginalWidth
|
end if
|
objConn.Execute "update GBR.dbo.Picture set PicWidth="&PicWidth&",PicHeight="&PicHeight&" where PicID="&PicID
|
Jpeg.Save target_path & target_name
|
end if
|
end Sub
|
|
|
'--------------------------商品价格类型---------------------begin
|
Function Shop_StrItm_Money(TM_slevel)
|
Set StrItm_Moneyrs = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from TVDV.dbo.dictionary where vtitle='商品价格分类' and vID="&TM_slevel
|
StrItm_Moneyrs.open sql,objConn,1,1
|
if not StrItm_Moneyrs.Eof then
|
Shop_StrItm_Money = StrItm_Moneyrs(0)
|
else
|
Shop_StrItm_Money = "热卖价"
|
end if
|
StrItm_Moneyrs.close()
|
End Function
|
'--------------------------商品价格类型---------------------end
|
|
|
'--------------------------会员类型---------------------begin
|
Function Shop_user_slevel(TM_slevel,UserSlevel)
|
Set StrItm_slevelrs = Server.CreateObject("ADODB.Recordset")
|
if TM_slevel=0 then
|
sql="select vtext from TVDV.dbo.dictionary where vtitle='TV_UserSlevel' and vID="&UserSlevel
|
else
|
sql="select vtext from TVDV.dbo.dictionary where vtitle='商品价格分类' and vID="&TM_slevel
|
end if
|
StrItm_slevelrs.open sql,objConn,1,1
|
if not StrItm_slevelrs.Eof then
|
Shop_user_slevel = StrItm_slevelrs(0)
|
else
|
Shop_user_slevel = "问题会员"
|
end if
|
StrItm_slevelrs.close()
|
End Function
|
'--------------------------会员类型---------------------end
|
|
'--------------------------会员类型---------------------begin
|
Function CAction_A(CAction)
|
select case CAction
|
case 0
|
CAction_A="(去电)"
|
case 1
|
CAction_A="(来电)"
|
end select
|
End Function
|
'--------------------------会员类型---------------------end
|
|
|
'--------------------------提交记录Form---------------------begin
|
Function RequestForm(Origin)
|
ReDim arr(Request.form.Count,2)
|
Dim v '所有表单值
|
Dim t '所有表单数量
|
v=Request.form
|
t=Request.form.Count
|
For i=0 To t-1
|
arr(i,1)=Split(Split(v,"&")(i),"=")(0)
|
arr(i,2)=Split(Split(v,"&")(i),"=")(1)
|
Next
|
For i = 0 To t-1
|
If arr(i,1)="province" Then arr(i,1)="ServiceOrdTraProvince"
|
If arr(i,1)="city" Then arr(i,1)="ServiceOrdTraCity"
|
If oldv<>arr(i,1) then
|
oldv=arr(i,1)
|
Origin=Origin & "|" & arr(i,1) & "=" & URLDecode(arr(i,2))
|
Else
|
Origin=Origin & "," & URLDecode(arr(i,2))
|
End If
|
Next
|
End Function
|
'--------------------------提交记录Form---------------------end
|
|
'--------------------------提交记录QueryString---------------------begin
|
Function RequestQueryString()
|
ReDim arr(Request.QueryString.Count,2)
|
Dim v '所有表单值
|
Dim t '所有表单数量
|
v=Request.QueryString
|
t=Request.QueryString.Count
|
For i=0 To t-1
|
arr(i,1)=Split(Split(v,"&")(i),"=")(0)
|
arr(i,2)=Split(Split(v,"&")(i),"=")(1)
|
Next
|
oldv=""
|
For i = 0 To t-1
|
If arr(i,1)="province" Then arr(i,1)="ServiceOrdTraProvince"
|
If arr(i,1)="city" Then arr(i,1)="ServiceOrdTraCity"
|
If oldv<>arr(i,1) then
|
oldv=arr(i,1)
|
Origin=Origin & "|" & arr(i,1) & "=" & URLDecode(arr(i,2))
|
Else
|
Origin=Origin & "," & URLDecode(arr(i,2))
|
End If
|
Next
|
End Function
|
'--------------------------提交记录QueryString---------------------end
|
|
'--------------------------URL反编码函数---------------------begin
|
Function URLDecode(ByVal urlcode)'URL反编码函数
|
Dim start,final,length,char,i,butf8,pass
|
Dim leftstr,rightstr,finalstr
|
Dim b0,b1,bx,blength,position,u,utf8
|
On Error Resume Next
|
|
b0 = Array(192,224,240,248,252,254)
|
urlcode = Replace(urlcode,"+"," ")
|
pass = 0
|
utf8 = -1
|
|
length = Len(urlcode) : start = InStr(urlcode,"%") : final = InStrRev(urlcode,"%")
|
If start = 0 or length < 3 Then URLDecode = urlcode : Exit Function
|
leftstr = Left(urlcode,start - 1) : rightstr = Right(urlcode,length - 2 - final)
|
|
For i = start To final
|
char = Mid(urlcode,i,1)
|
If char = "%" Then
|
bx = URLDecode_Hex(Mid(urlcode,i + 1,2))
|
If bx > 31 And bx < 128 Then
|
i = i + 2
|
finalstr = finalstr & ChrW(bx)
|
ElseIf bx > 127 Then
|
i = i + 2
|
If utf8 < 0 Then
|
butf8 = 1 : blength = -1 : b1 = bx
|
For position = 4 To 0 Step -1
|
If b1 >= b0(position) And b1 < b0(position + 1) Then
|
blength = position
|
Exit For
|
End If
|
Next
|
If blength > -1 Then
|
For position = 0 To blength
|
b1 = URLDecode_Hex(Mid(urlcode,i + position * 3 + 2,2))
|
If b1 < 128 or b1 > 191 Then butf8 = 0 : Exit For
|
Next
|
Else
|
butf8 = 0
|
End If
|
If butf8 = 1 And blength = 0 Then butf8 = -2
|
If butf8 > -1 And utf8 = -2 Then i = start - 1 : finalstr = "" : pass = 1
|
utf8 = butf8
|
End If
|
If pass = 0 Then
|
If utf8 = 1 Then
|
b1 = bx : u = 0 : blength = -1
|
For position = 4 To 0 Step -1
|
If b1 >= b0(position) And b1 < b0(position + 1) Then
|
blength = position
|
b1 = (b1 xOr b0(position)) * 64 ^ (position + 1)
|
Exit For
|
End If
|
Next
|
If blength > -1 Then
|
For position = 0 To blength
|
bx = URLDecode_Hex(Mid(urlcode,i + 2,2)) : i = i + 3
|
If bx < 128 or bx > 191 Then u = 0 : Exit For
|
u = u + (bx And 63) * 64 ^ (blength - position)
|
Next
|
If u > 0 Then finalstr = finalstr & ChrW(b1 + u)
|
End If
|
Else
|
b1 = bx * &h100 : u = 0
|
bx = URLDecode_Hex(Mid(urlcode,i + 2,2))
|
If bx > 0 Then
|
u = b1 + bx
|
i = i + 3
|
Else
|
If Left(urlcode,1) = "%" Then
|
u = b1 + Asc(Mid(urlcode,i + 3,1))
|
i = i + 2
|
Else
|
u = b1 + Asc(Mid(urlcode,i + 1,1))
|
i = i + 1
|
End If
|
End If
|
finalstr = finalstr & Chr(u)
|
End If
|
Else
|
pass = 0
|
End If
|
End If
|
Else
|
finalstr = finalstr & char
|
End If
|
Next
|
URLDecode = leftstr & finalstr & rightstr
|
End Function
|
|
Function URLDecode_Hex(ByVal h)
|
On Error Resume Next
|
h = "&h" & Trim(h) : URLDecode_Hex = -1
|
If Len(h) <> 4 Then Exit Function
|
If isNumeric(h) Then URLDecode_Hex = cInt(h)
|
End Function
|
'--------------------------URL反编码函数---------------------end
|
|
'--------------------------秒数转X小时X分X秒---------------------begin
|
function SplitTime(secondTime)
|
HourTime=int(secondTime/3600)
|
MinuteTime=int((secondTime mod 3600)/60)
|
SecondTime=(secondTime mod 3600) mod 60
|
if len(MinuteTime)<2 then MinuteTime="0" & MinuteTime end if
|
if len(SecondTime)<2 then SecondTime="0" & SecondTime end if
|
SplitTime=""
|
If HourTime>0 Then SplitTime=HourTime&"小时 "
|
If MinuteTime>0 Then SplitTime=SplitTime & MinuteTime&"分 "
|
If SecondTime>0 Then SplitTime=SplitTime & SecondTime&"秒"
|
end function
|
'--------------------------秒数转X小时X分X秒---------------------end
|
|
'--------------------------支付记录(API专用)---------------------begin
|
Function PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
|
If DispatchOrdID="" Then DispatchOrdID=0
|
If PaidMoneyCheck="" Then PaidMoneyCheck=0
|
If Len(ServiceOrdID)=12 And Not IsNumeric(Left(ServiceOrdID,2)) And IsNumeric(Right(ServiceOrdID,10)) Then ServiceOrdID=Right(ServiceOrdID,10)
|
If Len(DispatchOrdID)=12 And Not IsNumeric(Left(DispatchOrdID,2)) And IsNumeric(Right(DispatchOrdID,10)) Then DispatchOrdID=Right(DispatchOrdID,10)
|
Set PaidMoneyRS = Server.CreateObject("ADODB.Recordset")
|
NC_OAID=""
|
STraPrePayment=0
|
STraPaidPrice=0
|
STraTxnPrice=0
|
If DispatchOrdID<>"0" then
|
'调度员ID
|
sql="select DispatchOrd_NS_ID,DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo from DispatchOrd where DispatchOrdID="&DispatchOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.Eof Then
|
NC_OAID=PaidMoneyRS(0)
|
DispatchOrdNo=PaidMoneyRS("DispatchOrdClass")& year(PaidMoneyRS("DispatchOrd_NS_Time"))&Right("0"&month(PaidMoneyRS("DispatchOrd_NS_Time")),2)&Right("0"&day(PaidMoneyRS("DispatchOrd_NS_Time")),2) & "-"&Right("00"&PaidMoneyRS("DispatchOrdNo"),3) '调度单编号
|
end if
|
PaidMoneyRS.close()
|
'领队ID
|
sql="select EntourageOAid from DispatchOrd_Entourage where EntourageLead=1 and EntourageState=3 and DispatchOrdIDDt="&DispatchOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.Eof Then
|
If PaidMoneyRS(0)<>NC_OAID then NC_OAID=NC_OAID&","&PaidMoneyRS(0)
|
end if
|
PaidMoneyRS.close()
|
Else
|
'客服ID
|
sql="select ServiceOrd_CC_ID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdType,ServiceOrdCoName,ServiceOrdCoPhone,OutHosp=(select HospName from HospData where HospID=ServiceOrdPtOutHospID),ServiceOrdTraTxnPrice,ServiceOrdTraPrePayment,ServiceOrdTraPaidPrice from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.Eof Then
|
NC_OAID=PaidMoneyRS(0)
|
STraTxnPrice=PaidMoneyRS("ServiceOrdTraTxnPrice") '成交价
|
STraPrePayment=PaidMoneyRS("ServiceOrdTraPrePayment") '定金
|
STraPaidPrice=PaidMoneyRS("ServiceOrdTraPaidPrice") '已支付金额
|
SOrdTyp=PaidMoneyRS("ServiceOrdType") '服务单类型
|
SCoName=PaidMoneyRS("ServiceOrdCoName") '联系人姓名
|
SOutHosp=PaidMoneyRS("OutHosp") '出发地
|
Send_Phone=PaidMoneyRS("ServiceOrdCoPhone") '联系人电话
|
ServiceOrdNo=PaidMoneyRS("ServiceOrdClass")& year(PaidMoneyRS("ServiceOrd_CC_Time"))&Right("0"&month(PaidMoneyRS("ServiceOrd_CC_Time")),2)&Right("0"&day(PaidMoneyRS("ServiceOrd_CC_Time")),2) & "-"&Right("00"&PaidMoneyRS("ServiceOrdNo"),3) '服务单单编号
|
OrdTime=PaidMoneyRS("ServiceOrd_CC_Time")
|
end if
|
PaidMoneyRS.close()
|
End If
|
If NC_OAID="" Or NC_OAID="0" Then NC_OAID="78"
|
sql="select id from PaidMoney where PaidMoneyOaID="&UnitID&" and PaidMoneyTimestamp='"&PaidMoneyTimestamp&"'"
|
PaidMoneyRS.open sql,objConn,1,1
|
if PaidMoneyRS.Eof then
|
If PaidMoneyCheck=1 Then
|
sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,DispatchOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono,PaidMoney_AP_Check,PaidMoney_AP_Time,PaidMoney_AP_ID) values ('FI',"&ServiceOrdID&","&DispatchOrdID&","&PaidMoney&","&PaidMoneyType&","&UnitID&",'"&PaidMoneyTimestamp&"','"&PaidMoneyMono&"',1,getdate(),"&UnitID&")"
|
else
|
sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,DispatchOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono) values ('FI',"&ServiceOrdID&","&DispatchOrdID&","&PaidMoney&","&PaidMoneyType&","&UnitID&",'"&PaidMoneyTimestamp&"','"&PaidMoneyMono&"')"
|
End if
|
objConn.Execute sql
|
If ServiceOrdID<>"" And InStr(PaidMoneyMono,"打赏")>0 Then
|
sql="update ServiceOrder set Guest_Reward=Guest_Reward+"&PaidMoney&" where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
ElseIf ServiceOrdID<>"" Then
|
sql="update ServiceOrder set ServiceOrdTraPaidPrice=ServiceOrdTraPaidPrice+"&PaidMoney&" where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
'发送客户定金短信
|
If CLng(STraPrePayment)=CLng(PaidMoney) And CLng(STraPaidPrice)<=0 And SOrdTyp="20" Then
|
'阿里云短信下发接口
|
lateCode="SMS_463648792"
|
name=SCoName
|
m1=STraPrePayment
|
m2=CLng(STraTxnPrice)-CLng(STraPrePayment)
|
d1=SOutHosp
|
appUrl="https://api.966120.com.cn/v1/SendSms.php?Phone="&Send_Phone&"&name="&name&"&m1="&m1&"&m2="&m2&"&d1="&d1&"&lateCode="&lateCode
|
'Response.Write appUrl
|
'Response.end
|
HTMLCODE= PostBody(appUrl,args1)
|
Send_Text=name&"您好！您已支付了定金"&m1&"元，我们的服务团队到达出发地"&d1&"后，收齐余下"&m2&"元后再出发。"
|
Send_Remarks="ServiceOrdID:"&ServiceOrdID
|
sql="Insert into Sms_Log (Log_Id,Send_Text,Send_Phone,Send_OA,Send_errMsg,Send_Remarks) values ('阿里云','"&Send_Text&"','"&Send_Phone&"',0,'"&errMsg&"','"&Send_Remarks&"')"
|
objConn.Execute sql
|
Elseif CLng(STraTxnPrice)=CLng(PaidMoney) And SOrdTyp="20" Then
|
'发送客户尾款短信(未完成)
|
|
End If
|
End If
|
NC_OAID="78"
|
If NC_OAID<>"" Then
|
If DispatchOrdNo<>"" then
|
NC_Name="【"&UnitUser(UnitID,"UnitName")&"成功支付】"
|
NC_Content="调度单:"&DispatchOrdNo&"客户已通过["&PaidMoneyType&"]成功支付"&PaidMoney&"元 "&PaidMoneyMono
|
NC_PageUrl="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
NC_PageUrlM="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
Else
|
NC_Name="【"&UnitUser(UnitID,"UnitName")&"成功支付】"
|
NC_Content="服务单:"&ServiceOrdNo&"客户已通过["&PaidMoneyType&"]成功支付"&PaidMoney&"元 "&PaidMoneyMono
|
NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
NC_PageUrlM=""
|
End If
|
Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
End If
|
end if
|
PaidMoneyRS.close()
|
End Function
|
'--------------------------支付记录---------------------end
|
|
'--------------------------UNIX时间戳---------------------begin
|
'ToUnixTime(now(), +8)
|
Function ToUnixTime(strTime, intTimeZone)
|
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
|
If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
|
ToUnixTime = DateAdd("h",-intTimeZone,strTime)
|
ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)
|
End Function
|
'--------------------------UNIX时间戳---------------------end
|
|
'--------------------------调度单绩效算法---------------------begin
|
Function EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
|
Set EntourageDKPRS = Server.CreateObject("ADODB.Recordset")
|
EntourageDoctors=0 '医生人数
|
EntourageNurse=0 '护士人数
|
EntourageDriver=0 '司机人数
|
EntourageSum=0 '总随行人数
|
sql="select vtext,COUNT(EntourageID) from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" GROUP BY vtext"
|
EntourageDKPRS.open sql,objConn,1,1
|
do while not EntourageDKPRS.Eof
|
select case EntourageDKPRS("vtext")
|
case "医生"
|
EntourageDoctors=EntourageDKPRS(1)
|
case "护士"
|
EntourageNurse=EntourageDKPRS(1)
|
case "司机"
|
EntourageDriver=EntourageDKPRS(1)
|
end Select
|
EntourageSum=EntourageSum+EntourageDKPRS(1)
|
EntourageDKPRS.movenext
|
loop
|
EntourageDKPRS.close()
|
If EntourageSum>0 Then
|
|
'提成算法
|
DKPScale_Doctors=0.16+0.05 '医生正常绩效(16%)+超时补贴(5%)
|
DKPScale_Nurse=0.11+0.04 '护士正常绩效(16%)+超时补贴(5%)
|
DKPScale_Driver=0.09+0.03 '司机正常绩效(9%)+超时补贴(3%)
|
|
'跟车绩效算法
|
EntourageLongDKP_Doctors=DispatchOrdPerfomance*(1/EntourageSum) '跟车医生绩效比例
|
EntourageLongDKP_Nurse=DispatchOrdPerfomance*(1/EntourageSum) '跟车护士绩效比例
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*(1/EntourageSum) '跟车司机绩效比例
|
|
If DispatchOrdPerfomance=50 Then '驻点绩效 不出车情况下，绩效为0，补贴50元
|
sql="update DispatchOrd_Entourage set EntourageDKP=50,EntourageDKPScale=1 from DispatchOrd_Entourage as b where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid not in (select a.EntourageOAid from DispatchOrd_Entourage as a,DispatchOrd,ServiceOrder where a.DispatchOrdIDDt=DispatchOrdID and DispatchOrdID<>b.DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt and a.EntourageState<>4 and (ServiceOrdApptDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdTraSDTime between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdActualDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time)))"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=1 And EntourageNurse=0 And EntourageDriver=1 Then '特殊情况① 1个医生,1个司机(分摊收入占比60%:40%)
|
EntourageLongDKP_Doctors=DispatchOrdPerfomance*0.6
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.6&",EntourageDKPScale="&DKPScale_Doctors&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.4
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Driver&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=1 And EntourageDriver=1 Then '特殊情况② 1个护士,1个司机(分摊收入占比60%:40%)
|
DKPScale_Nurse=0.16+0.05
|
EntourageLongDKP_Nurse=DispatchOrdPerfomance*0.6
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.6&",EntourageDKPScale="&DKPScale_Nurse&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
DKPScale_Driver=0.11+0.04
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.4
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Driver&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=1 And EntourageNurse=0 And EntourageDriver=2 Then '特殊情况③ 1个医生,2个司机(分摊收入占比40%:30%:30%)
|
EntourageLongDKP_Doctors=DispatchOrdPerfomance*0.4
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Doctors&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.3
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.3&",EntourageDKPScale="&DKPScale_Driver&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=1 And EntourageDriver=2 Then '特殊情况④ 1个护士,2个司机(分摊收入占比40%:30%:30%)
|
EntourageLongDKP_Nurse=DispatchOrdPerfomance*0.4
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Nurse&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.3
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.3&",EntourageDKPScale="&DKPScale_Driver&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=0 And (EntourageDriver=2 Or EntourageDriver=1) Then '特殊情况5 1或2个司机(分摊收入占比50%:50% 司机绩效15%)
|
DKPScale_Driver=0.11+0.04
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
Else '一般情况
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
End If
|
|
'跟车
|
sql="update DispatchOrd_Entourage set EntourageDKP="&EntourageLongDKP_Doctors&",EntourageDKPScale="&DKPScale_Doctors/2&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=1 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&EntourageLongDKP_Nurse&",EntourageDKPScale="&DKPScale_Nurse/2&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=1 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&EntourageLongDKP_Driver&",EntourageDKPScale="&DKPScale_Driver/2&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=1 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
End If
|
End Function
|
'--------------------------调度单绩效算法---------------------end
|
|
'--------------------------个人绩效提成算法---------------------begin
|
Function EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)
|
EntourageDKP_Money=0
|
If EntourageOT_is=1 Then '加班绩效提成计算方式
|
If DispatchOrdPerfomance<=1000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=100
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=80
|
Else
|
EntourageDKP_Money=70
|
End If
|
ElseIf DispatchOrdPerfomance>1000 And DispatchOrdPerfomance<=2000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=200
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=160
|
Else
|
EntourageDKP_Money=140
|
End If
|
ElseIf DispatchOrdPerfomance>2000 And DispatchOrdPerfomance<=3000 then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=300
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=240
|
Else
|
EntourageDKP_Money=210
|
End If
|
Else
|
If EntourageName="医生" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.1,1)
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.08,1)
|
Else
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.07,1)
|
End If
|
End If
|
If (EntourageDKP*EntourageDKPScale)>EntourageDKP_Money Then EntourageDKP_Money=FormatNumber(EntourageDKP*EntourageDKPScale,1)
|
Else '正常上班时间
|
If CInt(EntourageBetimesHH)>0 Then
|
If CInt(EntourageBetimesHH)>2 And DateDiff("d",EntourageState_Time,"2016-12-5")<=0 Then EntourageBetimesHH=2
|
EntourageDKP_Money=EntourageBetimesHH*30
|
End If
|
EntourageDKP_Money=EntourageDKP_Money+FormatNumber(EntourageDKP*EntourageDKPScale,1)
|
End If
|
EntourageDKP_Money_A=EntourageDKP_Money
|
|
End Function
|
'--------------------------个人绩效提成算法---------------------end
|
|
'--------------------------个人绩效提成算法2---------------------begin
|
Function EntourageDKP_Money_B(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time,StretcherM)
|
EntourageDKP_Money=0
|
If EntourageOT_is=1 Then '加班绩效提成计算方式
|
If DispatchOrdPerfomance<=1000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=100
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=80
|
Else
|
EntourageDKP_Money=70
|
End If
|
ElseIf DispatchOrdPerfomance>1000 And DispatchOrdPerfomance<=2000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=200
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=160
|
Else
|
EntourageDKP_Money=140
|
End If
|
ElseIf DispatchOrdPerfomance>2000 And DispatchOrdPerfomance<=3000 then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=300
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=240
|
Else
|
EntourageDKP_Money=210
|
End If
|
Else
|
If EntourageName="医生" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.1,1)
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.08,1)
|
Else
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.07,1)
|
End If
|
End If
|
Else '正常上班时间
|
If CInt(EntourageBetimesHH)>0 Then
|
If CInt(EntourageBetimesHH)>2 And DateDiff("d",EntourageState_Time,"2016-12-5")<=0 Then EntourageBetimesHH=2
|
EntourageDKP_Money=EntourageBetimesHH*30
|
End If
|
EntourageDKP_Money=EntourageDKP_Money+FormatNumber(EntourageDKP*EntourageDKPScale,1)
|
End If
|
EntourageDKP_Money_B=EntourageDKP_Money+StretcherM
|
|
End Function
|
'--------------------------个人绩效提成算法2---------------------end
|
|
'--------------------------条形报表日期算法---------------------begin
|
Function labelsArr_A(DateA,DateB)
|
labelsArr=""
|
DateC=DateA
|
DateDay = DateDiff("d",DateA,DateB)+1
|
'日
|
If DateDay=1 Then
|
labelsArr="'0时','','','','','','6','','','','','12','','','','','','18','','','','','','23'"
|
'周
|
ElseIf DateDay=7 Then
|
labelsArr="'"&Month(DateC)&"."&Day(DateC)&"'"
|
do while DateC<dateadd("d",-1,DateB)
|
DateD=dateadd("d",1,DateC)
|
If Month(DateD)<>Month(DateC) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"."&Day(DateD)&"'"
|
Else
|
labelsArr=labelsArr&",'"&Day(DateD)&"'"
|
End If
|
DateC=DateD
|
Loop
|
labelsArr=labelsArr&",'"&Month(DateB)&"."&Day(DateB)&"'"
|
|
'月
|
ElseIf DateDay=30 Or DateDay=31 Or DateDay=28 Or DateDay=29 Then
|
labelsArr="'"&Month(DateC)&"."&Day(DateC)&"'"
|
do while DateC<dateadd("d",-1,DateB)
|
DateD=dateadd("d",1,DateC)
|
If Month(DateD)<>Month(DateC) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"."&Day(DateD)&"'"
|
ElseIf Day(DateD)=5 Or Day(DateD)=10 Or Day(DateD)=15 Or Day(DateD)=20 Or Day(DateD)=25 then
|
labelsArr=labelsArr&",'"&Day(DateD)&"'"
|
Else
|
labelsArr=labelsArr&",''"
|
End If
|
DateC=DateD
|
Loop
|
labelsArr=labelsArr&",'"&Month(DateB)&"."&Day(DateB)&"'"
|
|
'年
|
ElseIf DateDay=366 Or DateDay=365 Then
|
labelsArr="'"&Month(DateC)&"月'"
|
i=1
|
do while DateC<dateadd("m",-1,DateB)
|
DateD=dateadd("m",1,DateC)
|
If Month(DateD)<>Month(DateC) And (i=5 Or i=11) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"月'"
|
ElseIf Month(DateD)<>Month(DateC) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"'"
|
Else
|
labelsArr=labelsArr&",''"
|
End If
|
DateC=DateD
|
i=i+1
|
Loop
|
'labelsArr=labelsArr&",'"&Month(DateB)&"."&Day(DateB)&"'"
|
|
End If
|
labelsArr_A=labelsArr
|
End Function
|
'--------------------------条形报表日期算法---------------------end
|
|
'中文转拼音首字
|
Function Pinyin_A(Str)
|
Str=Replace(Str,"（","")
|
Str=Replace(Str,"）","")
|
Str=Replace(Str," ","")
|
Str=Replace(Str,"、","")
|
Pinyin_A=GetBody("https://sys.966120.com.cn/inc/GB2312.gds","zhoz_txt="&server.urlencode(Str))
|
Pinyin_A=Replace(Pinyin_A,"?","")
|
End Function
|
|
'Get方法
|
Function GetBody(appUrl,Origin)
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
With https
|
.Open "GET", appUrl&"?"&Origin, False
|
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
|
.Send ""
|
GetBody = .ResponseBody
|
End With
|
GetBody = BytesToBstr(GetBody,"utf-8")
|
Set https = Nothing
|
End Function
|
|
Function BytesToBstr(body,Cset) '飘易：转换GB2312
|
dim objstream
|
set objstream = Server.CreateObject("adodb.stream")
|
objstream.Type = 1
|
objstream.Mode =3
|
objstream.Open
|
objstream.Write body
|
objstream.Position = 0
|
objstream.Type = 2
|
objstream.Charset = Cset
|
BytesToBstr = objstream.ReadText
|
objstream.Close
|
set objstream = nothing
|
End Function
|
|
'--------------------------名传无线-短信发送---------------------begin
|
Function Get_SMS(Send_Phone,Send_Text,Send_Remarks)
|
'账号：201453
|
'密码：b9d04e62652a47f317616e122e819918
|
'地址：yun.mchuan.com
|
url="http://112.74.139.4:8002/sms3_api/jsonapi/jsonrpc2.jsp" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="{"
|
Origin=Origin&"""id"": 1 ,"
|
Origin=Origin&"""method"":""send"","
|
Origin=Origin&"""params"":{"
|
Origin=Origin&"""userid"":""201453"","
|
Origin=Origin&"""password"":""b9d04e62652a47f317616e122e819918"","
|
Origin=Origin&"""submit"": [{"
|
Origin=Origin&"""content"":"""&Send_Text&""","
|
Origin=Origin&"""phone"":"""&Send_Phone&""""
|
Origin=Origin&"}]}}"
|
'Response.Write url&"?"&Origin&"<br>"
|
'Response.end
|
HTMLCODE= GetBody(url,Server.URLEncode(Origin))
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=HTMLCODE
|
str=right(str,len(str)-instr(str,"[")+1)
|
str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
for i=0 to obj.length-1
|
phone = obj.get(i).phone
|
msgid = obj.get(i).msgid
|
return = obj.get(i).return
|
errMsg = obj.get(i).info
|
sql="Insert into Sms_Log (Log_Id,Send_Text,Send_Phone,Send_OA,Send_errMsg,Send_Remarks) values ('"&msgid&"','"&Send_Text&"','"&phone&"',0,'"&errMsg&"','"&Send_Remarks&"')"
|
objConn.Execute sql
|
Next
|
End Function
|
'--------------------------名传无线-短信发送---------------------end
|
|
'--------------------------转运快线-订单状态发送---------------------begin
|
Function Get_TritonshAPI(UserUUID,orderStatus,ServiceOrdID,iuid,CoName,CoPhone,orderPrice,orderSource)
|
'url="https://api.966120.com.cn/v1/cuituAPI.php"
|
'Origin="OrdID="&ServiceOrdID&"&method="&method&"&iuid="&iuid&"&uuid="&uuid
|
'HTMLCODE= GetBody(url,Origin)
|
appUrl="https://market.tritonsh.com/order/orderDeal"
|
args1="{"
|
'args1=args1&"""id"": """&uuid&"""," '对方订单ID
|
args1=args1&"""userId"": """&iuid&"""," '对方用户ID(介绍人ID)
|
args1=args1&"""orderStatus"": """&orderStatus&"""," '订单状态 0：初始订单 , 1：最终订单状态
|
args1=args1&"""orderType"":0," '下单类型 0:本人下单,1:代人下单
|
If orderSource="1" Then
|
args1=args1&"""orderSource"":""代客下单"","
|
ElseIf orderSource="2" Then
|
args1=args1&"""orderSource"":""面对面二维码"","
|
ElseIf orderSource="3" Then
|
args1=args1&"""orderSource"":""推广海报"","
|
End If
|
args1=args1&"""orderUserPhone"": """&CoPhone&"""," '客户手机号
|
args1=args1&"""userName"": """&CoName&"""," '客户姓名
|
args1=args1&"""orderPrice"": """&orderPrice&"""," '订单金额
|
args1=args1&"""orderServiceNo"": """&ServiceOrdID&"""" '订单服务单号
|
args1=args1&"}"
|
'call PostBody(appUrl,args1)
|
'Response.Write args1&"<br>"
|
HTMLCODE= PostBody1(appUrl,args1)
|
sql="update ServiceOrder set ToUserUUID="&UserUUID&" where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
sql="update UserUUID set ToServiceOrdID="&ServiceOrdID&",TritonshJson='"&HTMLCODE&"',TritonshTime=getdate() where id="&UserUUID
|
objConn.Execute sql
|
'Response.Write HTMLCODE&"<br>"
|
'Response.end
|
'HTMLCODE= GetBody(url,Origin)
|
End Function
|
'--------------------------转运快线-订单状态发送---------------------end
|
|
'Post2方法
|
Function PostBody1(appUrl,args1)
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
'Set https = Server.CreateObject("MSXML2.XMLHTTP")
|
With https
|
.Open "Post", appUrl, False
|
.setRequestHeader "Content-Type","application/json"
|
.Send args1
|
PostBody1 = .ResponseBody
|
End With
|
PostBody1 = BytesToBstr(PostBody1,"utf-8")
|
Set https = Nothing
|
End Function
|
|
Function randKey(obj)
|
Dim char_array(80)
|
Dim temp
|
For i = 0 To 9
|
char_array(i) = Cstr(i)
|
Next
|
For i = 10 To 35
|
char_array(i) = Chr(i + 55)
|
Next
|
For i = 36 To 61
|
char_array(i) = Chr(i + 61)
|
Next
|
Randomize
|
For i = 1 To obj
|
'rnd函数返回的随机数在0~1之间，可等于0，但不等于1
|
'公式：int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数，可等于下限但不可等于上限
|
temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)
|
Next
|
randKey = temp
|
End Function
|
|
'--------------------------时间戳校验---------------------begin
|
Function MD5_UnixTime(UnixTime)
|
sysUnix=ToUnixTime(now(), +8)
|
If IsNumeric(UnixTime) Then
|
If sysUnix-UnixTime>600 Or sysUnix-UnixTime<-600 Then
|
errcode=40008
|
errmsg="invalid UnixTime"
|
End If
|
Else
|
errcode=40007
|
errmsg="empty UnixTime"
|
'errmsg=Request.TotalBytes
|
End If
|
If Left(errcode,1)="4" Then
|
If is_test="1" Then errmsg=errmsg&" SystemUnixTime:"&sysUnix
|
webJson="{""APPID"":"""&APPID&""",""method"":"""&method&""",""result"":2,""errcode"":"&errcode&",""errmsg"":"""&errmsg&"""}"
|
Call OA_Running(UnitID,webJson)
|
Response.Write webJson
|
Response.end
|
End If
|
End Function
|
'--------------------------时间戳校验---------------------end
|
|
'--------------------------微信OA信息下发接口---------------------begin
|
Function WeiXin_MessageSend(access_token,touser,agentid,articles)
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
|
If touser<>"" Then
|
If Mid(touser,1,1)="|" Then touser=Mid(touser,2)
|
'agentid=21
|
args1="{"
|
args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang
|
args1=args1&"""msgtype"": ""textcard"","
|
args1=args1&"""agentid"": "&agentid&"," '企业应用的id，整型。可在应用的设置页面查看
|
args1=args1&"""textcard"":"&articles
|
args1=args1&"}"
|
'call PostBody(appUrl,args1)
|
'Response.Write args1&"<br>"
|
HTMLCODE= PostBody(appUrl,args1)
|
If Mid(HTMLCODE,12,1)<>"0" Then
|
Call OA_Running(0,"weixin_message_send|"&agentid&"|"&touser&"|"&HTMLCODE)
|
'Response.Write HTMLCODE
|
End If
|
'Response.Write HTMLCODE
|
'Response.end
|
End If
|
End Function
|
'--------------------------微信OA信息下发接口---------------------end
|
|
'--------------------------微信OA信息下发接口---------------------begin
|
Function WeiXin_MessageSend1(access_token,touser,agentid,articles)
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
|
If touser<>"" Then
|
If Mid(touser,1,1)="|" Then touser=Mid(touser,2)
|
'agentid=21
|
args1="{"
|
args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang
|
args1=args1&"""msgtype"": ""textcard"","
|
args1=args1&"""agentid"": "&agentid&"," '企业应用的id，整型。可在应用的设置页面查看
|
args1=args1&"""textcard"":"&articles
|
args1=args1&"}"
|
'call PostBody(appUrl,args1)
|
Response.Write args1&"<br>"
|
HTMLCODE= PostBody(appUrl,args1)
|
Response.Write HTMLCODE
|
Response.end
|
End If
|
End Function
|
'--------------------------微信OA信息下发接口---------------------end
|
|
'--------------------------微信OA信息下发接口21---------------------begin
|
Function WeiXin_MessageSend21(access_token,touser,agentid,articles)
|
access_token=GetAccess_token21()
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
|
If touser<>"" Then
|
If InStr(touser,"|")=1 Then touser=Mid(touser,2)
|
'agentid=21
|
args1="{"
|
args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang
|
args1=args1&"""toparty"": """&toparty&"""," '部门ID列表，多个接收者用‘|’分隔，最多支持100个。当touser为@all时忽略本参数
|
args1=args1&"""totag"": """&totag&"""," '标签ID列表，多个接收者用‘|’分隔。当touser为@all时忽略本参数
|
args1=args1&"""agentid"": "&agentid&"," '企业应用的id，整型。可在应用的设置页面查看
|
args1=args1&"""msgtype"": ""news"","
|
args1=args1&"""news"": {"
|
args1=args1&"""articles"":["&articles&"]"
|
args1=args1&"}"
|
args1=args1&"}"
|
call PostBody1(appUrl,args1)
|
'Response.Write args1&"<br>"
|
'HTMLCODE= PostBody1(appUrl,args1)
|
'Response.Write HTMLCODE
|
'Response.end
|
End If
|
End Function
|
'--------------------------微信OA信息下发接口---------------------end
|
|
'获取微信access_token
|
Function GetAccess_token21()
|
'接口信息
|
corpid="wx248505bfbab6d0c1"
|
corpsecret="2MCilqWYC0FWjOQ894sbb-s7Lb5sVH4HHuJgOsd9l1k"
|
access_tokenID=1 '对应数据库ID
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext,vMono from dictionary where id="&access_tokenID
|
rs.open sql,objConn,1,1
|
access_token=rs("vtext")
|
access_token_time=cdate(rs("vMono"))
|
rs.close()
|
If DateDiff("s",access_token_time,now())>0 then
|
'获取新的access_token
|
url="https://qyapi.weixin.qq.com/cgi-bin/gettoken" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="corpid="&corpid&"&corpsecret="&corpsecret
|
HTMLCODE= GetBody(url,Origin)
|
str="["&HTMLCODE&"]"
|
set obj = getjson(str)
|
access_token = obj.get(0).access_token
|
expires_in = obj.get(0).expires_in
|
'access_token=replace(replace(HTMLCODE,"{""access_token"":""",""),""",""expires_in"":7200}","")
|
access_token_time=DateAdd("s",500,now())
|
'写入数据库
|
sql="update dictionary set vtext='"&access_token&"',vMono='"&access_token_time&"' where id="&access_tokenID
|
objConn.Execute sql
|
End if
|
GetAccess_token21 = access_token
|
End Function
|
|
'--------------------------企业用户查找---------------------begin
|
Function UnitUser(UnitID,DataID)
|
if UnitID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select UnitID,UnitName,UnitShort,APPID from IntroducerUnitData where UnitID="&UnitID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
ADMINUnitID = adminrs("UnitID")
|
ADMINUnitName = adminrs("UnitName")
|
ADMINUnitShort = adminrs("UnitShort")
|
ADMINAPPID = adminrs("APPID")
|
adminrs.close()
|
else
|
DataID="UnitID"
|
End If
|
|
select case DataID
|
case "UnitID"
|
UnitUser = ADMINUnitID
|
case "UnitName"
|
UnitUser = ADMINUnitName
|
case "UnitShort"
|
UnitUser = ADMINUnitShort
|
case "UnitAPPID"
|
UnitUser = ADMINAPPID
|
end Select
|
End If
|
End Function
|
'--------------------------企业用户查找---------------------end
|
|
'--------------------------写入通知中心_旧---------------------begin
|
Function Notification_Add_old(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
If NC_Name="" Then NC_Name=now()
|
If NC_OAID<>"" Then
|
NC_OAIDSP=SPLIT(NC_OAID,",")
|
for n = 0 to UBOUND(NC_OAIDSP)
|
sql="insert into Notification (NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM) values ("&NC_OAIDSP(n)&",'"&NC_Name&"','"&NC_Content&"','"&NC_PageUrl&"','"&NC_PageUrlM&"')"
|
objConn.Execute sql
|
next
|
End If
|
End Function
|
'--------------------------写入通知中心_旧---------------------end
|
|
'--------------------------写入通知中心_2019.8.20---------------------begin
|
Function Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
If NC_Name="" Then NC_Name=now()
|
NC_Content=Replace(NC_Content,"单号","单")
|
NC_Content=Replace(NC_Content,"：",":")
|
If NC_OAID="78" Or NC_OAID="" Then NC_OAID="0"
|
If InStr(NC_Name,"派单时间提醒")>0 Then
|
NC_Time=NC_PageUrlM
|
NC_PageUrlM=""
|
Else
|
NC_Time=now()
|
End If
|
If NC_OAID<>"0" Then '点对点发送通知
|
NC_OAIDSP=SPLIT(NC_OAID,",")
|
for n = 0 to UBOUND(NC_OAIDSP)
|
sql="insert into Notification (NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM,NC_Time) values ("&NC_OAIDSP(n)&",'"&NC_Name&"','"&NC_Content&"','"&NC_PageUrl&"','"&NC_PageUrlM&"','"&NC_Time&"')"
|
objConn.Execute sql
|
next
|
Else
|
If InStr(NC_Content,":")>0 Then
|
NC_OAClass=Mid(NC_Content,InStr(NC_Content,":")+1,2)
|
sql="insert into Notification (NC_OAID,NC_OAClass,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM,NC_Time) values (0,'"&NC_OAClass&"','"&NC_Name&"','"&NC_Content&"','"&NC_PageUrl&"','"&NC_PageUrlM&"','"&NC_Time&"')"
|
objConn.Execute sql
|
End If
|
End If
|
End Function
|
'--------------------------写入通知中心_2019.8.20---------------------end
|
|
'--------------------------获取客户端真实IP地址---------------------begin
|
Private Function getIP()
|
Dim strIPAddr
|
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
|
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
|
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
|
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")-1)
|
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
|
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")-1)
|
Else
|
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
|
End If
|
getIP = Trim(Mid(strIPAddr, 1, 30))
|
End Function
|
'--------------------------获取客户端真实IP地址---------------------end
|
|
'--------------------------字符串签名---------------------begin
|
'待签名字符串
|
Function SignArgs(args1)
|
sParaSort=""
|
args1SP=SPLIT(args1,"&")
|
ReDim arr(UBOUND(args1SP)+1,2)
|
Dim v '所有表单值
|
Dim t '所有表单数量
|
v=args1
|
t=UBOUND(args1SP)+1
|
For i=0 To t-1
|
arr(i,1)=Split(Split(v,"&")(i),"=")(0)
|
arr(i,2)=Split(Split(v,"&")(i),"=")(1)
|
Next
|
For i = 0 To t-1
|
For j = i + 1 To t-1
|
If arr(i,1) > arr(j,1) Then
|
tmp1 = arr(i,1)
|
arr(i,1) = arr(j,1)
|
arr(j,1) = tmp1
|
tmp2 = arr(i,2)
|
arr(i,2) = arr(j,2)
|
arr(j,2) = tmp2
|
End If
|
Next
|
Next
|
For i = 0 To t-1
|
'response.write arr(i,1) & "=" & arr(i,2) & "<br>"
|
If arr(i,1)="Sign" Then
|
reserve=arr(i,2)
|
else
|
If arr(i,2)="timestamp" Then arr(i,2)=Date() &" "& Time()
|
sParaSort=sParaSort & arr(i,1) & arr(i,2)
|
sParaRunning=sParaRunning &"&"& arr(i,1) &"="& arr(i,2)
|
End if
|
Next
|
sign_type = "MD5"
|
input_charset="utf-8"
|
stringA=sParaSort&key
|
'response.write stringA & "<br>"
|
'SignArgs=stringA
|
|
SignArgs=Md5Sign(sParaSort,key,input_charset)
|
End Function
|
'--------------------------字符串签名---------------------end
|
|
'--------------------------用户ID注册&查询---------------------begin
|
Function User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
|
If key="" Then key="966120API"
|
url="https://api.966120.com.cn/user/"
|
If UserID="" Then UserID=0
|
If UserPhone<>"" Then
|
LoginType=1
|
ElseIf wxOpenid<>"" Then
|
LoginType=3
|
ElseIf UserID<>"0" Then
|
LoginType=0
|
Else
|
LoginType=-1
|
End If
|
If UserName="先生" Or UserName="小姐" Or UserName="test" Or UserName="测试" Or UserName="无" Or UserName="AA" Or Len(UserName)=11 Then
|
UserName=""
|
End If
|
If LoginType>=0 Then
|
Origin="method=User_Login"
|
If APPID<>"" Then
|
Origin=Origin&"&APPID="&APPID
|
Else
|
Origin=Origin&"&APPID=GDS-0008-fDwr"
|
End If
|
Origin=Origin&"&LoginType="&LoginType
|
Origin=Origin&"&UserID="&UserID
|
Origin=Origin&"&UserPhone="&UserPhone
|
Origin=Origin&"&wxOpenid="&wxOpenid
|
Origin=Origin&"&wxOriginalID="&wxOriginalID
|
Origin=Origin&"&wxUnionID="&wxUnionID
|
Origin=Origin&"&UserName="&UserName
|
Origin=Origin&"&UserSource="&UserSource
|
Origin=Origin&"&UnixTime="&ToUnixTime(now(),+8)
|
|
sParaSort=SignArgs(Origin)
|
Origin=Origin&"&Sign="&sParaSort
|
|
'Response.Write url&"?"&Origin&"<br>"
|
'Response.end
|
HTMLCODE= GetBody(url,Origin)
|
'Response.Write HTMLCODE&"<br>"
|
'Response.end
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=HTMLCODE
|
'str=right(str,len(str)-instr(str,"[")+1)
|
'str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
|
If obj.result=1 Then
|
UserID = obj.UserID
|
UserSource = obj.UserSource
|
RecommendUserID = obj.RecommendUserID
|
End If
|
End If
|
End Function
|
'--------------------------用户ID注册&查询---------------------end
|
%>
|
