<% @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")
ServiceOrdID	= trim(request("ServiceOrdID"))
	If 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
			rs.close()
			sql="select top 1 id,PaidMoney,PaidMoneyTime,PaidMoneyType,PaidMoneyMono from PaidMoney where ServiceOrdIDDt="&ServiceOrdID&" and PaidMoney>0 and DateDiff(ss,PaidMoneyTime,getdate())<=30 order by id desc"
			rs.open Sql,objConn,1,1
			If not rs.Eof Then
				id				= rs("id")
				PaidMoney		= rs("PaidMoney")
				If PaidMoney<1 And PaidMoney>0 Then PaidMoney="0"&PaidMoney
				PaidMoneyTime	= rs("PaidMoneyTime")
				PaidMoneyType	= rs("PaidMoneyType")
				PaidMoneyMono	= rs("PaidMoneyMono")
				If PaidMoneyMono<>"" Then PaidMoneyMono=Replace(PaidMoneyMono,"[支付专用]","")
				webJson="{""trade_state"":""SUCCESS"",""id"":"&id&",""PaidMoney"":"""&PaidMoney&""",""PaidMoneyTime"":"""&PaidMoneyTime&""",""PaidMoneyMono"":"""&PaidMoneyMono&"""}"
			Else
				webJson="{""trade_state"":""CLOSED""}"
			End If
		Else
			trade_state="CLOSED"
			webJson="{""trade_state"":""CLOSED""}"
		End If
		rs.close()
	Else
		webJson="{""trade_state"":""CLOSED""}"
	End If

Response.Write webJson
%>