【调度系统】广东民航医疗快线调度系统源代码
wanglizhong
2025-05-05 14553e97825d8c112ce2c40275e0c71b79fe3121
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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
'Response.Cookies("OA")("adminID")=""
'Response.end
searchTXT=Request("searchTXT")
GasList=request("GasList")
state=request("state")
If state<>"" Then
    stateSP=split(state,"|")
    for i = 0 to UBOUND(stateSP)
        If InStr(stateSP(i),"searchTXT=")=1 Then
            searchTXT=Replace(stateSP(i),"searchTXT=","")
        ElseIf InStr(stateSP(i),"GasList=")=1 Then
            GasList=Replace(stateSP(i),"GasList=","")
        End If
    Next
End If
state=OrdState
If GasList="2" Then
    WebTitle="个人加油记录"
Else
    GasList=1
    WebTitle="加油记录"
End If
 
acc1=clng(request("page"))
if acc1=empty then acc1=clng(1)
QuantityInt = 20
acc2=0
acc3=0
%>
<!--#include virtual="/weixin/OAuth2.gds"-->
<!--#include virtual="/inc/function.gds"-->
<!--#include virtual="/weixin/sha1.gds"-->
<%If acc1=1 Then%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
 
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  <meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">  
  <meta name="keywords" content="">
  <meta name="description" content="">
  <meta name="author" content="">
  <link rel="icon" href="assets/images/favicon.png" type="image/png">
  <title><%=WebTitle%></title>
    <link href="assets/css/icons.css" rel="stylesheet">
    <link href="assets/css/bootstrap.min.css" rel="stylesheet">
    <link href="assets/css/style.css" rel="stylesheet">
    <link href="assets/css/responsive.css" rel="stylesheet">
    
    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
    <!-- WARNING: Respond.js doesn't work if you view the page via file:// -->
    <!--[if lt IE 9]>
          <script src="js/html5shiv.min.js"></script>
          <script src="js/respond.min.js"></script>
    <![endif]-->
 
</head>
 
<body class="sticky-header">
 
 
    <!--Start left side Menu-->
    <div class="left-side sticky-left-side">
 
        <!--logo-->
        <div class="logo">
            <a href="index.html"><img src="assets/images/logo.png" alt=""></a>
        </div>
 
        <div class="logo-icon text-center">
            <a href="index.html"><img src="assets/images/logo-icon.png" alt=""></a>
        </div>
        <!--logo-->
 
        <div class="left-side-inner">
            <!--Sidebar nav-->
            <!--#include virtual="/menu_left_new.gds"-->
            <!--End sidebar nav-->
 
        </div>
    </div>
    <!--End left side menu-->
<%End If%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
 
page_URL="&searchTXT="&searchTXT
 
 
 
If searchTXT<>"" Then
    searchSql=" and (GasStation like '%"&searchTXT&"%' or GasStation like '%"&CarLicense&"%')"
ElseIf GasList="2" Then
    searchSql=" and OAID="&session("adminID")&" "
End If
 
'显示列表
sql="select * from CarGas,CarData where CarID=GasCarID and GasState>=0"&searchSql&" order by id desc"
'Response.Write sql
rs.open sql,objConn,1,1
if not rs.eof then
rs.pagesize=QuantityInt
rs.absolutepage=acc1
acc2=rs.pagecount
acc3=rs.recordcount
end if
%>
<%If acc1=1 Then%>
    <!-- main content start-->
    <div class="main-content" >
 
        <!-- header section start-->
        <div class="header-section">
 
            <a class="toggle-btn"><i class="fa fa-bars"></i></a>
 
            <form class="searchform">
                <input type="text" class="form-control" name="keyword" placeholder="Search here..." />
            </form>
 
            <!--notification menu start -->
            <div class="menu-right">
                <ul class="notification-menu">
                   
                    <li class="btn-default dropdown-toggle">
                            <%=WebTitle%>
                    </li>
 
                </ul>
            </div>
            <!--notification menu end -->
 
        </div>
        <!-- header section end-->
 
 
 
        <!--body wrapper start-->
        <div class="wrapper">
              
              <!--Start Page Title-->
               
                  <!--End Page Title-->          
           
                 <!--Start row-->
                 <div class="row">
                     <div class="col-md-12">
                        <!-- Start cover-->
                         <div class="profile-cover">
                             <div class="overlay-profile"></div>
                              <div class="profile-inner">
                                   <!--/.profile-info-->
                                  <div class="profile-stats">
                                      <ul>
                                         <li>
                                            <a href="CarGas_new.gds?GasList=<%=GasList%>" style="color: #FFF;"><h4><%=OrdInt3%></h4><p>记油耗</p></a>
                                         </li>
                                      </ul>
                                  </div>
                              </div>
                         </div>    
                         <!-- End cover-->
                     </div>
                 </div>
                 <!--End row-->
           
 
              <!--Start row-->
              <div class="row">
 
                  <div class="col-md-12" id="Task_List">
                     <!--/.hite-box-->
<%End If%>                                  
                      <%i=1
                      do while not rs.Eof and i<=QuantityInt
                          CarGasID            = rs("id")
                          CarID                = rs("CarID")
                          CarLicense        = rs("CarLicense")    '车牌号码
                          GasDate            = rs("GasDate")        '加油日期
                          GasVolume            = rs("GasVolume")    '加油量
                          GasPrice            = rs("GasPrice")    '单价
                          GasMacSumPrice    = rs("GasMacSumPrice")    '机显总额
                          GasSumPrice        = rs("GasSumPrice")    '实付总额
                          GasType            = rs("GasType")        '加油类型
                          OAID                = rs("OAID")
                          OATime            = rs("OATime")
                      %>
                      <a href="CarGas_new.gds?CarGasID=<%=CarGasID%>&GasList=<%=GasList%>" class="detailed">
                      <div class="white-box">
                          <div class="post-header">
                          <div>
                            <h4><%=CarLicense%></h4>
                            <p><%=GasDate%></p>
                          </div>
                          </div> <!-- /.post-header-->
                          <div class="post-desc">
                            <p><%=GasVolume%>升 X <%=GasPrice%>元/升 = <%=GasMacSumPrice%>元<%If GasMacSumPrice<>GasMacSumPrice Then%> (实付金额:<%=GasSumPrice%>元)<%End If%></p>
                          </div>
                          <div class="comment-info">
                              <ul>
                                <li><i class="mdi mdi-barrel"></i> <%=GasType%></li>
                                <li><i class="mdi mdi-account"></i> <%=OAUser(OAID,"UserName")%></li>
                              </ul>
                          </div>
                      </div><!-- /.white-box-->
                      </a>
                      <% i=i+1
                      rs.movenext
                      Loop
                      rs.close()%>
<%If acc1=1 Then%>
                  </div>
              </div>
              <%If acc1<acc2 Then%>
              <div class="col-md-12" id="loadDiv"><a onclick="loadData()" class="btn btn-primary btn-sm btn-block m-t-10">点击加载更多...</a></div>
              <input id="acc1" type="hidden" value="<%=acc1%>">
              <input id="acc2" type="hidden" value="<%=acc2%>">
              <%End If%>
              <div class="col-md-12" style="border-bottom: initial; position: fixed; width: 92%; bottom: 0px; background-color: white; padding: 0px 20px 10px;"><a href="CarGas_new.gds?GasList=<%=GasList%>" class="btn btn-primary btn-sm btn-block m-t-10">登记油耗</a></div>
                
              <!--End row-->
           
           
           
                </div>
        <!-- End Wrapper-->
 
 
 
       </div>
      <!--End main content -->
    
 
 
    <!--Begin core plugin -->
    
    <script src="assets/js/jquery.min.js"></script>
    <script src="assets/js/bootstrap.min.js"></script>
    <script src="assets/plugins/moment/moment.js"></script>
    <script src="assets/js/jquery.slimscroll.js "></script>
    <script src="assets/js/jquery.nicescroll.js"></script>
    <script src="assets/js/functions.js"></script>
 
    <script src="assets/plugins/jquery-validation/jquery.validate.min.js"></script>
    <script src="assets/plugins/sweetalert/sweet-alert.js"></script>
    <!-- End core plugin -->
 
    <!-- BEGIN PAGE LEVEL SCRIPTS -->
 
    <script>
 
    //--按钮操作--BEGIN
      var loadData = function(){
            var acc1=parseInt($('#acc1').val())+1
            var acc2=parseInt($('#acc2').val())
            $.ajax({  
                type: "GET",  
                url: "CarGasList_new.gds",//需要跳转到的界面 the page you want to post data  
                data: {  
                    //要传给后台的数据 the data you should send to background  
                    GasList:'<%=GasList%>',
                    page:acc1
                },
                dataType:'html', 
                success: function(data) {
                    //console.log(data);
                    $("#Task_List").show();  
                    $(data).appendTo($("#Task_List"));
                    $('#acc1').val(acc1);
                    if (acc1==acc2){document.getElementById('loadDiv').style.display='none';}
                }
            })
        };
    //--按钮操作--End
    </script>
    <script language="javascript">
                document.getElementById("buttonDiv").style.cssText="border-bottom: initial;position: fixed;width:92%;bottom: 0px;background-color:white;padding: 0 20px 10px 20px;"
                </script>
 
</body>
 
</html>
<%End If%>