【调度系统】广东民航医疗快线调度系统源代码
wanglizhong
2025-06-24 a51d070d364b0da8e5f8ea9203a6e50c8b4c0af3
weixin_pay_QR.asp
@@ -4,12 +4,15 @@
<!--#include virtual="/inc/odbc.asp"-->
<!--#include virtual="/inc/function.gds"-->
<!--#include virtual="/inc/core.asp"-->
<!--#include virtual="/inc/thirdpay.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
DispatchOrdID   = SafeRequest(trim(request("DispatchOrdID")))
ServiceOrdID   = SafeRequest(trim(request("ServiceOrdID")))
Total_fee      = SafeRequest(trim(request("Total_fee")))
pc            = SafeRequest(trim(request("pc")))
if pc="1" and DispatchOrdID="" then
replaceURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
@@ -19,6 +22,8 @@
replaceURL="/m_DispatchOrder_PaidMoney.gds?DispatchOrdID="&DispatchOrdID
end if
ThirdPay "weixin",Total_fee,ServiceOrdID,DispatchOrdID,replaceURL
APPPayID   = "Pay966120"
trade_type   = "NATIVE"
If ServiceOrdID<>"" Then