<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
PaidMoneyID=trim(Request("PaidMoneyID"))
|
|
PaidMoney_AP_Check=""
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from PaidMoney where id="&PaidMoneyID
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then
|
PaidMoney_AP_Check=rs("PaidMoney_AP_Check")
|
End If
|
|
|
if PaidMoneyID<>"" And PaidMoney_AP_Check<>"" then
|
webJson="{""result"":"&PaidMoney_AP_Check&"}"
|
else
|
webJson="{""result"":2}"
|
end if
|
|
Response.Write webJson
|
Response.End
|
%>
|
