<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost_user.gds"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
'邀请成员关注
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/batch/invite?access_token="&access_token
|
|
OA_UserID = trim(Request("OA_UserID"))
|
DepartmentID = trim(Request("DepartmentID"))
|
OA_weixinUserID = trim(Request("OA_weixinUserID"))
|
If OA_UserID="" And DepartmentID="" Then Response.Redirect "/"
|
If OA_weixinUserID="" Then Response.Redirect "/AdminUser.gds?userID="&OA_UserID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=4&SMT=2"
|
|
args1="{"
|
args1=args1&"""user"": ["""&OA_weixinUserID&"""]"
|
args1=args1&"}"
|
'Response.Write args1&"<br>"
|
HTMLCODE= PostBody(appUrl,args1)
|
'Response.Write HTMLCODE
|
'Response.end
|
If Mid(HTMLCODE,12,1)="0" Then
|
If OA_UserID<>"" then
|
Response.Redirect "/AdminUser.gds?userID="&OA_UserID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=3"
|
Else
|
Response.Redirect "/AdminUser_List.gds?departmentID="&DepartmentID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=4"
|
End if
|
Else
|
errcode=Mid(left(HTMLCODE,Instr(HTMLCODE,",")-1),12)
|
If errcode="60118" Then
|
Response.Redirect "/AdminUser.gds?userID="&OA_UserID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=1&SMT=6"
|
ElseIf errcode="45025" Then
|
Response.Redirect "/AdminUser.gds?userID="&OA_UserID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=1&SMT=8"
|
Else
|
Response.Redirect "/AdminUser.gds?userID="&OA_UserID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=2&SMT=4"
|
End if
|
'
|
End if
|
%>
|
