<%@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/department/update?access_token="&access_token
|
|
method="department_update"
|
|
Origin="access_token="&access_token
|
|
ID = trim(Request("ID"))
|
If ID="" Then Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=1&SMT=1"
|
|
ID_SP = SPLIT(ID,", ")
|
for i=0 to ubound(ID_SP)
|
id = ID_SP(i)
|
departmentID = trim(Request("departmentID_"&ID))
|
departmentName = trim(Request("departmentName_"&ID))
|
departmentOrder = trim(Request("departmentOrder_"&ID))
|
If departmentID="" Or departmentName="" Or departmentOrder="" Then Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
|
args1="{"
|
args1=args1&"""id"": "&departmentID&","
|
args1=args1&"""name"": """&departmentName&""","
|
args1=args1&"""order"": """&departmentOrder&""","
|
args1=args1&"}"
|
|
HTMLCODE= PostBody(appUrl,args1)
|
If Mid(HTMLCODE,12,1)="0" Then
|
sql="select vtext from dictionary where vtitle='OA_Department' and id="&ID
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
vtext=rs("vtext")
|
sql="update dictionary set vtext='"&departmentName&"',vOrder="&departmentOrder&" where id="&ID
|
objConn.Execute sql
|
sql="update OA_User set OA_User='"&departmentName&"_部门',OA_Name='"&departmentName&"_部门' where OA_execLevel=3 and OA_User='"&vtext&"_部门'"
|
objConn.Execute sql
|
End If
|
rs.close()
|
Else
|
Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=2"
|
End if
|
Next
|
|
Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=3&SMT=2"
|
%>
|
