came.git - Gitblit

			@@ -1,6 +1,6 @@
			<%
			'第三方支付
			Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
			Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID)
			'PayType:支付类型
			'PayMoney:支付金额
			'ServiceOrdID:服务单ID
			@@ -17,4 +17,10 @@
			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
			%>