<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost_user.gds"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
'创建成员 Https请求方式: POST
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/user/create?access_token="&access_token
|
|
OA_UserID = trim(Request("OA_UserID"))
|
|
If OA_UserID="" Then Response.Redirect "/"
|
sql="select * from OA_User where OA_User_ID="&OA_UserID
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
OA_weixinUserID = rs("OA_weixinUserID")
|
OA_Name = rs("OA_Name")
|
OA_DepartmentID = rs("OA_DepartmentID")
|
OA_Position = rs("OA_Position")
|
OA_mobile = rs("OA_mobile")
|
OA_gender = rs("OA_gender")
|
OA_email = rs("OA_email")
|
OA_weixinID = rs("OA_weixinID")
|
OA_IdentityCard = rs("OA_IdentityCard")
|
OA_execLevel = rs("OA_execLevel")
|
end if
|
rs.close()
|
|
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&"""userid"": """&OA_weixinUserID&""""
|
If OA_Name<>"" Then args1=args1&",""name"": """&OA_Name&""""
|
If OA_DepartmentID<>"" Then args1=args1&",""department"": ["&OA_DepartmentID&"]"
|
If OA_Position<>"" Then args1=args1&",""position"": """&OA_Position&""""
|
If OA_mobile<>"" Then args1=args1&",""mobile"": """&OA_mobile&""""
|
If OA_gender<>"" Then args1=args1&",""gender"": """&OA_gender&""""
|
If OA_email<>"" Then args1=args1&",""email"": """&OA_email&""""
|
If OA_IdentityCard<>"" Then args1=args1&",""extattr"":{""attrs"":[{""type"":0,""name"":""身份证"",""text"": {""value"": """&OA_IdentityCard&"""}}]}"
|
If OA_weixinID<>"" Then args1=args1&",""weixinid"": """&OA_weixinID&""""
|
args1=args1&"}"
|
'Response.Write args1&"<br>"
|
|
HTMLCODE= PostBody(appUrl,args1)
|
|
'Response.Write HTMLCODE&"<br><br>"
|
'Response.End
|
|
ReturnURL="/AdminUser_List.gds?departmentID="&OA_DepartmentID&"&h_menu1_1="&session("h_menu1_1")
|
|
If Mid(HTMLCODE,12,1)="0" Then
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2&NEW_weixinUserID="&OA_weixinUserID
|
Else
|
Response.Redirect ReturnURL&"&SystemMessageType=4&SMT=3"
|
End If
|
%>
|
