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
| <%
| '第三方支付
| Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID)
| 'PayType:支付类型
| 'PayMoney:支付金额
| 'ServiceOrdID:服务单ID
| 'DispatchOrdID:调度单ID
| Set rs = Server.CreateObject("ADODB.Recordset")
| sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
| rs.open sql,objConn,1,1
| If not rs.Eof then
| PayQRcodeURL = rs("PayQRcodeURL")
| if PayQRcodeURL<>"" Then
| PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
| Response.Redirect PayQRcodeURL
| End If
| End If
| rs.close()
| End Function
|
| Function buildPayURL(PayType,PayMoney,ServiceOrdID,DispatchOrdID,PayQRcodeURL)
| Dim PayURL
| PayURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
| buildPayURL = PayURL
| End Function
| %>
|
|
