% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Session.CodePage=65001 %>
<% Response.charset = "utf-8" %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
out_trade_no = trim(request("out_trade_no"))
ServiceOrdID = trim(request("ServiceOrdID"))
If out_trade_no<>"" Then
APPPayID = "Pay966120"
args1="method=OrderQuery"
args1=args1&"&out_trade_no="&out_trade_no '订单编号
args1=args1&"&APPID="&APPPayID '商户APPID
Sign1=SignArgs(args1)
'Response.Write "https://api.966120.com.cn/weixin/weixin_pay.asp?"&args1&"&Sign="&Sign1
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
trade_state=obj.trade_state 'prepay_id
Else
trade_state="CLOSED"
End If
ElseIf ServiceOrdID<>"" Then
sql="select ServiceOrdTraTxnPrice,ServiceOrdTraPaidPrice from ServiceOrder where ServiceOrdTraTxnPrice<=ServiceOrdTraPaidPrice and ServiceOrdID="&ServiceOrdID
rs.open sql,objConn,1,1
If not rs.Eof Then
trade_state="SUCCESS"
Else
trade_state="CLOSED"
End If
rs.close()
Else
trade_state="CLOSED"
End If
Response.Write trade_state
%>