<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
PaidMoneyID=trim(Request("PaidMoneyID"))
|
SearchType=trim(Request("SearchType"))
|
If PaidMoneyID<>"" Then
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
If SearchType="1" Then
|
If PaidMoneyID="158444" Then PaidMoneyID="140709"
|
sql="select PaidMoney from PaidMoney where id="&PaidMoneyID
|
Else
|
sql="select isnull(SUM(PaidMoney),0) from PaidMoney where PaidMoney_AP_Check<>-1 and left(PaidMoneyMono,28) in (select left(PaidMoneyMono,CHARINDEX('[',PaidMoneyMono)-1) from PaidMoney where PaidMoney>0 and PaidMoneyType in (3,4) and PaidMoney_AP_Check<>-1 and datediff(day,PaidMoneyTime,getdate())<=30 and id="&PaidMoneyID&")"
|
End If
|
rs.open Sql,objConn,1,1
|
if not rs.eof Then
|
PaidMoney=rs(0)
|
If PaidMoney<1 And PaidMoney>0 Then PaidMoney="0"&PaidMoney
|
End If
|
rs.close()
|
webJson="{""result"":1,""PaidMoneyID"":"&PaidMoneyID&",""PaidMoney"":"&PaidMoney&"}"
|
Else
|
webJson="{""result"":2}"
|
End If
|
|
Response.Write webJson
|
Response.End%>
|
