<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Session.CodePage=65001 %>
<% Response.charset = "utf-8" %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
DispatchOrdID = SafeRequest(trim(request("DispatchOrdID")))
ServiceOrdID = SafeRequest(trim(request("ServiceOrdID")))
Total_fee = SafeRequest(trim(request("Total_fee")))
'第三方支付
ThirdPay Total_fee,ServiceOrdID,DispatchOrdID
APPPayID = "Pay966120"
trade_type = "NATIVE"
If ServiceOrdID<>"" Then
order_no=ServiceOrdID
Else
order_no=DispatchOrdID
End If
spbill_create_ip=getip()
args1="order_no="&order_no '订单编号
args1=args1&"&APPID="&APPPayID '商户APPID
args1=args1&"&openid="&openid 'openid
args1=args1&"&Total_fee="&Total_fee '支付金额
args1=args1&"&trade_type="&trade_type '支付类型
args1=args1&"&spbill_create_ip="&spbill_create_ip '客户IP
'args1=args1&"&UnixTime="&ToUnixTime(now(),+8) '时间戳
Sign1=SignArgs(args1)
HTMLCODE = GetBody("https://api.966120.com.cn/weixin/weixin_pay.asp",args1&"&Sign="&Sign1)
'Response.Write HTMLCODE&"
"
'Response.end
json=HTMLCODE
%>
<%
str=json
str=right(str,len(str)-instr(str,"?{")+1)
str=left(str,InstrRev(str,"}"))
dim obj
set obj = getjson(str)
str0=""
result = obj.result ' 处理结果：1-成功，2-失败
If result<>1 Then Response.Redirect "/OrdEvaluateError.asp"
prepay_id=obj.prepay_id 'prepay_id
mch_key=obj.mch_key 'prepay_id
code_url=obj.code_url
total_fee=obj.total_fee
'Response.Write mweb_url
%>
微信支付 - 扫码支付
请打开手机微信的“扫一扫”功能
扫描以下二唯码进行支付
支付金额:<%=total_fee/100%>元