【调度系统】广东民航医疗快线调度系统源代码
wanglizhong
2025-05-05 8a7dab004bc3eca7808d0cc196a329464402bbc9
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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include virtual="/inc/chkadmin.gds"-->
<!--#include virtual="/inc/function.gds"-->
<%
'各种返回信息
SystemMessageType=trim(Request("SystemMessageType"))
SMT=trim(Request("SMT"))
if SystemMessageType="3" then
  if SMT="1" then
    SystemMessageTXT="微信调度已发送成功"
  elseif SMT="2" then
    SystemMessageTXT="部门修改完成"
  end if
elseif SystemMessageType="1" then
  if SMT="1" then
    SystemMessageTXT="请输入调度名称"
  elseif SMT="1" then
    SystemMessageTXT="至少输入一个用户"
  end if
elseif SystemMessageType="4" then
  if SMT="1" then
    SystemMessageTXT="数据不足!!"
  elseif SMT="2" then
    SystemMessageTXT="修改失败!!"
  elseif SMT="3" then
    SystemMessageTXT="用户输入错误!!"
  end if
end if
 
searchTXT=trim(Request("searchTXT"))
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<!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>
        <!--#INCLUDE FILE="menu_header.gds" -->
        <!-- content -->
        <div id="content">
            <!--#INCLUDE FILE="Message_menu_left.gds" -->
            <!-- content / right -->
            <div id="right">
                <!-- table -->
                <div class="box">
                    <!-- box / title -->
                    <div class="title">
                        <h5>微信调度演示</h5>
                        <ul class="links">
                            <li><a href="test_PC.gds">刷新</a></li>
                        </ul>
                    </div>
                    <!-- end box / title -->
            <%
            sql="select * from test_Ord where test_is>=0 order by testDate desc"
            rs.open sql,objConn,1,1
            Set rsDt = Server.CreateObject("ADODB.Recordset")
            %>
                    <!--#include virtual="/inc/SystemMessages.gds" -->
                    <div class="table">
                        <table>
                            <thead>
                                <tr>
                                    <th class="selected"></th>
                                    <th class="selected">ID</th>
                                    <th>调度名称</th>
                                    <th>调度内容</th>
                                    <th class="last">操作</th>
                                </tr>
                            </thead>
                            <tbody>
            
            <tr>
                <form name="form" method="post" action="/weixin/test.gds">
                <td class="selected"></td>
                <td class="selected"></td>
                <td class="category"><input name="testName" class="small" style="width:200px;" value="" type="text"></td>
                <td class="title" id="Show_test_OrdDt_<%=id%>">
                司机:<input id="testUserID1" name="testUserID1" class="small" style="width:120px;" value="" type="text">&nbsp;
                医生:<input id="testUserID2" name="testUserID2" class="small" style="width:120px;" value="" type="text">&nbsp;
                护士:<input id="testUserID3" name="testUserID3" class="small" style="width:120px;" value="" type="text">&nbsp;
                随行人员:<input id="testUserID4" name="testUserID4" class="small" style="width:120px;" value="" type="text">&nbsp;
                </td>
                <td class="selected last" id="Edit_testEdit_<%=id%>"><input type="submit" name="submit" value="提交" /></td>
                </form>
              </tr>
            <%i=1
            do while not rs.Eof
              testID    = rs("testID")
              testName    = rs("testName")
              test_is    = rs("test_is")
              sql="select * from test_OrdDt where testIDDt="&testID&" order by id"
              rsDt.open sql,objConn,1,1
              
              testUserID1=""
              testUserID2=""
              testUserID3=""
              testUserID4=""
              testWeixinState1=""
              testWeixinState2=""
              testWeixinState3=""
              testWeixinState4=""
              i=i+1
              %>
              
              <tr>
                <form name="form" method="post" action="/weixin/test.gds">
                <input name="testID" type="hidden" value="<%=testID%>">
                <td class="selected"><input type="checkbox" id="ID_<%=testID%>" name="ID" value="<%=testID%>" onclick="javascript:form1_test_Edit('<%=testID%>')"/></td>
                <td class="selected"><%=testID%></td>
                <td class="category"><%=testName%></td>
                <td class="date" id="Show_test_OrdDt_<%=testID%>" style="text-align: left;">
                <%
                do while not rsDt.Eof
                    id                = rsDt("id")
                    testOA_UserID    = rsDt("testOA_UserID")
                    test_UserType    = rsDt("test_UserType")
                    testWeixinState    = rsDt("testWeixinState")
                    testWeixinDate    = rsDt("testWeixinDate")
                    OA_Name    = OAUser(testOA_UserID,"UserName")
                    If test_UserType="司机" Then
                      testWeixinState1=testWeixinState
                      testUserID1=OA_Name
                    ElseIf test_UserType="医生" Then
                      testWeixinState2=testWeixinState
                      testUserID2=OA_Name
                    ElseIf test_UserType="护士" Then
                      testWeixinState3=testWeixinState
                      testUserID3=OA_Name
                    ElseIf test_UserType="随行人员" Then
                      testWeixinState4=testWeixinState
                      testUserID4=OA_Name
                    End if
                    If testWeixinState="" Or isnull(testWeixinState) Then testWeixinState="已发出"
                    Response.Write test_UserType&":"&OA_Name&"("&testWeixinState&")"&"&nbsp;&nbsp;"
                    
                    
                rsDt.movenext
                Loop
                rsDt.close()
                %>
                </td>
                <td class="date" id="Edit_test_OrdDt_<%=testID%>" style="display:none;text-align: left;">
                司机:<%If testWeixinState1<>"已取消" and testUserID1<>"" Then%><%=testUserID1%>&nbsp;<%else%><input name="testUserID1" class="small" style="width:120px;" value="<%=testUserID1%>" type="text"><%End if%>&nbsp;
                医生:<%If testWeixinState2<>"已取消" and testUserID2<>"" Then%><%=testUserID2%>&nbsp;<%else%><input name="testUserID2" class="small" style="width:120px;" value="<%=testUserID2%>" type="text"><%End if%>&nbsp;
                护士:<%If testWeixinState3<>"已取消" and testUserID3<>"" Then%><%=testUserID3%>&nbsp;<%else%><input name="testUserID3" class="small" style="width:120px;" value="<%=testUserID3%>" type="text"><%End if%>&nbsp;
                随行人员:<%If testWeixinState4<>"已取消" and testUserID4<>"" Then%><%=testUserID4%>&nbsp;<%else%><input name="testUserID4" class="small" style="width:120px;" value="<%=testUserID4%>" type="text"><%End if%>&nbsp;
                
                </td>
                <td class="category last" id="Show_testEdit_<%=testID%>">&nbsp;</td>
                <td class="category last" id="Edit_testEdit_<%=testID%>" style="display:none;"><input type="submit" name="submit" value="修改" /></td>
                </form>
              </tr>
            <%rs.movenext
            loop
            rs.close()
            %>
<script LANGUAGE="javascript">
//修改
function form1_department_update(){
document.form1.action = "/weixin/department_update.gds";  
form1.submit();
}
//选择修改
function form1_test_Edit(id){
    if (document.getElementById('Show_test_OrdDt_'+id).style.display=="none")
    {
        document.getElementById('Show_test_OrdDt_'+id).style.display='';
        document.getElementById('Edit_test_OrdDt_'+id).style.display='none';
        document.getElementById('Show_testEdit_'+id).style.display='';
        document.getElementById('Edit_testEdit_'+id).style.display='none';
    }
    else
    {
        document.getElementById('Show_test_OrdDt_'+id).style.display='none';
        document.getElementById('Edit_test_OrdDt_'+id).style.display='';
        document.getElementById('Show_testEdit_'+id).style.display='none';
        document.getElementById('Edit_testEdit_'+id).style.display='';
 
    }
 
    
}
</script>
            <%for j=i to 24%>
            <tr>
                <td class="selected">&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td class="last">&nbsp;</td>
                
            </tr>
            <%next%>
                            </tbody>
                        </table>
                    </div>
                </div>
                <!-- end table -->
 
                
            </div>
            <!-- end content / right -->
        </div>
        <!-- end content -->
        <!--#include FILE="vicgame.asp"-->
    </body>
</html>