wanglizhong
2025-05-05 2876dd05c0528ec665791a0844f643f566f7c31b
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
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include virtual="/inc/odbc.asp"-->
<!--#include virtual="/inc/function.asp"-->
<!--#include virtual="/inc/core.asp"-->
<%
 
'合法性验证
PositionURL=Request.ServerVariables("URL")
if Request.ServerVariables("QUERY_STRING")<>"" then PositionURL=PositionURL&"?"&Request.ServerVariables("QUERY_STRING")
If InStr(PositionURL,"&sign")>=1 Then PositionURL=Mid(PositionURL,1,InStr(PositionURL,"&sign")-1)
URLSign=SignArgs(PositionURL)
Sign1=request("sign")
If URLSign<>Sign1 Then
    'Response.Redirect "/OrdEvaluateError.asp"
End If
'-------------
 
ServiceOrdID=request("ServiceOrdID")
isPrePayment=request("isPrePayment")
openid=request("openid")
if ServiceOrdID="" then Response.Redirect "/OrdEvaluateError.asp"
If isPrePayment="" Then isPrePayment=0
Total_fee=0
StretcherMoney=0
%>
<html>
<head>
    <meta charset="utf-8">
    <meta name="viewport" content="width=device-width, initial-scale=1,maximum-scale=1,user-scalable=no">
    <meta name="apple-mobile-web-app-capable" content="yes">
    <meta name="apple-mobile-web-app-status-bar-style" content="black">
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>快线福祉车</title>
<link rel="stylesheet" href="/css/bootstrap.min.css">
<link rel="stylesheet" href="/css/bootstrap-theme.min.css">
<script src="/js/jquery-1.10.2.min.js"></script>
<script src="/js/bootstrap.min.js"></script>
<script src="/js/app.js?v=1.8"></script>
<script>
$(function(){
 
function is_weixn(){  
    var ua = navigator.userAgent.toLowerCase();  
    if(ua.match(/MicroMessenger/i)=="micromessenger") {  
        //alert("weixin微信浏览器");
        $("#order_pay_weixin")[0].value = "1";
        $("#AlipayPay").hide();
    } else {  
        //alert("非微信浏览器");
        //$("#zaix4").hide();
        //$("#zaix5").show();
        $("#order_pay_weixin")[0].value = "0";
        return false;  
    }  
is_weixn()
 
})
</script>
</head>
<body style="">
<style>
</style>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
'相关受理单
If ServiceOrdID="" Then
    Response.Redirect "/OrdEvaluateError.asp"
End If
sql="select * from Welcab.dbo.ServiceOrder where ServiceOrdID="&ServiceOrdID
rs.open sql,objConn,1,1
If not rs.Eof then
      ServiceOrdID            = rs("ServiceOrdID")            '服务单号
      ServiceOrdClass        = rs("ServiceOrdClass")            '单据类型
      ServiceOrdType        = rs("ServiceOrdType")            '服务单类型
      ServiceOrdState        = rs("ServiceOrdState")            '服务单状态
      ServiceOrdStartDate    = rs("ServiceOrdStartDate")        '开单日期
      ServiceOrdApptDate    = rs("ServiceOrdApptDate")        '预约日期
      If year(ServiceOrdApptDate)<2010 then ServiceOrdApptDate=""
      ServiceOrdCoName        = rs("ServiceOrdCoName")        '联系人姓名
      ServiceOrdCoPhone        = rs("ServiceOrdCoPhone")        '联系人电话
      ServiceOrdCoTies        = rs("ServiceOrdCoTies")        '联系人与患者关系
      ServiceOrdPtName        = rs("ServiceOrdPtName")        '患者姓名
      ServiceOrdPtAge        = rs("ServiceOrdPtAge")            '患者年龄
      ServiceOrdPtSex        = rs("ServiceOrdPtSex")            '患者性别
      ServiceOrdPtNat        = rs("ServiceOrdPtNat")            '患者国籍
      ServiceOrdPtOutHosp    = rs("ServiceOrdPtOutHosp")        '转出医院
      ServiceOrdPtOutHospID    = rs("ServiceOrdPtOutHospID")    '转出医院ID
      ServiceOrdPtInHosp    = rs("ServiceOrdPtInHosp")        '转入医院
      ServiceOrdPtInHospID    = rs("ServiceOrdPtInHospID")    '转入医院ID
      ServiceOrdPtServices    = rs("ServiceOrdPtServices")    '科室
      ServiceOrdPtDiagnosis    = rs("ServiceOrdPtDiagnosis")    '诊断
      ServiceOrdPtCondition    = rs("ServiceOrdPtCondition")    '备注
      ServiceOrdPtDoctor    = rs("ServiceOrdPtDoctor")        '患者医生
      ServiceOrdPtDoctorPhone=rs("ServiceOrdPtDoctorPhone")    '患者医生电话
      ServiceOrdTraProvince    = rs("ServiceOrdTraProvince")    '出发地省份
      ServiceOrdTraCity        = rs("ServiceOrdTraCity")        '出发地城市
      ServiceOrdTraStreet    = rs("ServiceOrdTraStreet")        '出发地
      ServiceOrdTraStreetCoo= rs("ServiceOrdTraStreetCoo")    '出发地坐标
      ServiceOrdTraEnd        = rs("ServiceOrdTraEnd")        '目的地
      ServiceOrdTraEndCoo    = rs("ServiceOrdTraEndCoo")        '目的地坐标
      ServiceOrdTraVia        = rs("ServiceOrdTraVia")        '途经地
      ServiceOrdTraDistance    = rs("ServiceOrdTraDistance")    '距离(公里)
      ServiceOrdTraDuration    = rs("ServiceOrdTraDuration")    '预计行程时间
      ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice")    '单价/公里
      ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice")    '标准报价
      ServiceOrdTraTxnPrice    = rs("ServiceOrdTraTxnPrice")    '成交价
      ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice")    '已支付金额
      ServiceOrdTraPrePayment=rs("ServiceOrdTraPrePayment")    '需预付款
      ServiceOrdTraPriceReason=rs("ServiceOrdTraPriceReason")'差价原因
      ServiceOrd_CC_ID        = rs("ServiceOrd_CC_ID")        '第一次接单人员ID
      ServiceOrd_CC_Time    = rs("ServiceOrd_CC_Time")        '第一次接单时间
      ServiceOrd_NS_ID        = rs("ServiceOrd_NS_ID")        '确认服务单人员ID
      ServiceOrd_NS_Time    = rs("ServiceOrd_NS_Time")        '确认服务单时间
      ServiceOrd_AP_Check    = rs("ServiceOrd_AP_Check")        '服务单审核状态(0未审核,1已审核)
      ServiceOrd_AP_ID        = rs("ServiceOrd_AP_ID")        '服务单审核人员ID
      ServiceOrd_AP_Time    = rs("ServiceOrd_AP_Time")        '服务单审核时间
      ServiceOrdIntroducer    = rs("ServiceOrdIntroducer")    '介绍人
      ServiceOrd_Sale_ID    = rs("ServiceOrd_Sale_ID")        '销售人员ID
      Guest_Point            = rs("Guest_Point")
      If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
      If ServiceOrdTraPaidPrice="" Then ServiceOrdTraPaidPrice=0
      If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
      If Len(ServiceOrdCoPhone)=11 Then
        ServiceOrdCoPhone=Left(ServiceOrdCoPhone,5)&"****"&right(ServiceOrdCoPhone,2)
      Else
        ServiceOrdCoPhone=""
      End If
      ServiceOrdNo            = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3)
      If IsNumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance=ServiceOrdTraDistance&"公里"
 
      '本次需支付金额
      If isPrePayment="1" Then
        Total_fee=ServiceOrdTraPrePayment-ServiceOrdTraPaidPrice
      Else
        Total_fee=ServiceOrdTraTxnPrice+StretcherMoney-ServiceOrdTraPaidPrice
 
      End If
      If Total_fee<0 Then Total_fee=0
Else
    Response.Redirect "/OrdEvaluateError.asp"
End If
rs.close()
 
If Guest_Point<>0 And Total_fee<=0 Then
  Response.Redirect "/OrdEvaluateOK.asp"
  Response.End()
End If
 
If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then
    DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense")
End if
%>
<!-- 打赏页 -->
<style>
.lb0{
    display:block;
}
.lb1{
    margin-left:10px;color:#808080;font-weight:normal;line-height:40px;font-size:17px;
}
.lb2{
    margin-left:10px;color:#000000;font-weight:bold;font-size:17px;
}
.lb3{
    margin-left:10px;color:#000000;font-weight:bold;font-size:17px;
}
.lbbr{
    height:1px; width:100%; background:#c0c0c0; overflow:hidden; margin:10px;
}
.btn1{
    margin:auto auto 25px auto;font-size: 22px;color: #ffffff;background-color: #45bb06;border:#ffffff;line-height:40px;width: 70%;border-radius: 5px;
}
.btn2{
    margin:auto auto 25px auto;font-size: 22px;color: #ffffff;background-color: #02aaf1;border:#ffffff;line-height:40px;width: 70%;border-radius: 5px;
}
</style>
<header style="">
<div style="background-color:#3eaae1;text-align: center;height:50px;line-height:50px;">
<span style="font-size:22px;color:#ffffff;font-weight:bold;">快线福祉车</span>
</div>
    <%If ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" Then%>
        <%If ServiceOrdPtOutHospID<>"" And ServiceOrdPtOutHospID<>"0" And ServiceOrdPtOutHospID<>"153" Then
            sql="select HospName,HospLevel,HopsProvince,HopsCity,HopsArea,HospAddress from HospData where HospID="&ServiceOrdPtOutHospID
            rs.open sql,objConn,1,1
            If not rs.Eof Then
                PtOutHospName=rs("HospName")
                PtOutHopsProvince=rs("HopsProvince")
                PtOutHopsCity=rs("HopsCity")
                PtOutHopsArea=rs("HopsArea")
                PtOutHospAddress=rs("HospAddress")
            End If
            rs.close()
        ElseIf ServiceOrdTraVia<>"" then
            OrdTraVia    = SPLIT(ServiceOrdTraVia,"=>")
            PtOutHospName=Trim(OrdTraVia(0))
        End if
        If PtOutHospName<>"" Then%>
            <div class="lb1">出发地:</div>
            <div class="lb3"><%=PtOutHospName%></div>
        <%End If%>
 
        <%If ServiceOrdPtInHospID<>"" And ServiceOrdPtInHospID<>"0" And ServiceOrdPtInHospID<>"153" Then
                sql="select HospName,HospLevel,HopsProvince,HopsCity,HopsArea,HospAddress from HospData where HospID="&ServiceOrdPtInHospID
                rs.open sql,objConn,1,1
                If not rs.Eof Then
                    PtInHospName=rs("HospName")
                    PtInHospProvince=rs("HopsProvince")
                    PtInHospCity=rs("HopsCity")
                    PtInHospArea=rs("HopsArea")
                    PtInHospAddress=rs("HospAddress")
                End If
                rs.close()
        Else
            PtInHospName=ServiceOrdTraEnd
        End If
        If PtInHospName<>"" Then%>
            <div class="lb1">目的地:</div>
            <div class="lb3"><%=PtInHospName%></div>
        <%End If%>
        
 
        <div class="lbbr"></div>
 
        <%If ServiceOrdCoName<>"" then%>
            <div><span class="lb1"> 联系人:</span>
            <span class="lb2"><%=ServiceOrdCoName%></span></div>
        <%End If%>
        <%If ServiceOrdCoPhone<>"" then%>
            <div><span class="lb1">联系电话:</span>
            <span class="lb2"><%=ServiceOrdCoPhone%></span></div>
        <%End If%>
        <%If ServiceOrdPtName<>"" then%>
            <div><span class="lb1">患者姓名:</span>
            <span class="lb2"><%=ServiceOrdPtName%></span></div>
        <%End If%>
        <%If ServiceOrdApptDate<>"" then%>
            <div><span class="lb1">预约时间:</span>
            <span class="lb2"><%=ServiceOrdApptDate%></span></div>
        <%End If%>
        
    <%End If%>
 
    <%If ServiceOrdTraTxnPrice>0 Then
    'ServiceOrdTraTxnPrice    成交价
    'ServiceOrdTraPrePayment 需预付款
    'StretcherMoney 附加费用
    'ServiceOrdTraPaidPrice 已支付金额
    %>
        <div><span class="lb1">订单金额:</span>
        <span class="lb2">¥<%=ServiceOrdTraTxnPrice%></span></div>
        <%If StretcherMoney>0 Then%>
            <div><span class="lb1">附加费用:</span>
            <span class="lb2">¥<%=StretcherMoney%></span></div>
        <%End If%>
        <%If ServiceOrdPoints>0 Then%>
            <div><span class="lb1">使用积分:</span>
            <span class="lb2"><%=ServiceOrdPoints%></span></div>
        <%End If%>
        <%If ServiceOrdTraPaidPrice-ServiceOrdPoints>0 Then%>
            <div><span class="lb1"> 已支付:</span>
            <span class="lb2">¥<%=ServiceOrdTraPaidPrice%></span></div>
        <%End If%>
    <%End If%>
        <div class="lbbr"></div>
    </div>
</header>
 
<%
If Total_fee>0 Then
        tips1 = "请先支付出车预付订金 <u>"&Total_fee&"元</u>"
%>
    <div class="ds_form text-center">
        <form id="OrdPayform" name="OrdPayform" action='' method='post' name='order_form form-inline'>
            <input type='hidden' name="ServiceOrdID" value="<%=ServiceOrdID%>" />
            <input type='hidden' name="DispatchOrdID" value="<%=DispatchOrdID%>" />
            <input type='hidden' name="openid" value="<%=openid%>" />
            <input type='hidden' name="Total_fee" value="<%=Total_fee%>" />
            <input type='hidden' id="order_pay_weixin" name="order_pay_weixin" value="<%=order_pay_weixin%>" />
            
            <div style="font-size: 18px;margin: 20px auto ;">待支付<%If isPrePayment="1" Then%>定金<%else%>金额:<%End If%>
                    <span style="font-size: 22px;color: #ff9900;background: #ffffff;border: none;font-weight:bold;">¥<%=FormatNumber(Round(Total_fee,2),2,True)%></span>
            </div>
            <div class="col-xs-12" id="PaySubmit">
                <div class="anniu" onclick="submitFormWeiXinPay();" id="WeiXinPay">
                    <button type="button" id="btn_reg" class="btn1" >微信支付</button>
                </div>
                <div class="anniu" onclick="submitFormAlipayPay();" id="AlipayPay">
                    <button type="button" id="btn_reg" class="btn2">支付宝</button>
                </div>
            </div>
            <div class="col-xs-12" id="PayPosi" style="display:none;">
                <div class="anniu">
                    <button type="button" id="btn_reg" class="btn1" >跳转中</button>
                </div>
            </div>
        </form>
    </div>
<%
Else
        tips1 = "您已支付了定金 <u>"&ServiceOrdTraPaidPrice&"元</u>"
%>
        <div style="text-align:center;"><button type="button" id="btn_reg" class="btn1">您已成功支付</button></div>
<%End If%>
<%If isPrePayment = "1" And ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" Then
%>
<div style="margin:110px 20 0 20;text-align:left;color:#000000;font-size:16px">  <u><%=ServiceOrdCoName%></u>,您好!<%=tips1%>,我们的团队去到出发地 <u><%=PtOutHospName%></u> 后,收齐 <u><%=ServiceOrdTraTxnPrice-Total_fee%></u> 元后再出发至 <u><%=PtInHospName%></u>。然后给您开具全额 <u><%=ServiceOrdTraTxnPrice%>元</u> 的医疗转运票据。如医护已经出车,该定金无法退回,请知悉。有疑问欢迎随时拨打服务热线 (020) 966120,谢谢!</div>
<%ElseIf DispatchOrdState>=6 And ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" And Guest_Point=0 Then%>
<div style="text-align:center;" onclick="javascript:location.href='/MyOrder.php?ServiceOrdID=<%=ServiceOrdID%>&DispatchOrdID=<%=DispatchOrdID%>&sign=<%=Md5Sign(ServiceOrdID&DispatchOrdID,GPSKey,"utf-8")%>';"><button type="button" id="btn_reg" class="btn2" style="background-color: #9d1273;">给于服务评价</button></div>
<!--
<div style="text-align:center;" onclick="javascript:location.href='/index.html#/pages/order/detail/detail?ServiceOrdID=<%=ServiceOrdID%>';"><button type="button" id="btn_reg" class="btn2" style="background-color: #9d1273;">给于服务评价</button></div>
-->
<div style="text-align:center;color:#999999;font-size:14px;margin-top:20px">若需了解更多信息,欢迎拨打服务热线:</div>
<div style="text-align:center;color:#999999;font-size:14px;">(020) 966120</div>
<%End if%>
<div style="text-align:center;color:#999999;font-size:14px;margin:20px auto 50px auto">广东民航医疗快线有限公司</div>
<div class="clear"></div>
<div class="bottom_padding"></div>
<style>
    .complain_dialog{
        background: rgba(0, 0, 0, 0.51);
        position: fixed;
        top: 0;
        width: 100%;
        height: 100%;
        z-index: 999;
        color: #aaa;
        font-size: 14px;
        display: none;
    }
    #form{margin: 20px;}
    #result{display: none;margin: 30px;}
    .ts_success{
        width: 50%;
        max-width: 120px;
    }
    .complain_dialog .inner{
        background: #fff;border-radius: 10px;text-align: center;margin: 0 auto;padding:20px;position: relative;
    }
    .complain_dialog .cancel{
        position: absolute;right: 10px;top: 10px;width: 20px;
    }
    .complain_dialog input{margin: 20px 0 20px 10px;border:none;border-bottom: 1px solid #b5b5b5;width: 70%}
    .complain_dialog textarea{display: block;width: 100%;resize:none;height: 40%;border:1px solid #ccc;box-sizing: border-box;padding:10px 20px;}
    .error_tip{
        color: #ff0000;
        display: none;
    }
    .txt{
        color: #323232;
        font-size: 16px;
        margin: 10px 0 20px 0;
    }
    .complain_dialog h4{color: #323232;}
</style>
 
 
 
<script LANGUAGE="javascript">
    //提交表单--微信支付
    function submitFormWeiXinPay(){
        document.OrdPayform.action = "/pay/weixin_pay_Welcab.asp";
        document.getElementById('PaySubmit').style.display='none';
        document.getElementById('PayPosi').style.display='';
        OrdPayform.submit();
    }
    //提交表单--支付宝
    function submitFormAlipayPay(){
        document.OrdPayform.action = "/pay/alipay_pay.php";
        document.getElementById('PaySubmit').style.display='none';
        document.getElementById('PayPosi').style.display='';
        OrdPayform.submit();
    }
    submitFormAlipayPay
</script>
 
</body>
</html>