<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost.gds"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
testID = trim(request.form("testID"))
|
testName = trim(request.form("testName"))
|
testUserID1 = trim(request.form("testUserID1"))
|
testUserID2 = trim(request.form("testUserID2"))
|
testUserID3 = trim(request.form("testUserID3"))
|
testUserID4 = trim(request.form("testUserID4"))
|
Dim test_UserType(4)
|
Dim test_UserID(4)
|
|
If testName="" And testID="" Then
|
Response.Redirect "/test_PC.gds?SystemMessageType=1&SMT=1"
|
ElseIf testUserID1="" And testUserID2="" And testUserID3="" And testUserID4="" Then
|
Response.Redirect "/test_PC.gds?SystemMessageType=1&SMT=2"
|
End If
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
for i = 1 to 4
|
testUserID = trim(request.form("testUserID"&i))
|
If testUserID<>"" then
|
sql="select OA_User_ID,OA_weixinUserID from OA_User where OA_weixinUserID='"&testUserID&"' or OA_mobile='"&testUserID&"' or OA_Name='"&testUserID&"'"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
OA_UserID = rs("OA_User_ID")
|
OA_weixinUserID = rs("OA_weixinUserID")
|
test_UserID(i)= OA_UserID
|
If i=1 Then
|
test_UserType(1)="司机"
|
elseIf i=2 Then
|
test_UserType(2)="医生"
|
elseIf i=3 Then
|
test_UserType(3)="护士"
|
Else
|
test_UserType(4)="随行人员"
|
End if
|
touser=touser&OA_weixinUserID&"|"
|
End If
|
rs.close()
|
End if
|
Next
|
If touser="" Then Response.Redirect "/test_PC.gds?SystemMessageType=4&SMT=3"
|
touser=Mid(touser,1,Len(touser)-1)
|
If touser<>"" And testName<>"" Then
|
sql="Insert into test_Ord (testName) values ('"&testName&"')"
|
objConn.Execute sql
|
sql="select top 1 testID from test_Ord order by testID desc"
|
rs.open sql,objConn,1,1
|
testID = rs("testID")
|
rs.close()
|
for i = 1 to 4
|
If test_UserID(i)<>"" then
|
sql="Insert into test_OrdDt (testIDDt,testOA_UserID,test_UserType) values ("&testID&","&test_UserID(i)&",'"&test_UserType(i)&"')"
|
objConn.Execute sql
|
End if
|
Next
|
ElseIf touser<>"" And testID<>"" Then
|
sql="select top 1 testName from test_Ord where testID="&testID
|
rs.open sql,objConn,1,1
|
testName = rs("testName")
|
rs.close()
|
sql="delete from test_OrdDt where testWeixinState='已取消' and testIDDt="&testID
|
objConn.Execute sql
|
for i = 1 to 4
|
If test_UserID(i)<>"" then
|
sql="Insert into test_OrdDt (testIDDt,testOA_UserID,test_UserType) values ("&testID&","&test_UserID(i)&",'"&test_UserType(i)&"')"
|
objConn.Execute sql
|
End if
|
Next
|
End if
|
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
|
|
args1="{"
|
args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang
|
args1=args1&"""toparty"": """"," '部门ID列表，多个接收者用‘|’分隔，最多支持100个。当touser为@all时忽略本参数
|
args1=args1&"""totag"": """"," '标签ID列表，多个接收者用‘|’分隔。当touser为@all时忽略本参数
|
args1=args1&"""agentid"": 21," '企业应用的id，整型。可在应用的设置页面查看
|
|
args1=args1&"""msgtype"": ""news"","
|
args1=args1&"""news"": {"
|
args1=args1&"""articles"":["
|
args1=args1&"{"
|
args1=args1&"""title"": ""【"&testName&"】调度请求_ID:"&testID&""","
|
args1=args1&"""description"": ""你收到了一个调度请求，快去看看吧～"","
|
args1=args1&"""url"": ""https://sys.966120.com.cn/test_weixin.gds?testID="&testID&""","
|
args1=args1&"""picurl"": """""
|
args1=args1&"}"
|
args1=args1&"]"
|
args1=args1&"}"
|
|
args1=args1&"}"
|
|
|
HTMLCODE= PostBody(appUrl,args1)
|
'Response.Write HTMLCODE &"<br>"
|
|
If Mid(HTMLCODE,12,1)<>"0" Then
|
Response.Write HTMLCODE
|
Else
|
Response.Redirect "/test_PC.gds?SystemMessageType=3&SMT=1"
|
End If
|
%>
|
