<% @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 %>