<%@Language="VBScript" CodePage="65001"%>
|
<%On Error Resume Next%>
|
<!--#include virtual="/inc/odbc.asp"-->
|
<!--#include virtual="/inc/core.asp"-->
|
<%
|
'**********************************************
|
'注意事项
|
'ASP文件需要以UTF-8的格式保存,否则乱码.
|
'以下两行代码是为了通过微信接口验证的。
|
'response.write request("echostr")
|
'response.end
|
'**********************************************
|
dim signature '微信加密签名
|
dim timestamp '时间戳
|
dim nonce '随机数
|
'dim echostr '随机字符串
|
dim Token
|
dim signaturetmp
|
token="966120"'您在后台添写的 token
|
|
signature = Request("signature")
|
nonce = Request("nonce")
|
timestamp = Request("timestamp")
|
'**********************************************
|
dim ToUserName '开发者微信号
|
dim FromUserName'发送方帐号（一个OpenID）
|
dim CreateTime '消息创建时间（整型）
|
dim MsgType 'text
|
dim Content '文本消息内容
|
|
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'此处根据您的实际服务器情况改写
|
xml_dom.load request
|
FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text '发送者微信账号
|
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '接收者微信账号。即我们的公众平台账号。
|
MsgType=xml_dom.getelementsbytagname("MsgType").item(0).Text
|
|
strEventType=xml_dom.getelementsbytagname("Event").item(0).Text
|
Content=xml_dom.getelementsbytagname("Content").item(0).Text
|
EventKey = xml_dom.getelementsbytagname("EventKey").item(0).text
|
Origin="FromUserName="&FromUserName&"&MsgType="&MsgType&"&strEventType="&strEventType&"&Content="&Content&"&EventKey="&EventKey
|
sql="Insert into API_Json (method,Json,reserve) values ('weixin','"&Origin&"','"&reserve&"')"
|
objConn.Execute sql
|
'response.end
|
|
if MsgType="text" then
|
Content=Trim(xml_dom.getelementsbytagname("Content").item(0).Text)
|
'自动回复
|
If Content="52966120" Then
|
strsend=Menu_52966120(FromUserName,ToUserName)
|
elseIf IsNumeric(Content) And Len(Content)=4 Then
|
EventKey=Content
|
strsend=wx_QRscene(FromUserName,ToUserName,EventKey)
|
'elseIf InStr(Content,"投诉")>0 Then
|
' Content="尊敬的用户，我们的服务让您产生不好的体验在此表示十分抱歉，用户的客观评价是我们前进的动力！"&CHR(13)&"需要投诉/评价请点击下方菜单栏“我的-服务评价”进行反馈。"&CHR(13)&"或拨打我们的24小时服务热线：020-966120"
|
' strsend=text(fromusername,tousername,Content)
|
'elseIf InStr(Content,"费用")>0 Or InStr(Content,"多少钱")>0 Or InStr(Content,"收费")>0 Then
|
' Content="了解收费详情，<a href=""https://work.weixin.qq.com/ca/cawcde07db48c8f343"">可联系人工客服</a>"&CHR(13)&"或拨打我们的24小时服务热线：020-966120"
|
' strsend=text(fromusername,tousername,Content)
|
'elseIf InStr(Content,"转运")>0 Or InStr(Content,"转院")>0 Then
|
'Content="您好，搜索“966120民航医疗快线”小程序，或点击下方对应入口下单，"&CHR(13)&"救护车转运｜高铁转运｜航空转运"&CHR(13)&"如需“电话服务”请拨打我们的24小时服务热线：020-966120"
|
'strsend=text(fromusername,tousername,Content)
|
'elseIf InStr(Content,"发票")>0 Then
|
' Content="您好，<a href=""https://wx.966120.com.cn/index.html#/pages/order/list2/list2?OrdState=11"" data-miniprogram-appid=""wx64efc68483366622"" data-miniprogram-path=""pages/order/list2/list2?OrdState=11"">点击跳转发票申请</a>"&CHR(10)&CHR(10)&"如需“电话服务”请拨打我们的24小时服务热线：020-966120"
|
' strsend=text(fromusername,tousername,Content)
|
'elseIf InStr(Content,"招聘")>0 Or InStr(Content,"招人")>0 Then
|
' Content="您好，请前往招聘网站搜索“广东民航医疗快线有限公司”查询岗位招聘详情，"&CHR(13)&"或致电我司行政人力管理中心咨询，电话：020-36774889"
|
' strsend=text(fromusername,tousername,Content)
|
'elseIf InStr(Content,"人工")>0 Or InStr(Content,"客服")>0 Then
|
' Content="<a href=""https://work.weixin.qq.com/ca/cawcde07db48c8f343"">点击跳转到人工客服</a>"&CHR(10)&CHR(10)&"如需“电话服务”请拨打我们的24小时服务热线：020-966120"
|
' strsend=text(fromusername,tousername,Content)
|
'elseIf InStr(Content,"评价")>0 Then
|
' Content="感谢支持民航医疗快线！"&CHR(10)&CHR(10)&"请点击<a href=""https://wx.966120.com.cn/index.html#/pages/order/list2/list2?OrdState=10"" data-miniprogram-appid=""wx64efc68483366622"" data-miniprogram-path=""pages/order/list2/list2?OrdState=10"">服务评价</a>进行评价。"&CHR(10)&CHR(10)&"如需“电话服务”请拨打我们的24小时服务热线：020-966120"
|
' strsend=text(fromusername,tousername,Content)
|
|
End If
|
'If Content="00" Then
|
'strsend=Menu_00(FromUserName,ToUserName)
|
'ElseIf Content="01" Then
|
'strsend=Menu_01(FromUserName,ToUserName)
|
'ElseIf Content<>"" Then
|
'strsend=ContentKey(FromUserName,ToUserName,Content)
|
'End if
|
'strsend=ContentKey(FromUserName,ToUserName,Content)
|
'Content="接收成功"
|
End If
|
|
if (MsgType="event") then
|
strEventType=xml_dom.getelementsbytagname("Event").item(0).text '微信事件
|
EventKey = xml_dom.getelementsbytagname("EventKey").item(0).text '场景值ID
|
if strEventType="subscribe" Or strEventType="SCAN" then '表示订阅微信公众平台或扫一扫
|
If EventKey<>"" Then
|
'扫一扫二维码
|
strsend=wx_QRscene(FromUserName,ToUserName,EventKey)
|
Else
|
'一般用户关注
|
strsend=gz(FromUserName,ToUserName)
|
End If
|
ElseIf strEventType="unsubscribe" Then'取消关注
|
'strsend=gz(FromUserName,ToUserName)
|
end if
|
ElseIf strsend="" Then
|
'Content="欢迎关注966120民航医疗快线！"&CHR(10)&"本司服务详情如下："&CHR(10)&""&CHR(10)&"关于费用/收费标准/收费？"&CHR(10)&"请点击<a href=""http://11651451.s21i.faimallusr.com/2/ABUIABACGAAgtOuNpgYotpKRiwYwgCA48jY.jpg"" >收费公示</a>查看或拨打客服热线：020-966120"&CHR(10)&""&CHR(10)&"需要转运/转院怎么做？ "&CHR(10)&"请点击下方对应入口预约下单，"&CHR(10)&"<a href=""https://wx.966120.com.cn/"" data-miniprogram-appid=""wx64efc68483366622"" data-miniprogram-path=""pages/my/login/login"">救护车转运</a>｜<a href=""https://wx.966120.com.cn/"" data-miniprogram-appid=""wx64efc68483366622"" data-miniprogram-path=""pages/index/index?Type=1"">高铁转运</a>｜<a href=""https://wx.966120.com.cn/"" data-miniprogram-appid=""wx64efc68483366622"" data-miniprogram-path=""pages/index/index?Type=2"">航空转运</a>"&CHR(10)&""&CHR(10)&"发票申请或查询？"&CHR(10)&"请点击<a href=""https://wx.966120.com.cn/index.html#/pages/order/list2/list2?OrdState=11"" data-miniprogram-appid=""wx64efc68483366622"" data-miniprogram-path=""pages/order/list2/list2?OrdState=11"">发票申请</a>"&CHR(10)&""&CHR(10)&"了解公司招聘信息？"&CHR(10)&"请致电行政人力管理中心，"&CHR(10)&"电话：020-36774889 "&CHR(10)&""&CHR(10)&"如何对服务评价/投诉？"&CHR(10)&"请点击<a href=""https://wx.966120.com.cn/index.html#/pages/order/list2/list2?OrdState=10"" data-miniprogram-appid=""wx64efc68483366622"" data-miniprogram-path=""pages/order/list2/list2?OrdState=10"">服务评价</a>"&CHR(10)&""&CHR(10)&"如果你想了解更多服务详情"&CHR(10)&"<a href=""https://work.weixin.qq.com/ca/cawcde07db48c8f343"">点击跳转到人工客服</a>，或致电24小时人工服务热线：020-966120"
|
'strsend=text(fromusername,tousername,Content)
|
strsend=""
|
end If
|
sql="insert into API_Json (method,Json,reserve) values ('微信事件','"&MsgType&","&strEventType&","&EventKey&"','"&FromUserName&"')"
|
objConn.Execute sql
|
If strsend<>"" Then response.write strsend
|
set xml_dom=Nothing
|
|
'*************以下代码只是为了调试作用***********
|
'filepath=server.mappath(".")&"\wx.txt"
|
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
|
'set fopen=fso.OpenTextFile(filepath, 8 ,true)
|
'fopen.writeline(strsend)
|
'set fso=nothing
|
'set fopen=Nothing
|
'****************调试结束************************
|
|
'"<MediaId><![CDATA[9a4sBLzvNVREJTh1pO2ZJI1t9GXp-KiVoIswJjasMJnOM6Ykb6bnumI0k5-0A73f]]></MediaId>" &_ '人工客服素材二维码
|
'"<MediaId><![CDATA[9a4sBLzvNVREJTh1pO2ZJEr-2A-iUKer1pwYplV2KXIrLSrzjVUB_3pdrGpRNM32]]></MediaId>" &_ ' 黎晴-线下活动用
|
|
|
'关注微信公众平台
|
function gz(fromusername,tousername)
|
gz="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[image]]></MsgType>" &_
|
"<Image>" &_
|
"<MediaId><![CDATA[9a4sBLzvNVREJTh1pO2ZJI1t9GXp-KiVoIswJjasMJnOM6Ykb6bnumI0k5-0A73f]]></MediaId>" &_
|
"</Image>" &_
|
"</xml>"
|
|
MsgType="text"
|
Content="👏👏欢迎关注966120民航医疗快线！我司经广东省卫生健康委员会批准，拥有全国首个医疗转运资质，是正规专业的医疗转运机构。"&CHR(10)&CHR(10)&"Q：关于费用/收费标准/收费？"&CHR(10)&"A：请点击<a href='http://11651451.s21i.faimallusr.com/2/ABUIABACGAAgtOuNpgYotpKRiwYwgCA48jY.jpg' >收费公示</a>查看或拨打客服热线：020-966120"&CHR(10)&CHR(10)&"Q：需要预约转院/出院？ "&CHR(10)&"A：请点击下方对应入口预约下单："&CHR(10)&"<a href='https://wx.966120.com.cn/' data-miniprogram-appid='wx64efc68483366622' data-miniprogram-path='pages/my/login/login'>救护车转运</a>"&CHR(10)&"<a href='https://work.weixin.qq.com/ca/cawcde07db48c8f343'>或点击跳转至人工客服</a>"&CHR(10)&CHR(10)&"Q：转运后申请发票？"&CHR(10)&"A：请点击<a href='https://wx.966120.com.cn/index.html#/pages/order/list2/list2?OrdState=11' data-miniprogram-appid='wx64efc68483366622' data-miniprogram-path='pages/order/list2/list2?OrdState=11'>发票申请</a>"&CHR(10)&CHR(10)&"Q：转运后对服务评价/投诉？"&CHR(10)&"A：请点击<a href='https://wx.966120.com.cn/index.html#/pages/order/list2/list2?OrdState=10' data-miniprogram-appid='wx64efc68483366622' data-miniprogram-path='pages/order/list2/list2?OrdState=10'>服务评价</a>"&CHR(10)&CHR(10)&"如果你想了解更多服务详情"&CHR(10)&"<a href='https://work.weixin.qq.com/ca/cawcde07db48c8f343'>点击跳转至人工客服</a>，或致电24小时人工服务热线：020-966120"
|
call GetCustom_send(fromusername,MsgType,Content)
|
end Function
|
|
'关键字回复
|
function ContentKey(fromusername,tousername,Content)
|
|
If ToMsgType="text" Then
|
ContentKey="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[text]]></MsgType>" &_
|
"<Content><![CDATA[" &weixinTXT&"]]></Content>" &_
|
"</xml> "
|
elseIf ToMsgType="news" Then
|
ContentKey="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[news]]></MsgType>" &_
|
"<ArticleCount>1</ArticleCount>" &_
|
"<Articles>" &_
|
"<item>" &_
|
"<Title><![CDATA["&weixinTitle&"]]></Title> " &_
|
"<Description><![CDATA["&weixinTXT&"]]></Description>" &_
|
"<PicUrl><![CDATA["&weixinPic&"]]></PicUrl>" &_
|
"<Url><![CDATA["&weixinURL&"]]></Url>" &_
|
"</item>" &_
|
"</Articles>" &_
|
"</xml> "
|
End If
|
end Function
|
|
'取消关注
|
function text(fromusername,tousername,returnstr)
|
text="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[text]]></MsgType>" &_
|
"<Content><![CDATA[" & returnstr & "]]></Content>" &_
|
"<FuncFlag>0<FuncFlag>" &_
|
"</xml>"
|
end Function
|
|
'帮助菜单(回复0)
|
function Menu_0(fromusername,tousername)
|
Menu_0="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[text]]></MsgType>" &_
|
"<Content><![CDATA[" &_
|
"帮助菜单"&CHR(10)&_
|
|
"回复1 查看OpenID"&CHR(10)&_
|
"回复2 获得后台链接"&CHR(10)&CHR(13)&_
|
"如你是首次使用请把OpenID转发至IT部"&CHR(10)&_
|
"]]></Content>" &_
|
"</xml> "
|
end Function
|
|
'员工ID认证(回复52966120)
|
function Menu_52966120(fromusername,tousername)
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select id from dictionary where vtitle='966120_OA_openid' and vType>=1 and vtext='"&fromusername&"'"
|
rs.open sql,objConn,1,1
|
If rs.eof Then
|
sql="Insert into dictionary (vID,vtext,vtitle,vType) values (0,'"&fromusername&"','966120_OA_openid',1)"
|
objConn.Execute sql
|
End If
|
rs.close()
|
Menu_52966120="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[text]]></MsgType>" &_
|
"<Content><![CDATA[" &_
|
"欢迎你加入我们的大家庭"&_
|
"]]></Content>" &_
|
"</xml> "
|
end Function
|
|
|
|
'查看OpenID(回复1)
|
function Menu_1(fromusername,tousername)
|
Menu_1="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[text]]></MsgType>" &_
|
"<Content><![CDATA[" &tousername&"]]></Content>" &_
|
"</xml> "
|
end Function
|
|
'获得测试链接1(回复00)
|
function Menu_00(fromusername,tousername)
|
Menu_00="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[news]]></MsgType>" &_
|
"<ArticleCount>2</ArticleCount>" &_
|
"<Articles>" &_
|
"<item>" &_
|
"<PicUrl><![CDATA[http://m.v.com.cn/box/images/2016123007.jpg]]></PicUrl>" &_
|
"<Url><![CDATA[http://m.v.com.cn/box/scratch.php?weixinAPP=1&weixinOpenID="&FromUserName&"]]></Url>" &_
|
"</item>" &_
|
"<item>" &_
|
"<Title><![CDATA[V俱乐部 追求优质生活，享受全球同质同价]]></Title> " &_
|
"<Description></Description>" &_
|
"<PicUrl><![CDATA[http://m.v.com.cn/images/APPicon01.jpg]]></PicUrl>" &_
|
"<Url><![CDATA[http://mp.weixin.qq.com/s/An1gPCtApH9Zvq3hane7DA]]></Url>" &_
|
"</item>" &_
|
"</Articles>" &_
|
"</xml> "
|
end Function
|
|
'获得测试链接2(回复02)
|
function Menu_01(fromusername,tousername)
|
Menu_01="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[news]]></MsgType>" &_
|
"<ArticleCount>1</ArticleCount>" &_
|
"<Articles>" &_
|
"<item>" &_
|
"<Title><![CDATA[链接2]]></Title> " &_
|
"<PicUrl><![CDATA[http://m.v.com.cn/box/images/2016123007.jpg]]></PicUrl>" &_
|
"<Url><![CDATA[http://m.v.com.cn/1688/lucky/1.php?weixinAPP=1&weixinOpenID="&FromUserName&"]]></Url>" &_
|
"</item>" &_
|
"</Articles>" &_
|
"</xml> "
|
end Function
|
|
'扫一扫
|
function wx_QRscene(fromusername,tousername,EventKey)
|
scene_id=replace(EventKey,"qrscene_","")
|
If IsNumeric(scene_id) Then
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from weixinQR where QR_ID="&scene_id
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
QR_Name = rs("QR_Name")
|
QR_type = rs("QR_type")
|
QR_Key = rs("QR_Key")
|
'weixinURL="https://wx.966120.com.cn/OrdEvaluate.asp"
|
weixinURL="https://wx.966120.com.cn/MyOrder.php"
|
If InStr(weixinURL,"?")>0 Then
|
weixinURL = weixinURL&"&openid="&fromusername
|
Else
|
weixinURL = weixinURL&"?openid="&fromusername
|
End If
|
End If
|
rs.close()
|
If strEventType="subscribe" Then
|
sql="update weixinQR set QR_ClickInt=QR_ClickInt+1,QR_SubscribeInt=QR_SubscribeInt+1 where QR_ID="&scene_id
|
Else
|
sql="update weixinQR set QR_ClickInt=QR_ClickInt+1 where QR_ID="&scene_id
|
End If
|
objConn.Execute sql
|
End If
|
If QR_type="1" Then '车牌
|
sql="select top 1 CarLicense,DispatchOrdClass,DispatchOrdID,ServiceOrdIDDt,DispatchOrdState,DispatchOrdTraSDTime,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrd_NS_Time,DispatchOrdNo,DispatchOrdActualDate,DispatchOrdCarID,ServiceOrdTraTxnPrice,ServiceOrdUnitID,HospNameA=(select HospName from HospData where HospID=ServiceOrdPtOutHospID),HospNameB=(select HospName from HospData where HospID=ServiceOrdPtInHospID) from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID,CarData where DispatchOrdCarID=CarID and DispatchOrdState in (4,5,6,7) and DispatchOrdCarID="&QR_Key&" order by DispatchOrdActualDate desc"
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
DispatchOrdClass = rs("DispatchOrdClass")
|
DispatchOrdID = rs("DispatchOrdID")
|
ServiceOrdID = rs("ServiceOrdIDDt")
|
DispatchOrdState = rs("DispatchOrdState")
|
SDTime = rs("DispatchOrdTraSDTime")
|
DispatchOrdTraStreet= rs("DispatchOrdTraStreet")
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd")
|
DispatchOrdTraVia = rs("DispatchOrdTraVia")
|
DispatchOrdActualDate=rs("DispatchOrdActualDate")
|
DispatchOrdCarID = rs("DispatchOrdCarID")
|
ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
|
ServiceOrdUnitID = rs("ServiceOrdUnitID")
|
HospNameA = rs("HospNameA")
|
HospNameB = rs("HospNameB")
|
DispatchOrdNo = DispatchOrdClass& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '调度单编号
|
|
If DispatchOrdTraVia<>"" Then DispatchOrdTraStreet=DispatchOrdTraVia
|
If HospNameA="" Or HospNameA="家中" Then HospNameA=DispatchOrdTraStreet
|
If HospNameB="" Or HospNameB="家中" Then HospNameB=DispatchOrdTraEnd
|
|
weixinTitle=""
|
weixinTXT=""
|
weixinPic=""
|
weixinURL=""
|
|
'发送模块信息----
|
weixinID=5738
|
Set wxrs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from dictionary where id="&weixinID
|
'Response.Write sql &"<br><br>"
|
wxrs.open sql,objConn,1,1
|
APPID = "wx70f6a7346ee842c0"
|
APPSECRET = "2d6c59de85e876b7eadebeba62e5417a"
|
access_token = wxrs("vtext")
|
access_token_time= wxrs("vMono")
|
wxrs.close()
|
If InStr(access_token,"40001")>0 Then
|
access_token_time=now()-1
|
End If
|
access_token=GetAccess_token(weixinID,access_token,access_token_time)
|
appUrl="https://api.weixin.qq.com/cgi-bin/message/template/send?access_token="&access_token
|
args1="{"
|
args1=args1&"""touser"":"""&fromusername&""","
|
args1=args1&"""template_id"":""TEFZzpdZWa77GUY4gv1AHTgiyrjiYjDzEg3_1jry2iU"","
|
args1=args1&"""miniprogram"":{"
|
args1=args1&"""appid"":""wx64efc68483366622"","
|
args1=args1&"""pagepath"":""pages/order/detail/detail?ServiceOrdID="&ServiceOrdID&""""
|
args1=args1&"},"
|
args1=args1&"""data"":{"
|
args1=args1&"""first"": {"
|
args1=args1&"""value"":""请您对我们的服务团队进行评价"""
|
args1=args1&"},"
|
args1=args1&"""keyword1"": {"
|
args1=args1&"""value"":"""&datepart("yyyy",now())&"年"&datepart("m",now())&"月"&datepart("d",now())&"日"""
|
args1=args1&"},"
|
args1=args1&"""keyword2"": {"
|
args1=args1&"""value"":"""&HospNameA&" 至 "&HospNameB&""","
|
args1=args1&"""color"":""#ff4d00"""
|
args1=args1&"},"
|
args1=args1&"""keyword3"": {"
|
args1=args1&"""value"":""民航医疗快线"""
|
args1=args1&"},"
|
args1=args1&"""remark"": {"
|
args1=args1&"""value"":""点击查看详情并对本次服务进行评价"""
|
args1=args1&"}"
|
args1=args1&"}"
|
args1=args1&"}"
|
call PostBody(appUrl,args1)
|
'发送模块信息----end
|
|
Else
|
weixinTitle="民航医疗快线 966120"
|
weixinTXT="车牌:"&QR_Name
|
weixinPic="https://wx.966120.com.cn/img/success2.png"
|
weixinURL="http://mp.weixin.qq.com/s/PrFHf6i0Fk7OE0iG98kbQg"
|
End If
|
rs.close()
|
ElseIf QR_type="2" Then '人员
|
sql="select top 1 EntourageOAid,DispatchOrdClass,DispatchOrdID,ServiceOrdIDDt,DispatchOrdState,DispatchOrdTraSDTime,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrd_NS_Time,DispatchOrdNo,DispatchOrdActualDate,DispatchOrdCarID,ServiceOrdTraTxnPrice,ServiceOrdUnitID,HospNameA=(select HospName from HospData where HospID=ServiceOrdPtOutHospID),HospNameB=(select HospName from HospData where HospID=ServiceOrdPtInHospID) from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID,DispatchOrd_Entourage where DispatchOrdID=DispatchOrdIDDt and DispatchOrdState in (4,5,6,7) and EntourageState<>4 and EntourageOAid="&QR_Key&" order by DispatchOrdActualDate desc"
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
DispatchOrdClass = rs("DispatchOrdClass")
|
DispatchOrdID = rs("DispatchOrdID")
|
ServiceOrdID = rs("ServiceOrdIDDt")
|
DispatchOrdState = rs("DispatchOrdState")
|
SDTime = rs("DispatchOrdTraSDTime")
|
DispatchOrdTraStreet= rs("DispatchOrdTraStreet")
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd")
|
DispatchOrdTraVia = rs("DispatchOrdTraVia")
|
DispatchOrdActualDate=rs("DispatchOrdActualDate")
|
DispatchOrdCarID = rs("DispatchOrdCarID")
|
ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
|
ServiceOrdUnitID = rs("ServiceOrdUnitID")
|
HospNameA = rs("HospNameA")
|
HospNameB = rs("HospNameB")
|
DispatchOrdNo = DispatchOrdClass& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '调度单编号
|
|
If DispatchOrdTraVia<>"" Then DispatchOrdTraStreet=DispatchOrdTraVia
|
|
If HospNameA="" Or HospNameA="家中" Then HospNameA=DispatchOrdTraStreet
|
If HospNameB="" Or HospNameB="家中" Then HospNameB=DispatchOrdTraEnd
|
|
weixinTitle=""
|
weixinTXT=""
|
weixinPic=""
|
weixinURL=""
|
|
'发送模块信息----
|
weixinID=5738
|
Set wxrs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from dictionary where id="&weixinID
|
'Response.Write sql &"<br><br>"
|
wxrs.open sql,objConn,1,1
|
APPID = "wx70f6a7346ee842c0"
|
APPSECRET = "2d6c59de85e876b7eadebeba62e5417a"
|
access_token = wxrs("vtext")
|
access_token_time= wxrs("vMono")
|
wxrs.close()
|
If InStr(access_token,"40001")>0 Then
|
access_token_time=now()-1
|
End If
|
access_token=GetAccess_token(weixinID,access_token,access_token_time)
|
appUrl="https://api.weixin.qq.com/cgi-bin/message/template/send?access_token="&access_token
|
args1="{"
|
args1=args1&"""touser"":"""&fromusername&""","
|
args1=args1&"""template_id"":""TEFZzpdZWa77GUY4gv1AHTgiyrjiYjDzEg3_1jry2iU"","
|
args1=args1&"""miniprogram"":{"
|
args1=args1&"""appid"":""wx64efc68483366622"","
|
args1=args1&"""pagepath"":""pages/order/detail/detail?ServiceOrdID="&ServiceOrdID&""""
|
args1=args1&"},"
|
args1=args1&"""data"":{"
|
args1=args1&"""first"": {"
|
args1=args1&"""value"":""请您对我们的服务团队进行评价"""
|
args1=args1&"},"
|
args1=args1&"""keyword1"": {"
|
args1=args1&"""value"":"""&datepart("yyyy",now())&"年"&datepart("m",now())&"月"&datepart("d",now())&"日"""
|
args1=args1&"},"
|
args1=args1&"""keyword2"": {"
|
args1=args1&"""value"":"""&HospNameA&" 至 "&HospNameB&""","
|
args1=args1&"""color"":""#ff4d00"""
|
args1=args1&"},"
|
args1=args1&"""keyword3"": {"
|
args1=args1&"""value"":""民航医疗快线"""
|
args1=args1&"},"
|
args1=args1&"""remark"": {"
|
args1=args1&"""value"":""点击查看详情并对本次服务进行评价"""
|
args1=args1&"}"
|
args1=args1&"}"
|
args1=args1&"}"
|
call PostBody(appUrl,args1)
|
'发送模块信息----end
|
Else
|
weixinTitle="民航医疗快线 966120"
|
weixinTXT="员工:"&QR_Name
|
weixinPic="https://wx.966120.com.cn/img/success2.png"
|
weixinURL="http://mp.weixin.qq.com/s/PrFHf6i0Fk7OE0iG98kbQg"
|
End If
|
rs.close()
|
ElseIf QR_type="3" Then '订单验证码
|
If QR_Key<>"" Then
|
sql="select top 1 ServiceOrdID,DispatchOrdID,DispatchOrdState,ServiceOrdTraVia,ServiceOrdTraEnd,ServiceOrdTraTxnPrice,ServiceOrdTraPrePayment,ServiceOrdTraPaidPrice from ServiceOrder LEFT JOIN DispatchOrd on ServiceOrdIDDt=ServiceOrdID where (DispatchOrdState is null or DispatchOrdState in (0,1,2,3,4,5,6,7)) and ServiceOrdID="&QR_Key&" order by DispatchOrdActualDate desc"
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
DispatchOrdID = rs("DispatchOrdID")
|
ServiceOrdID = rs("ServiceOrdID")
|
DispatchOrdState = rs("DispatchOrdState")
|
ServiceOrdTraVia = rs("ServiceOrdTraVia")
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd")
|
|
ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice") '成交价
|
ServiceOrdTraPrePayment = rs("ServiceOrdTraPrePayment") '需预付款
|
ServiceOrdTraPaidPrice=rs("ServiceOrdTraPaidPrice") '已支付金额
|
|
If DispatchOrdID<>"" And Not isnull(DispatchOrdID) then
|
weixinURL = weixinURL&"&DispatchOrdID="&DispatchOrdID
|
Else
|
weixinURL = weixinURL&"&DispatchOrdID=0&ServiceOrdID="&ServiceOrdID
|
End If
|
If DispatchOrdTraVia<>"" Then DispatchOrdTraStreet=DispatchOrdTraVia
|
|
If ServiceOrdTraPrePayment>ServiceOrdTraPaidPrice Then
|
weixinTitle="您的转运订单需支付定金:"&(ServiceOrdTraPrePayment-ServiceOrdTraPaidPrice)&"元"
|
weixinTXT="您的转运行程为："&vbcrlf&ServiceOrdTraVia&vbcrlf&ServiceOrdTraEnd
|
else
|
weixinTitle="您的转运订单"
|
weixinTXT="您的转运行程为："&vbcrlf&ServiceOrdTraVia&vbcrlf&ServiceOrdTraEnd
|
End If
|
weixinPic="https://wx.966120.com.cn/img/success2.png"
|
weixinURL=weixinURL
|
Else
|
weixinTitle="民航医疗快线 966120"
|
weixinTXT="感谢您关注本公众号。若您有任何需要咨询了解的地方，请致电我们的24小时服务热线：（020）966120，广东民航医疗快线全心全意为您服务！！"
|
weixinPic=""
|
weixinURL=""
|
End If
|
Else
|
weixinTitle="民航医疗快线 966120"
|
weixinTXT="感谢您关注本公众号。若您有任何需要咨询了解的地方，请致电我们的24小时服务热线：（020）966120，广东民航医疗快线全心全意为您服务！"
|
weixinURL=""
|
End If
|
|
ElseIf QR_type="4" Then '个人会员
|
sql="select UserID,UserSource,RecommendUserID from UserData where UserID="&QR_Key
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
UserID = rs("UserID")
|
UserSource = rs("UserSource")
|
RecommendUserID = rs("RecommendUserID")
|
Source = "Rid"&UserID
|
If UserSource<>"" Then Source=Source&"/"&UserSource
|
|
weixinTitle=""
|
weixinTXT=""
|
weixinPic=""
|
weixinURL=""
|
|
'发送模块信息----
|
weixinID=5738
|
Set wxrs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from dictionary where id="&weixinID
|
'Response.Write sql &"<br><br>"
|
wxrs.open sql,objConn,1,1
|
APPID = "wx70f6a7346ee842c0"
|
APPSECRET = "2d6c59de85e876b7eadebeba62e5417a"
|
access_token = wxrs("vtext")
|
access_token_time= wxrs("vMono")
|
wxrs.close()
|
If InStr(access_token,"40001")>0 Then
|
access_token_time=now()-1
|
End If
|
access_token=GetAccess_token(weixinID,access_token,access_token_time)
|
|
appUrl="https://api.weixin.qq.com/cgi-bin/message/template/send?access_token="&access_token
|
args1="{"
|
args1=args1&"""touser"":"""&fromusername&""","
|
args1=args1&"""template_id"":""tJcwe12crSql304L19h3vegLC6cSAkfRl0u_trHcSGI"","
|
args1=args1&"""miniprogram"":{"
|
args1=args1&"""appid"":""wx64efc68483366622"","
|
args1=args1&"""pagepath"":""pages/my/login/login?S="&Source&""""
|
args1=args1&"},"
|
args1=args1&"""data"":{"
|
args1=args1&"""keyword1"": {"
|
args1=args1&"""value"":""请点击此处，授权手机号。"","
|
args1=args1&"""color"":""#ff4d00"""
|
args1=args1&"},"
|
args1=args1&"""keyword2"": {"
|
args1=args1&"""value"":"""&datepart("yyyy",now())&"年"&datepart("m",now())&"月"&datepart("d",now())&"日"""
|
args1=args1&"}"
|
'args1=args1&"""remark"": {"
|
' args1=args1&"""value"":""新注册的顾客，可获得价值350元的现金券"""
|
'args1=args1&"}"
|
args1=args1&"}"
|
args1=args1&"}"
|
call PostBody(appUrl,args1)
|
'发送模块信息----end
|
Else
|
weixinTitle="民航医疗快线 966120"
|
weixinTXT="感谢您关注本公众号。若您有任何需要咨询了解的地方，请致电我们的24小时服务热线：（020）966120，广东民航医疗快线全心全意为您服务！！"
|
weixinPic=""
|
weixinURL=""
|
End If
|
rs.close()
|
ElseIf QR_type="0" Then '现场扫码活动
|
sql="select QR_activityInt from QR_activity where QR_OpenID='"&fromusername&"' and QR_Key='"&QR_Key&"'"
|
rs.open sql,objConn,1,1
|
If rs.eof Then
|
rs.close()
|
sql="select COUNT(*) from QR_activity where QR_Key='"&QR_Key&"'"
|
rs.open sql,objConn,1,1
|
QR_activityInt=rs(0)+1
|
sql="Insert into QR_activity (QR_OpenID,QR_Key,QR_activityInt) values ('"&fromusername&"','"&QR_Key&"',"&QR_activityInt&")"
|
objConn.Execute sql
|
Else
|
QR_activityInt=rs(0)
|
End If
|
rs.close()
|
|
If QR_Key="2024051101" Then
|
weixinTitle="民航医疗快线公益活动赢礼品"
|
weixinPic="https://api.966120.com.cn/images/20240513162205.png"
|
If QR_activityInt<=50 Then
|
weixinTXT="拼手气，砸金蛋活动1"
|
weixinURL="https://11651451-20.hd.ysfaisco.cn/11651451/k4sUGbOU4amzUt8_C3HkMQ/load-11651451-20.html?style=115&_source=1"
|
ElseIf QR_activityInt<=100 Then
|
weixinTXT="拼手气，砸金蛋活动2"
|
weixinURL="https://11651451-24.hd.ysfaisco.cn/11651451/k4sUGbOU4amT5EJCsCaysg/load-11651451-24.html?style=115&_source=1"
|
ElseIf QR_activityInt<=150 Then
|
weixinTXT="拼手气，砸金蛋活动3"
|
weixinURL="https://11651451-26.hd.ysfaisco.cn/11651451/k4sUGbOU4amXFF3YiUeELg/load-11651451-26.html?style=115&_source=1"
|
ElseIf QR_activityInt<=200 Then
|
weixinTXT="拼手气，砸金蛋活动4"
|
weixinURL="https://11651451-14.hd.ysfaisco.cn/11651451/k4sUGbOU4amN1Upv-D1mtg/load-11651451-14.html?style=115&editQrcode=true&_source=1"
|
ElseIf QR_activityInt<=250 Then
|
weixinTXT="拼手气，砸金蛋活动5"
|
weixinURL="https://11651451-14.hd.ysfaisco.cn/11651451/k4sUGbOU4amN1Upv-D1mtg/load-11651451-14.html?style=115&editQrcode=true&_source=1"
|
Else
|
weixinTXT="拼手气，砸金蛋活动6"
|
weixinURL="https://11651451-14.hd.ysfaisco.cn/11651451/k4sUGbOU4amN1Upv-D1mtg/load-11651451-14.html?style=115&editQrcode=true&_source=1"
|
End If
|
End If
|
Else
|
weixinTitle="其它"
|
weixinTXT="感谢您关注本公众号"&QR_type&"。若您有任何需要咨询了解的地方"&QR_Key&"，请致电我们的24小时服务热线：（020）966120，广东民航医疗快线全心全意为您服务！"
|
weixinPic=""
|
weixinURL=""
|
End If
|
|
If weixinURL<>"" And weixinURL<>"http://mp.weixin.qq.com/s/PrFHf6i0Fk7OE0iG98kbQg" Then
|
If DispatchOrdID<>"" And Not isnull(DispatchOrdID) Then
|
Sign1=Md5Sign(DispatchOrdID,GPSKey,"utf-8")
|
Else
|
Sign1=Md5Sign(ServiceOrdID,GPSKey,"utf-8")
|
End If
|
weixinURL = weixinURL&"&sign="&Sign1
|
End If
|
If weixinURL<>"" Then
|
wx_QRscene="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[news]]></MsgType>" &_
|
"<ArticleCount>1</ArticleCount>" &_
|
"<Articles>" &_
|
"<item>" &_
|
"<Title><![CDATA["&weixinTitle&"]]></Title> " &_
|
"<Description><![CDATA["&weixinTXT&"]]></Description>" &_
|
"<PicUrl><![CDATA["&weixinPic&"]]></PicUrl>" &_
|
"<Url><![CDATA["&weixinURL&"]]></Url>" &_
|
"</item>" &_
|
"</Articles>" &_
|
"</xml> "
|
ElseIf weixinTXT<>"" Then
|
wx_QRscene="<xml>" &_
|
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
|
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
|
"<CreateTime>"&now&"</CreateTime>" &_
|
"<MsgType><![CDATA[text]]></MsgType>" &_
|
"<Content><![CDATA["&weixinTXT&"]]></Content>" &_
|
"</xml> "
|
End If
|
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
|
|
'Post方法
|
Function PostBody(appUrl,args1)
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
'Set https = Server.CreateObject("MSXML2.XMLHTTP")
|
With https
|
.Open "Post", appUrl, False
|
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
|
.Send args1
|
PostBody = .ResponseBody
|
End With
|
PostBody = BytesToBstr(PostBody,"utf-8")
|
Set https = Nothing
|
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
|
|
'获取access_token
|
Function GetAccess_token(weixinID,access_token,access_token_time)
|
If DateDiff("s",access_token_time,now())>0 Then
|
'获取新的access_token
|
url="https://api.weixin.qq.com/cgi-bin/token" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="grant_type=client_credential&appid="&APPID&"&secret="&APPSECRET
|
'Response.Write url&"?"&Origin
|
HTMLCODE= GetBody(url,Origin)
|
access_token=replace(HTMLCODE,"{""access_token"":""","")
|
access_token=Left(access_token,InStr(access_token,""",""")-1)
|
access_token_time=DateAdd("s",7000,now())
|
'写入数据库
|
sql="update dictionary set vtext='"&access_token&"',vMono='"&access_token_time&"' where id="&weixinID
|
objConn.Execute sql
|
End if
|
GetAccess_token = access_token
|
End Function
|
|
'发送客服信息
|
Function GetCustom_send(fromusername,MsgType,Content)
|
If MsgType<>"" And Content<>"" Then
|
weixinID=5738
|
Set wxrs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from dictionary where id="&weixinID
|
'Response.Write sql &"<br><br>"
|
wxrs.open sql,objConn,1,1
|
APPID = "wx70f6a7346ee842c0"
|
APPSECRET = "2d6c59de85e876b7eadebeba62e5417a"
|
access_token = wxrs("vtext")
|
access_token_time= wxrs("vMono")
|
wxrs.close()
|
If InStr(access_token,"40001")>0 Then
|
access_token_time=now()-1
|
End If
|
access_token=GetAccess_token(weixinID,access_token,access_token_time)
|
appUrl="https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token="&access_token
|
args1="{"
|
args1=args1&"""touser"":"""&fromusername&""","
|
If MsgType="image" Then
|
args1=args1&"""msgtype"":""image"","
|
args1=args1&"""image"":{"
|
args1=args1&"""media_id"":"""&Content&""""
|
args1=args1&"}"
|
ElseIf MsgType="text" Then
|
args1=args1&"""msgtype"":""text"","
|
args1=args1&"""text"":{"
|
args1=args1&"""content"":"""&Content&""""
|
args1=args1&"}"
|
End If
|
args1=args1&"}"
|
call PostBody(appUrl,args1)
|
End If
|
End Function
|
%>
|
