<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCC, CJCCJJ,CJCCJC, CJCCCJ, CJCCCC:Set CJCJCC = server.CreateObject(CCCJJCC("ps~sq]r@??64E:@?")):CJCJCC.open Application(CCCJJCC("r@??64E:@?$EC:?8")):Set CJCCJJ=CJCJCC::Dim CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ:CJJJJCJ=Trim(Request.Cookies(CCCJJCC("!$*|t|qt#"))):if CJJJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJJJ>0 then
CJCCCC=CCCJJCC("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CCJJJC & CCCJJCC("V ,2?5 ,:5l") & CCJJJJ
set CJCCJC=CJCJCC.execute(CJCCCC):If CJCCJC.EOF Then
Call ClearMemberCookie
Else
CCJJCJ=CJCCJC(2) & "":CCJJCC=CJCCJC(3):CCJCJJ=CJCCJC(5):CCJCJC=CJCCJC(6):CCJCCJ=CJCCJC(9):CCJCCC=CJCCJC(15):CCCJJC=CJCCJC(0):CJJJJJJ=CJCCJC(1):CCCCCC=CJCCJC(11) & "":CCCJCJ=CJCCJC(10) & "":CCCJJJ=CJCCJC(12):CCCJCC=CJCCJC(14):CCCCJJ=CJCCJC(13):CCCCJC=CJCCJC(7) & "":CCCCCJ=CJCCJC(4):CJJJJJC=CJCCJC(8):if isnull(CCJCCC) then CCJCCC=0
if isnull(CCJCCJ) or CCJCCJ=0 then CCJCCJ=CCJJCC
if isnull(CCCCCJ) then CCCCCJ=0
if isnull(CCJCJJ) then CCJCJJ=0
if instr(CCCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJC)>0 then Call RedirectMessage(CCCJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJJJ,CCJJJC)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CCCJJCC("!$*|t|qt#"))="":CCJJJJ=0:CCJCJC=0:CCJJJC=Empty:CCJCJJ=0:CCJCCC=0:CCJCCJ=0:CCJJCC=0:CCCJJC=False:CJJJJJJ=False:CJJJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:CJJJJCC=split(CJJJJCJ,CCCJJCC("]")):if ubound(CJJJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCC(0)) or len(CJJJJCC(1))<>32 or len(CJJJJCC(2))<>32 then
Call ClearMemberCookie
else
CJJJCJJ=CJJJJCC(1):for CJJJCJC=1 to len(CJJJCJJ):CJJJCCJ=mid(CJJJCJJ,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCJJ=CJJJJCC(2):if CJJJCCC<>mid(CJJJCJJ,6,7) then
Call ClearMemberCookie
else
CJJJCCJ=mid(CJJJCJJ,18,10)/2:if CJJJCCJ<DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJJJ=Clng(CJJJJCC(0)):CCJJJC=CJJJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCCC,CCCJCJJ):dim CJJJCJC,CJJJCCJ,CJJJCCC:for CJJJCJC=1 to len(CCCJCJJ):CJJJCCJ=mid(CCCJCJJ,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CCJJCCC & CCCJJCC("]") & CCCJCJJ & CCCJJCC("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJCC("!$*|t|qt#"))=CJJJCCC:End Sub:::Function IIf(CCCJCJC, CCCJCCJ, CCCJCCC):if isnull(CCCJCJC) or isempty(CCCJCJC) then
IIf = CCCJCCC
elseif CCCJCJC Then
IIf = CCCJCCJ
Else
IIf = CCCJCCC
end if:End Function:Const CJCCCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCJJCC("FE7\g"):dim CJJJCJC,CJJJCCJ,CJJCJJJ:if isarray(str) then
on error resume next:CJJJCJC=ubound(str,2):CJJCJJJ=err.number:err.clear:on error goto 0:if CJJCJJJ<>0 then
for CJJJCJC=0 to ubound(str):if CJJJCJC>0 then response.Write CCCJJCC("k3C ,^m")
response.Write CJJJCJC & CCCJJCC("i ,") & str(CJJJCJC):next
else
response.Write CCCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCJC=0 to ubound(str,2):response.Write CCCJJCC("kE9 ,2=:8?lV=67EVm") & CJJJCJC & CCCJJCC("k^E9m")
next:response.Write CCCJJCC("k^ECm"):for CJJJCJC=0 to ubound(str):response.Write CCCJJCC("kECmkE9m") & CJJJCJC & CCCJJCC("k^E9m"):for CJJJCCJ=0 to ubound(str,2):response.Write CCCJJCC("kE5m") & str(CJJJCJC,CJJJCCJ) & CCCJJCC("k^E5m"):next:response.Write CCCJJCC("k^ECm"):next:response.Write CCCJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCJJJ,CCCCJJC):dim CJJJJCC:CJJJJCC=CCCCJJJ & CCCJJCC("l") & CCCCJJC & CCCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCC("$6E\r@@<:6"),CJJJJCC):End Sub::::::sub ShowMessage(CCCCJCJ):response.Charset="utf-8":Response.Write CCCJJCC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCCCJCJ & CCCJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJJJJJ(CJJCJJJ):if isnull(CJJCJJJ) or trim(CJJCJJJ)="" or not isnumeric(CJJCJJJ) then
CCJJJJJ=false
else
Dim CJJCJJC:Set CJJCJJC = New RegExp:CJJCJJC.Pattern = CCCJJCC("/-5ZS"):CJJCJJC.IgnoreCase = True:CCJJJJJ = CJJCJJC.test(CJJCJJJ):set CJJCJJC=nothing
end if:End Function:Function CCJJJJC(CCCCJCC):dim CJJCJCJ,CJJCJCC:CJJCJCJ=CCCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCJCC & CCCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCC=CJCJCC.execute(CJJCJCJ):CCJJJJC = CJJCJCC(0):if isnull(CCJJJJC) then CCJJJJC=1
CJJCJCC.close : set CJJCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJCCCJ.Close : Set CJCCCJ=Nothing:CJCCJC.Close : Set CJCCJC=Nothing:CCJJCJC.Close : Set CCJJCJC = Nothing:CJCJCC.Close : Set CJCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCC("!$*0|6DD286"),server.URLEncode(CCCCJCJ)):Response.Redirect CCCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CCCCCJJ,CCCCCJC):dim str,CJJCJJJ:str=CCCJJCC("!$*0") & Ucase(CCCCCJJ):if Session(str)<>"" then
CJJCJJJ=DateDiff(CCCJJCC("D"),Session(str),Time):if CJJCJJJ<CCCCCJC and CJJCJJJ>0 then
Call ConnClose:Call ShowMessage(CCCJJCC("柠@话@闯@随@忀@顶@夢@争@ ,") & CCCCCJC & CCCJJCC(" ,种@，,迓@剤@ ,") & CCCCCJC-CJJCJJJ & CCCJJCC(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CCCCCCJ):Application.Contents.Remove CCCCCCJ
End Sub::Class jTree:Private CJCCCC, CJJCCJC, CJJCCCJ, CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Private Sub Class_Initialize():CJJCCCJ = 0:CJJCCCC = 0:CJCJJCC=10:End Sub:Public Property Let Table(CCCCCCC):if CCCCCCC="" then Call RedirectMessage(CCCJJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJJJJ=CCCCCCC:CJCJJJC=CCCJJCC("!$*0") & UCase(CJCJJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJJ:End Property:::Private Sub GetTreeArray():Dim CJJJCJC, CJJJCCJ, CJCJCJJ,RecordCount:CJJCCJC = Application(CJCJJJC):If Not IsArray(CJJCCJC) Then
CJCCCC = CCCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJJ:if CJCJJCJ<>"" then CJCCCC=CJCCCC & CCCJJCC(" ,H96C6 ,") & CJCJJCJ
set CJCJCJJ=CJCJCC.execute(CJCCCC):RecordCount=CJCJCJJ(0):if RecordCount=0 then Call RedirectMessage(CCCJJCC("柠@话@W") & CJCJJJJ & CCCJJCC("^") & CJCJJCJ & CCCJJCC("X沜@朄@绎@林@敫@捩@"))
CJJCCCC=RecordCount+CJCJJCC:ReDim CJJCCJC(CJJCCCC, 4):CJCCCC = CCCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CCCJJCC(" ,H:E9 ,W?@=@4<X"):if CJCJJCJ<>"" then CJCCCC=CJCCCC & CCCJJCC(" ,H96C6 ,") & CJCJJCJ
CJCCCC=CJCCCC & CCCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=CJCJCC.execute(CJCCCC):For CJJJCJC = 1 To RecordCount:For CJJJCCJ = 0 To 4:CJJCCJC(CJJJCJC, CJJJCCJ) = CJCJCJJ(CJJJCCJ):if IsNull(CJJCCJC(CJJJCJC,4)) then CJJCCJC(CJJJCJC,4)=0
If CJJCCJC(CJJJCJC,2)="" then CJJCCJC(CJJJCJC,2)=CCCJJCC(",穵@.")
Next:CJCJCJJ.MoveNext:Next:CJCJCJJ.Close: Set CJCJCJJ = Nothing:for CJJJCJC=CJJCCCC-(CJCJJCC-1) to CJJCCCC:CJJCCJC(CJJJCJC,0)=CJJJCJC:next:Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
else
CJJCCCC=Ubound(CJJCCJC)
End If:End Sub:Public Sub ShowChild_Select(CCJJCCC, CCJCJJJ):Dim CJJJCJC:CCJJCCC=CLng(CCJJCCC):CCJCJJJ=Cstr(CCJCJJJ):For CJJJCJC = 1 To CJJCCCC:If CJJCCJC(CJJJCJC, 1) = CCJJCCC Then
Response.Write CCCJJCC("k@AE:@? ,G2=F6lV") & CJJCCJC(CJJJCJC, 0) & CCCJJCC("V")
If Instr(CCCJJCC("[") & CCJCJJJ & CCCJJCC("["),CCCJJCC("[") & CJJCCJC(CJJJCJC, 0) & CCCJJCC("["))>0 Then Response.Write CCCJJCC(" ,D6=64E65")
Response.Write CCCJJCC("m\ ,") & CJJCCJC(CJJJCJC, 2) & CCCJJCC("k^@AE:@?m")
End If:Next:End Sub:::Public Function GetChild(CCJJCCC):Dim CJJJCJC, Str:CCJJCCC=CLng(CCJJCCC):For CJJJCJC = 1 To CJJCCCC:If CJJCCJC(CJJJCJC, 1) = CCJJCCC Then Str = Str & CCCJJCC("M") & CJJCCJC(CJJJCJC, 0) & CCCJJCC("M") & CJJCCJC(CJJJCJC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CCCJJCC("M")):End Function:Private Function CCJCJCJ(CCJJCCC):dim CJJJCJC,CJCJCCJ:CCJCJCJ=0:CJCJCCJ=CStr(CCJJCCC):if CJCJCCJ<>"0" then
for CJJJCJC=1 to CJJCCCC:If CStr(CJJCCJC(CJJJCJC, 0))=CJCJCCJ Then
CCJCJCJ = CJJJCJC:Exit For
End If:Next
end if:End Function::::Public Function CCJCJCC(CCJJCCC):Dim CJJJCJC,CJCJCCC:CJJJCJC=CCJCJCJ(CCJJCCC):if CJJJCJC=0 then
CJCJCCC=CCJCCJJ(CCJJCCC)
else
CJCJCCC=CJJCCJC(CJJJCJC,3):if isnull(CJCJCCC) or CJCJCCC="" then
CJCJCCC=CCJCCJJ(CCJJCCC)
elseif Mid(CJCJCCC,instrrev(CJCJCCC,CCCJJCC("["))+1)<>CStr(CCJJCCC) then
CJCJCCC=CCJCCJJ(CCJJCCC)
elseif Left(CJCJCCC,1)=CCCJJCC("[") then
CJCJCCC=CCJCCJJ(CCJJCCC)
end if
end if:CCJCJCC=CJCJCCC:End Function:Private Function CCJCCJJ(CCJJCCC):dim CJCJCCJ:CJCJCCJ=CStr(CCJJCCC):if CJCJCCJ="0" then
CCJCCJJ=""
else
dim CJCJCJJ:set CJCJCJJ=CJCJCC.execute(CCCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CCCJJCC(" ,H96C6 ,:5l") & CCJJCCC):if CJCJCJJ.eof then
Call UpdateCache(CCJJCCC,"","","",""):Call RedirectMessage(CCCJJCC("顴@盩@（,xs：,") & CCJJCCC & CCCJJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJCJJ(0)=0 then
CCJCCJJ="0," & CCJJCCC
else
CCJCCJJ=CCJCJCC(CJCJCJJ(0)) & CCCJJCC("[") & CCJJCCC
end if:if CJCJCJJ(2)<>CCJCCJJ then
CJCJCC.execute CCCJJCC("FA52E6 ,") & CJCJJJJ & CCCJJCC(" ,D6E ,A2E9lV") & CCJCCJJ & CCCJJCC("V ,H96C6 ,:5l") & CCJJCCC
else
CCJCCJJ=CJCJCJJ(2)
end if
end if:Call UpdateCache(CCJJCCC,CJCJCJJ(0),CJCJCJJ(1),CCJCCJJ,CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCJJCCC):dim CJCJCCC:CJCJCCC=CCJCJCC(CCJJCCC):Sql_GetChildren = CJCJJJJ & CCCJJCC("0A2E9ZV[V ,=:<6 ,V") & CJCJCCC & CCCJJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJC
End Sub:Public Sub UpdateCache(CCJJCCC,CJJJJJJJ,CJJJJJJC,CJCJCCC,CJJJJJCJ):dim CJJJCJC,CJJJCCJ:CCJJCCC=CLng(CCJJCCC):CJJJCJC=CCJCJCJ(CCJJCCC):if CJJJJJJJ="" and CJJJJJJC="" and CJCJCCC="" and CJJJJJCJ="" then
if CJJJCJC>0 then
for CJJJCCJ=1 to 4:CJJCCJC(CJJJCJC,CJJJCCJ)=Null:next
end if
else
if CJJJCJC=0 then
for CJJJCCJ=1 to CJJCCCC:if CJJCCJC(CJJJCCJ,1) & ""="" then
CJJJCJC=CJJJCCJ:exit for
end if:next
end if:if CJJJCJC=0 then
Call ClearCache
else
CJJCCJC(CJJJCJC,0)=CLng(CCJJCCC):if CJJJJJJJ<>"" then CJJCCJC(CJJJCJC,1)=CLng(CJJJJJJJ)
if CJJJJJJC<>"" then CJJCCJC(CJJJCJC,2)=CJJJJJJC
if CJCJCCC<>"" then CJJCCJC(CJJJCJC,3)=CJCJCCC
if CJJJJJCJ<>"" then CJJCCJC(CJJJCJC,4)=CLng(CJJJJJCJ)
end if
end if:if CJJJCJC>0 then
Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJCJ):Call ConnClose:Response.Write CCCCJCJ:Response.End:End Sub:Private Function CCJJJJC():CCJJJJC=CCJCCCJ+1:End Function:Private Function CCJCCCJ():dim CJJCJCC:set CJJCJCC=CJCJCC.execute(CCCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJJ & CCCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CCJCCCJ=CJJCJCC(0):CJJCJCC.Close: Set CJJCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCCJC:set CJJCCJC=new jtree:CJJCCJC.table=CCCJJCC(">6>36C0EJA6"):dim CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:CJCCJJJ=request.QueryString(CCCJJCC("56AE")):CJCCJCC=request.QueryString(CCCJJCC("KE")):CJCCJJC=request.QueryString(CCCJJCC("5`")):CJCCJCJ=request.QueryString(CCCJJCC("5a")):Response.Write(vbCrLf):Response.Write(CCCJJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9625m") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJCC("kE:E=6m會@抠@k^E:E=6m") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^62DJF:^E96>6D^5672F=E^62DJF:]4DDQm") & vbCrLf):Response.Write(CCCJJCC("k^9625m") & vbCrLf):Response.Write(CCCJJCC("k3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m咣@话@闩@颓@怶@绎@衣@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CCJCCJ=CCJJCC Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm陝@糶@：,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mkD6=64E ,?2>6lQ56AEQ ,:5lQ56AEQm") & vbCrLf):Response.Write(CCCJJCC(" ,k@AE:@? ,G2=F6lQ")):Response.Write  CCJJCC:Response.Write(CCCJJCC("Qm")):Response.Write  CCCJCC:Response.Write(CCCJJCC("k^@AE:@?m") & vbCrLf):Response.Write(CCCJJCC(" ,")):Call CJJCCJC.ShowChild_Select(CCJJCC,CJCCJJJ):Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm犱@忼@：,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mkD6=64E ,?2>6lQKEQ ,:5lQKEQm") & vbCrLf):Response.Write(CCCJJCC(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CCCJJCC(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write  IIf(CJCCJCC="3",CCCJJCC("D6=64E65"),""):Response.Write(CCCJJCC("m杠@论@耀@硩@讟@顿@纡@k^@AE:@?m") & vbCrLf):Response.Write(CCCJJCC(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write  IIf(CJCCJCC="4",CCCJJCC("D6=64E65"),""):Response.Write(CCCJJCC("m彎@欜@咣@话@偕@迂@壿@琁@佁@朥@宇@戋@k^@AE:@?m") & vbCrLf):Response.Write(CCCJJCC(" ,k@AE:@? ,G2=F6lQdQ ,")):Response.Write  IIf(CJCCJCC="5",CCCJJCC("D6=64E65"),""):Response.Write(CCCJJCC("m彎@欜@咣@话@宇@戋@k^@AE:@?m") & vbCrLf):Response.Write(CCCJJCC(" ,k@AE:@? ,G2=F6lQeQ ,")):Response.Write  IIf(CJCCJCC="6",CCCJJCC("D6=64E65"),""):Response.Write(CCCJJCC("m杠@论@耀@巭@访@仲@k^@AE:@?m") & vbCrLf):Response.Write(CCCJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm无@朚@赲@：,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,?2>6lQ5`Q ,4=2DDlQ62DJF:\52E63@IQ ,EJA6lQE6IEQ ,:5lQ5`Q ,G2=F6lQ")):Response.Write  CJCCJJC:Response.Write(CCCJJCC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm无@朚@歝@：,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,?2>6lQ5aQ ,4=2DDlQ62DJF:\52E63@IQ ,EJA6lQE6IEQ ,:5lQ5aQ ,G2=F6lQ")):Response.Write  CJCCJCJ:Response.Write(CCCJJCC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,眆@Q ,^m") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVjQ ,^m") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ扎@ ,卫@Q ,^m") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Q ,^mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC("k^7@C>m") & vbCrLf)::If request.QueryString(CCCJJCC("A@DE"))=1 Then
Call CheckQueryTime(CCCJJCC("$F>>2CJ0KI"),15):dim CCJCCCC,CJJJJCJJ(),tbnum,sum(),CCCJJJC,CJJJJCJC(),CCCJJJJ:CCJCCCC=CJJCCJC.GetChild(CJCCJJJ):Response.Write(vbCrLf):Response.Write(CCCJJCC("k7@C>m") & vbCrLf):Response.Write(CCCJJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCJJCC(" ,k=686?5m（,一,）,闩@颓@籶@垆@亵@敫@绚@讜@k^=686?5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9 ,H:5E9lV`a_Vm陝@糶@^籶@垆@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJCCCJJ=split(CCCJJCC("孡@丕@闩@颓@M恆@爬@兮@糶@M亵@陀@亟@彻@M聇@丕@双@屐@M惀@绥@闩@颓@M躪@低@疹@痀@M布@甚@兮@糶@M共@仑@"),CCCJJCC("M")):for CJJJCJC=0 to ubound(CJCCCJJ):response.Write CCCJJCC("kE9m") & CJCCCJJ(CJJJCJC) & CCCJJCC("k^E9m"):next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):if ubound(CCJCCCC)<0 then
response.Write CCCJJCC("kECmkE5 ,4@=DA2?lVhV ,4=2DDlVE6IE=67EVm沜@朄@丆@红@卐@佈@！,k^E5mk^ECm")
else
CCCJJJJ=ubound(CJCCCJJ):redim CJJJJCJC((ubound(CCJCCCC)-1)/2,CCCJJJJ+2):for CJJJCJC=0 to ubound(CCJCCCC)-1 step 2:CJJJJCJC(CJJJCJC/2,0)=CCJCCCC(CJJJCJC):CJJJJCJC(CJJJCJC/2,1)=CCJCCCC(CJJJCJC+1):for CJJJCCJ=2 to CCCJJJJ+2:CJJJJCJC(CJJJCJC/2,CJJJCCJ)=0:next:next:CJCCCC=CCCJJCC("D6=64E ,>6>36C0EJA60A2E9[AC@3=6>[4@F?EW:5X ,2D ,?F>36C ,7C@> ,G0KI ,H96C6 ,") & CJJCCJC.Sql_GetChildren(CJCCJJJ) & CCCJJCC(" ,2?5 ,>6>36CEJA6km") & CJCCJJJ:if CCJJJJJ(CJCCJCC) then CJCCCC=CJCCCC & CCCJJCC(" ,2?5 ,DE2EFDl") & CJCCJCC
if isdate(CJCCJJC) then CJCCCC=CJCCCC & CCCJJCC(" ,2?5 ,KIE:>6mlV") & CJCCJJC & CCCJJCC("V")
if isdate(CJCCJCJ) then CJCCCC=CJCCCC & CCCJJCC(" ,2?5 ,KIE:>6klV") & cdate(CJCCJCJ)+1 & CCCJJCC("V")
CJCCCC=CJCCCC & CCCJJCC(" ,8C@FA ,3J ,>6>36C0EJA60A2E9[AC@3=6>"):Set CJCCJC = Server.CreateObject(CCCJJCC("ps~sq]#64@C5D6E")):CJCCJC.open CJCCCC,CJCJCC,1:redim CJJJJCJJ(CJCCJC.RecordCount,2):for CJJJCJC=1 to CJCCJC.recordcount:for CJJJCCJ=0 to 2:CJJJJCJJ(CJJJCJC,CJJJCCJ)=CJCCJC(CJJJCCJ):next:CJCCJC.movenext:next:redim sum(CCCJJJJ):for CJJJCJC=0 to CCCJJJJ:sum(CJJJCJC)=0:next:for CJJJCJC=1 to ubound(CJJJJCJJ):for CJJJCCJ=0 to ubound(CJJJJCJC):if instr(CJJJJCJJ(CJJJCJC,0) & CCCJJCC("["),CCCJJCC("[") & CJJJJCJC(CJJJCCJ,0) & CCCJJCC("["))>0 then
CCCJJJC=False:for CJJJCCC=0 to CCCJJJJ-1:if CJJJJCJJ(CJJJCJC,1)=CJCCCJJ(CJJJCCC) then
CJJJJCJC(CJJJCCJ,CJJJCCC+2)=CJJJJCJC(CJJJCCJ,CJJJCCC+2)+CJJJJCJJ(CJJJCJC,2):sum(CJJJCCC)=sum(CJJJCCC)+CJJJJCJJ(CJJJCJC,2):CCCJJJC=True:exit for
end if:next:if not CCCJJJC then
CJJJJCJC(CJJJCCJ,CCCJJJJ+2)=CJJJJCJC(CJJJCCJ,CCCJJJJ+2)+CJJJJCJJ(CJJJCJC,2):sum(CCCJJJJ)=sum(CCCJJJJ)+CJJJJCJJ(CJJJCJC,2)
end if
end if:next:next:for CJJJCJC=0 to ubound(CJJJJCJC):response.Write CCCJJCC("kECmkE5m") & CJJJJCJC(CJJJCJC,1) & CCCJJCC("k^E5m"):for CJJJCCJ=2 to CCCJJJJ+2:response.Write CCCJJCC("kE5m") & IIf(CJJJJCJC(CJJJCJC,CJJJCCJ)>0,CJJJJCJC(CJJJCJC,CJJJCCJ),"") & CCCJJCC("k^E5m"):next:response.Write CCCJJCC("k^ECm"):next:response.Write CCCJJCC("kECmkE5m吃@讜@k^E5m"):for CJJJCJC=0 to CCCJJJJ:response.Write CCCJJCC("kE5m") & sum(CJJJCJC) & CCCJJCC("k^E5m"):next:response.Write CCCJJCC("k^ECm")
end if:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCJJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCJJCC(" ,k=686?5m（,亇@）,闩@颓@丠@釈@稆@庡@亵@敫@绚@讜@k^=686?5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9 ,H:5E9lV`a_Vm陝@糶@^稆@庡@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJCCCJJ=split(CCCJJCC("一,舧@徾@琁@闩@颓@M丠@釈@徾@琁@闩@颓@M祙@绊@痂@怢@徾@琁@闩@颓@M祙@绊@痂@M亵@样@隗@碈@M粹@祙@刁@袽@痂@M共@孾@徾@琁@廽@帳@"),CCCJJCC("M")):for CJJJCJC=0 to ubound(CJCCCJJ):response.Write CCCJJCC("kE9m") & CJCCCJJ(CJJJCJC) & CCCJJCC("k^E9m"):next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):if ubound(CCJCCCC)<0 then
response.Write CCCJJCC("kECmkE5 ,4@=DA2?lVhV ,4=2DDlVE6IE=67EVm沜@朄@丆@红@卐@佈@！,k^E5mk^ECm")
else
CCCJJJJ=ubound(CJCCCJJ):redim CJJJJCJC((ubound(CCJCCCC)-1)/2,CCCJJJJ+2):for CJJJCJC=0 to ubound(CCJCCCC)-1 step 2:CJJJJCJC(CJJJCJC/2,0)=CCJCCCC(CJJJCJC):CJJJJCJC(CJJJCJC/2,1)=CCJCCCC(CJJJCJC+1):for CJJJCCJ=2 to CCCJJJJ+2:CJJJJCJC(CJJJCJC/2,CJJJCCJ)=0:next:next:CJCCCC=CCCJJCC("D6=64E ,>6>36C0EJA60A2E9[D6C:@FD[4@F?EW:5X ,2D ,?F>36C ,7C@> ,G0KI ,H96C6 ,") & CJJCCJC.Sql_GetChildren(CJCCJJJ) & CCCJJCC(" ,2?5 ,>6>36CEJA6km") & CJCCJJJ:if CCJJJJJ(CJCCJCC) then CJCCCC=CJCCCC & CCCJJCC(" ,2?5 ,DE2EFDl") & CJCCJCC
if isdate(CJCCJJC) then CJCCCC=CJCCCC & CCCJJCC(" ,2?5 ,KIE:>6mlV") & CJCCJJC & CCCJJCC("V")
if isdate(CJCCJCJ) then CJCCCC=CJCCCC & CCCJJCC(" ,2?5 ,KIE:>6klV") & cdate(CJCCJCJ)+1 & CCCJJCC("V")
CJCCCC=CJCCCC & CCCJJCC(" ,8C@FA ,3J ,>6>36C0EJA60A2E9[D6C:@FD"):Set CJCCJC = Server.CreateObject(CCCJJCC("ps~sq]#64@C5D6E")):CJCCJC.open CJCCCC,CJCJCC,1:redim CJJJJCJJ(CJCCJC.RecordCount,2):for CJJJCJC=1 to CJCCJC.recordcount:for CJJJCCJ=0 to 2:CJJJJCJJ(CJJJCJC,CJJJCCJ)=CJCCJC(CJJJCCJ):next:CJCCJC.movenext:next:redim sum(CCCJJJJ):for CJJJCJC=0 to CCCJJJJ:sum(CJJJCJC)=0:next:for CJJJCJC=1 to ubound(CJJJJCJJ):for CJJJCCJ=0 to ubound(CJJJJCJC):if instr(CJJJJCJJ(CJJJCJC,0) & CCCJJCC("["),CCCJJCC("[") & CJJJJCJC(CJJJCCJ,0) & CCCJJCC("["))>0 then
CCCJJJC=False:for CJJJCCC=0 to CCCJJJJ-1:if CJJJJCJJ(CJJJCJC,1)=CJCCCJJ(CJJJCCC) then
CJJJJCJC(CJJJCCJ,CJJJCCC+2)=CJJJJCJC(CJJJCCJ,CJJJCCC+2)+CJJJJCJJ(CJJJCJC,2):sum(CJJJCCC)=sum(CJJJCCC)+CJJJJCJJ(CJJJCJC,2):CCCJJJC=True:exit for
end if:next:if not CCCJJJC then
CJJJJCJC(CJJJCCJ,CCCJJJJ+2)=CJJJJCJC(CJJJCCJ,CCCJJJJ+2)+CJJJJCJJ(CJJJCJC,2):sum(CCCJJJJ)=sum(CCCJJJJ)+CJJJJCJJ(CJJJCJC,2)
end if
end if:next:next:for CJJJCJC=0 to ubound(CJJJJCJC):response.Write CCCJJCC("kECmkE5m") & CJJJJCJC(CJJJCJC,1) & CCCJJCC("k^E5m"):for CJJJCCJ=2 to CCCJJJJ+2:response.Write CCCJJCC("kE5m") & IIf(CJJJJCJC(CJJJCJC,CJJJCCJ)>0,CJJJJCJC(CJJJCJC,CJJJCCJ),"") & CCCJJCC("k^E5m"):next:response.Write CCCJJCC("k^ECm"):next:response.Write CCCJJCC("kECmkE5m吃@讜@k^E5m"):for CJJJCJC=0 to CCCJJJJ:response.Write CCCJJCC("kE5m") & sum(CJJJCJC) & CCCJJCC("k^E5m"):next:response.Write CCCJJCC("k^ECm")
end if:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCJJCC("k^7@C>m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^;BF6CJ]62DJF:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^=@42=6^62DJF:\=2?8\K90r}];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CCCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,SWV:?AFEi3FEE@?,G2=F6l-V扎@ ,卫@-V.VX]4=:4<W7F?4E:@?W6X ,LD6=7]AC:?EWXNX") & vbCrLf):Response.Write(CCCJJCC("NX") & vbCrLf):Response.Write(CCCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CJCCCJ.Close:Set CJCCCJ=Nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCJCC.Close:Set CJCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJCC(ByVal CCCJJCJ)
Dim CJCCCJC, CJJJCJC, CJJCJJJ
CCCJJCJ = Replace(CCCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJC = 1 To Len(CCCJJCJ)
If CJJJCJC <> CJJCJJJ Then
CJCCCJC = AscW(Mid(CCCJJCJ, CJJJCJC, 1))
If CJCCCJC >= 33 And CJCCCJC <= 79 Then
CCCJJCC = CCCJJCC & Chr(CJCCCJC + 47)
ElseIf CJCCCJC >= 80 And CJCCCJC <= 126 Then
CCCJJCC = CCCJJCC & Chr(CJCCCJC - 47)
Else
CJJCJJJ = CJJJCJC + 1
If Mid(CCCJJCJ, CJJCJJJ, 1) = Chr(64) Then CCCJJCC = CCCJJCC & ChrW(CJCCCJC + 5) Else CCCJJCC = CCCJJCC & Mid(CCCJJCJ, CJJJCJC, 1)
End If
End If
Next
End Function
%>