<% '第三方支付 Function ThirdPay(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 %>