<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost_user.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
'新建分公司部门
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
access_token=GetAccess_token_contactsApi()
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/user/update?access_token="&access_token
|
|
UnitID = trim(Request("UnitID"))
|
ReturnURL = trim(Request("ReturnURL"))
|
|
If UnitID="" Then Response.Redirect "/"
|
sql="select UnitShort from IntroducerUnitData where UnitID="&UnitID
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
UnitShort = rs("UnitShort")
|
end if
|
rs.close()
|
|
If UnitShort="" Then Response.End()
|
DepartmentNames = "办公室,车队,医生,护士"
|
DepartmentNamePS = SPLIT(DepartmentNames,",")
|
for i = 0 to UBOUND(DepartmentNamePS)
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/department/create?access_token="&access_token
|
args1="{"
|
args1=args1&"""name"": """&UnitShort&"--"&DepartmentNamePS(i)&""""
|
args1=args1&",""parentid"": 14"
|
args1=args1&"}"
|
HTMLCODE= PostBody(appUrl,args1)
|
If Mid(HTMLCODE,12,1)<>"0" Then
|
Response.End()
|
End If
|
Next
|
|
Response.Redirect ReturnURL&"?SMT=3&&SystemMessageType=3"
|
%>
|
