1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| <%
| '第三方支付
| 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
| %>
|
|
