【调度系统】广东民航医疗快线调度系统源代码
wzp
2024-12-05 8a09f655eace34e9c90bbfc711eedb7a69e4e068
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include virtual="/inc/chkadmin.gds"-->
<!--#include virtual="/inc/function.gds"-->
<%
userID=trim(Request("userID"))
departmentName=trim(Request("departmentName"))
if userID="" And departmentName="" Then
  userID=session("adminID")
  is_User="1"
End if
if userID="" And departmentName="" then response.redirect "/"
 
'各种返回信息
SystemMessageType=trim(Request("SystemMessageType"))
SMT=trim(Request("SMT"))
if SystemMessageType<>"" then
  if SMT="1" then
    SystemMessageTXT="账号资料修改完成"
  elseif SMT="2" then
    SystemMessageTXT="微信OA账号为空,请联系IT部!!"
  elseif SMT="3" then
    SystemMessageTXT="关注邀请发出发送成功,请在用户关注后点击[<a href=""/weixin/user_get.gds?OA_UserID="&userID&""">刷新数据</a>]"
  elseif SMT="4" then
    SystemMessageTXT="邀请失败,用户已经关注微信OA,请点击[<a href=""/weixin/user_get.gds?OA_UserID="&userID&""">刷新数据</a>]"
  elseif SMT="5" then
    SystemMessageTXT="用户数据刷新完成"
  elseif SMT="6" then
    SystemMessageTXT="邀请失败,用户微信号,手机,邮箱都没法匹配或空,请重新填写后再发送邀请"
  elseif SMT="7" then
    SystemMessageTXT="微信OA同步失败,请联系IT部!!"
  elseif SMT="8" then
    SystemMessageTXT="邀请失败,同一用户每周只可以邀请一次!!"
  elseif SMT="9" then
    SystemMessageTXT="只能删除未正式使用的账号,正式账号请选择停用!!"
  end if
end if
 
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select count(id) from dictionary where vType in (1,2) and vtitle='OrderClass'"
rs.open sql,objConn,1,1
SumOrderClass=rs(0)
rs.close()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
        <title><%=LindemanAdmin%></title>
        <!--#include virtual="/inc/ccs.gds"-->
    </head>
    <body onkeydown="xKeyEvent(event)">
        <!--#INCLUDE FILE="menu_header.gds" -->
        <!-- content -->
        <div id="content">
            <%If is_User="1" then%>
            <!--#INCLUDE FILE="User_menu_left.gds" -->
            <%else%>
            <!--#INCLUDE FILE="AdminUser_menu_left.gds" -->
            <%End if%>
            <!-- content / right -->
            <div id="right">
                <!-- messages -->
                <%
                If departmentName<>"" Then
                    sql="select * from OA_User where OA_gender=0 and OA_User='"&departmentName&"_部门'"
                Else
                    sql="select * from OA_User where OA_User_ID="&userID
                End If
                rs.open sql,objConn,1,1
                if not rs.eof then
                  If departmentName<>"" Then userID    = rs("OA_User_ID")
                  OA_UserID    = rs("OA_User_ID")
                  OA_User    = rs("OA_User")
                  OA_weixinUserID    = rs("OA_weixinUserID")
                  OA_Name    = rs("OA_Name")
                  OA_DepartmentID    = rs("OA_DepartmentID")
                  OA_DepartmentIDs    = rs("OA_DepartmentIDs")
                  
                  OA_Position    = rs("OA_Position")
                  OA_mobile    = rs("OA_mobile")
                  OA_gender    = rs("OA_gender")
                  OA_email    = rs("OA_email")
                  OA_weixinID    = rs("OA_weixinID")
                  OA_weixinAvatar    = rs("OA_weixinAvatar")
                  OA_weixinStatus    = rs("OA_weixinStatus")
                  OA_Power    = rs("OA_Power")
                  Endtime    = rs("Endtime")
                  OA_execLevel    = rs("OA_execLevel")
                  OA_Province    = rs("OA_Province")
                  OA_City    = rs("OA_City")
                  OA_OrderClass    = rs("OA_OrderClass")
                  OA_Img_64        = rs("OA_Img_64")
                  OA_Img        = rs("OA_Img")
                  Post_Name        = rs("Post_Name")
                  Post_MoneyP    = rs("Post_MoneyP")
                  Post_MoneyP1    = rs("Post_MoneyP1")
                  OA_UserRemark    = rs("OA_UserRemark")
                  OA_IdentityCard=rs("OA_IdentityCard")
                  OA_EmployeeGroup=rs("OA_EmployeeGroup")
                end if
                rs.close()
                %>
                <!-- forms -->
                <div class="box">
                    <!-- box / title -->
                    <div class="title">
                        <h5>账号资料</h5>
                        <ul class="links">
                            <%if (OA_UserID=session("adminID") Or isDepartment("060201")=1) And (isDepartment("060203")=1 Or OA_DepartmentID=session("adminDepartmentID")) then%><li><a href="AdminUser_Edit.gds?h_menu1_1=<%=trim(Request("h_menu1_1"))%><%if session("adminID")<>OA_UserID then Response.Write "&userID="&OA_UserID%>">修改</a></li><%end if%>
                            <%if isDepartment("060204")=1 And (isDepartment("060203")=1 Or OA_DepartmentID=session("adminDepartmentID")) then%><li><a href="AdminUser_Legal.gds?userID=<%=userID%>&h_menu1_1=<%=trim(Request("h_menu1_1"))%>">权限</a></li><%end if%>
                            <%if session("admin_execLevel")="2" then%><li><a onclick="javascript:if(confirm('本操作会完全删除账号数据,请只在新建账号出现错误时使用,员工离职等一般情况请用账号停用功能!!\n      确定删除?')){window.location.href='/weixin/user_delete.gds?OA_weixinUserID=<%=OA_weixinUserID%>&OA_DepartmentID=<%=OA_DepartmentID%>'};">删除</a></li><%end if%>
                            <%if isDepartment("060205")=1 then%><li><a href="/admin_save.gds?OA_UserID=<%=OA_UserID%>&admin_save=39">模拟登陆</a></li><%end if%>
                            <%if isDepartment("060205")=1 then%><li><a href="/admin_save.gds?OA_UserID=<%=OA_UserID%>&admin_save=39&OA_URL=/m_appsMenu1.gds">模拟手机登陆</a></li><%end if%>
                            <%if isDepartment("060201")=1 then%><li><a href="/weixin/user_get.gds?OA_UserID=<%=OA_UserID%>">刷新数据</a></li><%end if%>
                            <%If isDepartment("060201")=1 And (isDepartment("060203")=1 Or OA_DepartmentID=session("adminDepartmentID")) then%><li><a href="AdminUser_App.gds?departmentID=<%=OA_DepartmentID%>&h_menu1_1=<%=trim(Request("h_menu1_1"))%>&Old_userID=<%=OA_UserID%>">复制</a></li><%end if%>
                            <%
                            if PositionURLID="1" then
                            ReturnURL=session("PositionURL10")
                            else
                            ReturnURL=session("PositionURL"&PositionURLID-1)
                            end if
                            if InStr(ReturnURL,"?")<1 then
                              ReturnURL=ReturnURL&"?ReturnURLID="&(PositionURLID-1)
                            else
                              ReturnURL=ReturnURL&"&ReturnURLID="&(PositionURLID-1)
                            end If
                            ReturnURL="AdminUser_List.gds?departmentID="&OA_DepartmentID&"&h_menu1_1=1"
                            %>
                            <%if Request("userID")<>"" then%><li><a href="<%=ReturnURL%>">返回</a></li><%end if%>
                        </ul>
                    </div>
                    <!-- end box / title -->
                    <!--#include virtual="/inc/SystemMessages.gds" -->
                    <form id="form" action="" method="post">
                    <div class="form">
                        <div class="fields">
                            <div class="field  field-first">
                                <div class="label1">
                                    <label for="input-small">用户登陆账号:</label>
                                </div>
                                <div class="input">
                                    <%=OA_User%>&nbsp;
                                </div>
                            </div>
 
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">微信OA账号:</label>
                                </div>
                                <div class="input">
                                    <%=OA_weixinUserID%>&nbsp;
                                </div>
                            </div>
 
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">姓名:</label>
                                </div>
                                <div class="input">
                                    <%=OA_Name%>&nbsp;<span class="mod-icon-<%If OA_gender="1" Then%>man<%ElseIf OA_gender="2" Then%>woman<%End if%>"></span>
                                </div>
                            </div>
 
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">手机:</label>
                                </div>
                                <div class="input">
                                    <%=OA_mobile%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">照片:</label>
                                </div>
                                <div class="input">
                                    <%If OA_Img_64<>"" Then%><img src="<%=OAImgURL&OA_Img_64%>" style="max-width:64px;max-height:64px;">&nbsp;<%End If%>
                                    <%If OA_Img<>"" Then%><a href="<%=OAImgURL&OA_Img%>" target="_blank"><img src="<%=OAImgURL&OA_Img%>" style="max-width:100px;max-height:100px;"></a><%End If%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">微信:</label>
                                </div>
                                <div class="input">
                                    <%=OA_weixinID%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">邮箱:</label>
                                </div>
                                <div class="input">
                                    <%=OA_email%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">身份证:</label>
                                </div>
                                <div class="input">
                                    <%=OA_IdentityCard%>&nbsp;
                                </div>
                            </div>
 
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">部门:</label>
                                </div>
                                <div class="input">
                                    <%If OA_DepartmentIDs<>"" Then OA_DepartmentID=OA_DepartmentIDs%>
                                    <%=replace(OADepartment(OA_DepartmentID,"DepartmentName"),"|"," ")%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">职位:</label>
                                </div>
                                <div class="input">
                                    <%=OA_Position%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">组别:</label>
                                </div>
                                <div class="input">
                                    <%=EmployeeGroup_A(OA_EmployeeGroup)%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">个人备注:</label>
                                </div>
                                <div class="input">
                                    <%=OA_UserRemark%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">岗位级别:</label>
                                </div>
                                <div class="input">
                                    <%=Post_Name%>&nbsp;
                                </div>
                            </div>
                            <%if isDepartment("060201")=1 And (isDepartment("060203")=1 Or OA_DepartmentID=session("adminDepartmentID")) then%>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">岗位工资:</label>
                                </div>
                                <div class="input">
                                    P:<%=Post_MoneyP%>元&nbsp;&nbsp;P1:<%=FormatNumber(Post_MoneyP1,2,-1)%>元/公里&nbsp;
                                </div>
                            </div>
                            <%End If%>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">职能:</label>
                                </div>
                                <div class="input">
                                    <%sql="select OA_CompetencyID from OA_Competency where OA_CompetencyUserID="&OA_UserID
                                    rs.open sql,objConn,1,1
                                        do while not rs.Eof
                                        OA_CompetencyID    = rs(0)
                                        Response.Write OACompetency(OA_CompetencyID,"CompetencyName")&"&nbsp;&nbsp;"
                                        rs.movenext
                                    loop
                                    rs.close()
                                    %>
                                    &nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">可查看单据类型:</label>
                                </div>
                                <div class="input">
                                    <%If isnull(OA_OrderClass) Then OA_OrderClass=""
                                        OA_OrderClassIDSP    = SPLIT(OA_OrderClass,",")
                                        If SumOrderClass<=UBOUND(OA_OrderClassIDSP)+1 Or instr(OA_Power,"020114")>=1 Then
                                                Response.Write "全部类型"
                                        Else
                                            Response.Write  Replace(OrderClassD(OA_OrderClass),",","&nbsp;&nbsp;")
                                        End If
                                    %>
                                    &nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">地区:</label>
                                </div>
                                <div class="input">
                                    <%=OA_UserName%>&nbsp;
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">账号状态:</label>
                                </div>
                                <div class="input">
                                    <div style="float: left;"><%=AdminExecLevel_B(OA_execLevel,OA_weixinStatus,1)%>&nbsp;</div>
                                    <%If OA_weixinStatus="4" then%>
                                    <div class="button highlight">
                                        <input type="button" name="button1" value="发出关注邀请"  onClick="button1_js()" style="margin-top: -9px;margin-bottom: -9px;"/>
                                    </div>
                                    <script LANGUAGE="javascript">
                                    function button1_js(){
                                    window.location.href='/weixin/user_inviteSend.gds?OA_UserID=<%=OA_UserID%>&OA_weixinUserID=<%=OA_weixinUserID%>';
                                    }
                                    </script>
                                    <%End if%>
                                    <%If OA_execLevel=-1 Then Response.Write(" (如重新入职,请修改账号状态为""正常""即可)")%>
                                </div>
                            </div>
                            <div class="field">
                                <div class="label1">
                                    <label for="input-medium">最后登陆时间:</label>
                                </div>
                                <div class="input">
                                    <%=Endtime%>&nbsp;
                                </div>
                            </div>
                        </div>
                    </div>
                    </form>
                </div>
                <!-- end forms -->    
            </div>
            <!-- end content / right -->
        </div>
        <!-- end content -->
        <!--#include FILE="vicgame.asp"-->
    </body>
</html>