【调度系统】广东民航医疗快线调度系统源代码
克樊道人
2024-12-02 61ce8cc6883e5f94e6470141df3484167caf31ed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
<%@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
%>