【调度系统】广东民航医疗快线调度系统源代码
wanglizhong
2025-06-24 a51d070d364b0da8e5f8ea9203a6e50c8b4c0af3
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>  
<!--#include file="JsonPost_1000006.gds"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set rsDt = Server.CreateObject("ADODB.Recordset")
 
appUrl="https://qyapi.weixin.qq.com/cgi-bin/department/list"
 
method="department_list"
Origin="access_token="&access_token
 
HTMLCODE= GetBody(appUrl,Origin)
 
'Response.Write HTMLCODE
'Response.end
 
JsonID=""
If Mid(HTMLCODE,12,1)<>"0" Then
    Response.Write HTMLCODE
Else
    '结果写入数据库
    reserve=""
    JsonID = API_JsonSql(method,HTMLCODE,reserve)
End If
 
If JsonID<>"" Then
    json    = HTMLCODE
    Sum_I    = 0
    %>
    <script language="JScript" runat="Server"> 
    function toObject(json) { 
        eval("var o=" + json); 
        return o; 
    } 
    function toArray(s){
        var dic = Server.CreateObject("Scripting.Dictionary")
        eval("var a=" + json);
        for(var i=0;i<a.length;i++){
            var obj = Server.CreateObject("Scripting.Dictionary")
            for(x in a[i]) obj.Add(x,a[i][x])
            dic.Add(i, obj);
        }
        return dic
    }
    </script> 
    
    <script language="jscript" runat="server">
    Array.prototype.get = function(i)
    {
     return this[i]; 
    };
    function getjson(str){
     try{
      eval("var jsonStr = (" + str + ")");
     }catch(ex){
      var jsonStr = null;
     }
     return jsonStr;
    }
    </script>
    <%
    str=json
    str=right(str,len(str)-instr(str,"[")+1)
    str=left(str,InstrRev(str,"]"))
    dim obj
    set obj = getjson(str)
    str0=""
    for i=0 to obj.length-1
        department_id        = obj.get(i).id            '部门id
        department_name    = obj.get(i).name        '部门名称
        department_parentid= obj.get(i).parentid    '父亲部门id。根部门为1
        department_order    = obj.get(i).order        '在父部门中的次序值。order值小的排序靠前。
        'Response.Write name &"<BR>"
        '更新库存数据
        If department_id<>"" And department_name<>"" Then 
            sql="select id,vtext from dictionary where vtitle='OA_Department' and vID="&department_id
            rs.open sql,objConn,1,1
            if not rs.Eof then
                ID    = rs("id")
                vtext=rs("vtext")
                sql="update dictionary set vID="&department_id&",vtext='"&department_name&"',vType="&department_parentid&",vOrder="&department_order&" where id="&ID
                objConn.Execute sql
                sql="update OA_User set OA_User='"&department_name&"_部门',OA_Name='"&department_name&"_部门' where OA_execLevel=3 and OA_User='"&vtext&"_部门'"
                objConn.Execute sql
            Else
                OrderClass="BF,AB,SA"
                OrderClassNamePS=SPLIT(department_name,"-")
                If UBOUND(OrderClassNamePS)>=1 Then
                    OrderClassName=(OrderClassNamePS(0))
                    
                    sql="select STUFF((SELECT ','+vOrder2 from dictionary where vtext like '"&OrderClassName&"%' and vtitle='OrderClass' FOR XML PATH('')), 1, 1, '') AS OrderClass"
                    rsDt.open sql,objConn,1,1
                    if not rsDt.Eof Then
                        OrderClass=rsDt("OrderClass")
                        If OrderClass="" Or Isnull(OrderClass) Then OrderClass="BF,AB,SA"
                    Else
                        OrderClass="BF,AB,SA"
                    End If
                    rsDt.close()
                End If
                sql="Insert into dictionary (vID,vtext,vType,vOrder,vtitle) values ("&department_id&",'"&department_name&"',"&department_parentid&","&department_order&",'OA_Department')"
                objConn.Execute sql
                sql="Insert into OA_User (OA_User,OA_Pass,OA_Name,OA_execLevel,OA_Power,OA_OrderClass) values ('"&department_name&"_部门',pwdencrypt('000000'),'"&department_name&"_部门',3,'"&OA_Power&"','"&OrderClass&"')"
                objConn.Execute sql
            end If
            rs.close()
            Sum_I=Sum_I+1
        End if
    Next
 
      sql="update API_Json set is_Json=is_Json+1,is_Json_time=getdate() where id="&JsonID
      objConn.Execute sql
 
    Response.Redirect "/AdminUser_Department.gds?h_menu1="&session("h_menu1")&"&SystemMessageType=3&SMT=1"
End if
%>