<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost_user.gds"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
'删除部门 Https请求方式: GET
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/department/delete"
|
|
ID = trim(Request("ID"))
|
If ID="" Then Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=1&SMT=2"
|
ID_SP = SPLIT(ID,", ")
|
If ubound(ID_SP)>0 Then Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=1&SMT=3"
|
|
DepartmentID=trim(Request("departmentID_"&ID))
|
Origin="access_token="&access_token&"&id="&DepartmentID
|
|
HTMLCODE= GetBody(appUrl,Origin)
|
|
JsonID=""
|
If Mid(HTMLCODE,12,1)<>"0" Then
|
Response.Write HTMLCODE
|
Else
|
'结果写入数据库
|
sql="select id,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="delete from dictionary where id="&ID
|
objConn.Execute sql
|
sql="delete from OA_User where OA_execLevel=3 and OA_User='"&vtext&"_部门'"
|
objConn.Execute sql
|
end If
|
rs.close()
|
Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=3&SMT=4"
|
End If
|
%>
|
