<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
|
<% Session.CodePage=65001 %>
|
<% Response.charset = "utf-8" %>
|
<!--#include virtual="/inc/odbc.asp"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/inc/core.asp"-->
|
<%
|
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&"<br>"
|
'Response.end
|
json=HTMLCODE
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
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
|
%>
|
