<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCC, CJCJJJ,CJCJJC, CJCJCJ, CJCJCC:Set CJJCCC = server.CreateObject(CCCJCCJ("ps~sq]r@??64E:@?")):CJJCCC.open Application(CCCJCCJ("r@??64E:@?$EC:?8")):Set CJCJJJ=CJJCCC::Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ:CCCCCJ=Trim(Request.Cookies(CCCJCCJ("!$*|t|qt#"))):if CCCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJJ>0 then
CJCJCC=CCCJCCJ("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") & CJCCJC & CCCJCCJ("V ,2?5 ,:5l") & CJCCJJ
set CJCJJC=CJJCCC.execute(CJCJCC):If CJCJJC.EOF Then
Call ClearMemberCookie
Else
CJCCCJ=CJCJJC(2) & "":CJCCCC=CJCJJC(3):CCJJJJ=CJCJJC(5):CCJJJC=CJCJJC(6):CCJJCJ=CJCJJC(9):CCJJCC=CJCJJC(15):CCJCJC=CJCJJC(0):CCCCJJ=CJCJJC(1):CCCJCC=CJCJJC(11) & "":CCJCCJ=CJCJJC(10) & "":CCJCJJ=CJCJJC(12):CCJCCC=CJCJJC(14):CCCJJJ=CJCJJC(13):CCCJJC=CJCJJC(7) & "":CCCJCJ=CJCJJC(4):CCCCJC=CJCJJC(8):if isnull(CCJJCC) then CCJJCC=0
if isnull(CCJJCJ) or CCJJCJ=0 then CCJJCJ=CJCCCC
if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCJJJJ) then CCJJJJ=0
if instr(CCCJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJC)>0 then Call RedirectMessage(CCCJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCJJ,CJCCJC)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CCCJCCJ("!$*|t|qt#"))="":CJCCJJ=0:CCJJJC=0:CJCCJC=Empty:CCJJJJ=0:CCJJCC=0:CCJJCJ=0:CJCCCC=0:CCJCJC=False:CCCCJJ=False:CCCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:CCCCCC=split(CCCCCJ,CCCJCCJ("]")):if ubound(CCCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCCC(0)) or len(CCCCCC(1))<>32 or len(CCCCCC(2))<>32 then
Call ClearMemberCookie
else
CJJJJJJ=CCCCCC(1):for CJJJJJC=1 to len(CJJJJJJ):CJJJJCJ=mid(CJJJJJJ,CJJJJJC,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJJJ=CCCCCC(2):if CJJJJCC<>mid(CJJJJJJ,6,7) then
Call ClearMemberCookie
else
CJJJJCJ=mid(CJJJJJJ,18,10)/2:if CJJJJCJ<DateDiff(CCCJCCJ("D"), CCCJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJJ=Clng(CCCCCC(0)):CJCCJC=CCCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJC,CCCJCCC):dim CJJJJJC,CJJJJCJ,CJJJJCC:for CJJJJJC=1 to len(CCCJCCC):CJJJJCJ=mid(CCCJCCC,CJJJJJC,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CJCCCJC & CCCJCCJ("]") & CCCJCCC & CCCJCCJ("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJCCJ("D"), CCCJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJCCJ("!$*|t|qt#"))=CJJJJCC:End Sub::::Const CCJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCJCCJ("FE7\g"):dim CJJJJJC,CJJJJCJ,CJJJCJJ:if isarray(str) then
on error resume next:CJJJJJC=ubound(str,2):CJJJCJJ=err.number:err.clear:on error goto 0:if CJJJCJJ<>0 then
for CJJJJJC=0 to ubound(str):if CJJJJJC>0 then response.Write CCCJCCJ("k3C ,^m")
response.Write CJJJJJC & CCCJCCJ("i ,") & str(CJJJJJC):next
else
response.Write CCCJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJJC=0 to ubound(str,2):response.Write CCCJCCJ("kE9 ,2=:8?lV=67EVm") & CJJJJJC & CCCJCCJ("k^E9m")
next:response.Write CCCJCCJ("k^ECm"):for CJJJJJC=0 to ubound(str):response.Write CCCJCCJ("kECmkE9m") & CJJJJJC & CCCJCCJ("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CCCJCCJ("kE5m") & str(CJJJJJC,CJJJJCJ) & CCCJCCJ("k^E5m"):next:response.Write CCCJCCJ("k^ECm"):next:response.Write CCCJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCJJJ,CCCCJJC):dim CCCCCC:CCCCCC=CCCCJJJ & CCCJCCJ("l") & CCCCJJC & CCCJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCCJ("$6E\r@@<:6"),CCCCCC):End Sub::::::sub ShowMessage(CCCCJCJ):response.Charset="utf-8":Response.Write CCCJCCJ("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 & CCCJCCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJJCCC(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then
CCJJCCC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CCCJCCJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CCJJCCC = CJJJCJC.test(CJJJCJJ):set CJJJCJC=nothing
end if:End Function:Function CCJCJJJ(CCCCJCC):dim CJJJCCJ,CJJJCCC:CJJJCCJ=CCCJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCJCC & CCCJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCC=CJJCCC.execute(CJJJCCJ):CCJCJJJ = CJJJCCC(0):if isnull(CCJCJJJ) then CCJCJJJ=1
CJJJCCC.close : set CJJJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCCJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:CJJJCCC.close : set CJJJCCC=nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCJJC.Close : Set CJCJJC=Nothing:CCJCCJJ.Close : Set CCJCCJJ = Nothing:CJJCCC.Close : Set CJJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCCJ("!$*0|6DD286"),server.URLEncode(CCCCJCJ)):Response.Redirect CCCJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCJCCJC():Dim CJJJCCC, CJJCJJJ(), CJJJJJC, CJJJJCJ, CJJCJJC,CJJCJCJ:If Not IsArray(Application(CCCJCCJ("!$*0%6DED"))) Then
CJCJCC=CCCJCCJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJJJCCC=server.createobject(CCCJCCJ("25@53]C64@C5D6E")):CJJJCCC.open CJCJCC,CJJCCC,1:CJJCJJC = CJJJCCC.RecordCount:CJJCJCJ=CJJJCCC.fields.count-1:ReDim CJJCJJJ(CJJCJJC, CJJCJCJ):If CJJCJJC > 0 Then
For CJJJJJC = 1 To CJJCJJC:For CJJJJCJ = 0 To CJJCJCJ:if CJJJJCJ=4 or CJJJJCJ=6 or CJJJJCJ=19 then
CJJCJJJ(CJJJJJC, CJJJJCJ) = CCJCCCJ(CJJJCCC(CJJJJCJ))
else
CJJCJJJ(CJJJJJC, CJJJJCJ) = CJJJCCC(CJJJJCJ):if CJJJCCC(CJJJJCJ).type<>11 and isnull(CJJCJJJ(CJJJJJC, CJJJJCJ)) then CJJCJJJ(CJJJJJC, CJJJJCJ)=""
end if:Next:CJJJCCC.MoveNext:Next
End If:CJJJCCC.Close: Set CJJJCCC = Nothing:Application(CCCJCCJ("!$*0%6DED")) = CJJCJJJ
End If:CCJCCJC = Application(CCCJCCJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CCJCCCJ(CCCCCJJ):if isnull(CCCCCJJ) then
CCJCCCJ=""
else
On Error Resume Next:CCJCCCJ=CCCCCJJ:if err.number=-2147352567 then
CCJCCCJ="":err.Clear
end if
end if:End Function::::Sub ClearCache(CCCCCJC):Application.Contents.Remove CCCCCJC
End Sub::::::Sub ShowPageHead():if CJCCJJC<>CCCJCCJ("$2G6p?DH6Cx?AFE") then
Dim str:str=CCCJCCJ("kPs~r%*!t ,9E>=m") & CCCJCCJ("k9E>= ,=2?8lVK9\r}Vm") & CCCJCCJ("k9625m") & CCCJCCJ("k>6E2 ,492CD6ElVFE7\gVm") & CCCJCCJ("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CCCJCCJ("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CCCJCCJ("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CCCJCCJ("kE:E=6m闩@卲@ ,\ ,") & CCJJCCJ & CCCJCCJ("k^E:E=6m") & CCCJCCJ("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CCCJCCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CCCJCCJ("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CCCJCCJ("k^9625mk3@5Jm")
Response.Write str
end if:End Sub:Sub ShowPageFoot():if CJCCJJC<>CCCJCCJ("$2G6p?DH6Cx?AFE") then
Response.Write CCCJCCJ("k^3@5Jmk^9E>=m")
end if:End Sub:Sub GetBaseInfo(CJCCCJC):dim CJJCJJJ,CJJJJJC:CJJCJJJ = CCJCCJC:For CJJJJJC = 1 To UBound(CJJCJJJ):If CStr(CJJCJJJ(CJJJJJC, 0)) = CStr(CJCCCJC) Then
CJCCJCJ=CJJCJJJ(CJJJJJC,2):CJCCJCC=CJJCJJJ(CJJJJJC,1):CJCCCJJ=CJJCJJJ(CJJJJJC,3):CJCCCCJ=CJJCJJJ(CJJJJJC,7):CJCCCCC=CJJCJJJ(CJJJJJC,15):Exit For
End If:Next:if CJCCJCC="" then
dim CJJJCCC:set CJJJCCC=CJJCCC.execute(CCCJCCJ("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CJCCCJC):if CJJJCCC.eof then
Call RedirectMessage(CCCJCCJ("寴@丈@赲@，,释@衣@（,") & CJCCCJC & CCCJCCJ("）,朥@批@别@我@丈@只@産@。,"))
else
CJCCJCJ=CJJJCCC(0):CJCCJCC=CJJJCCC(1):CJCCCJJ=CJJJCCC(2):CJCCCCJ=CJJJCCC(3):CJCCCCC=CJJJCCC(4):Call ClearCache(CCCJCCJ("!$*0%6DED"))
end if:CJJJCCC.close : set CJJJCCC=nothing
end if:End Sub:::::::Sub ReMakeResult()
dim CJJJCCC,CJJJJJC,CJJJCJJ,CJJCJJC,CJJCCJJ,CJJCCJC:CJJCJJC=50:CJJJCJJ=Request.QueryString(CCCJCCJ(":5")):CJJCCJC=Request.QueryString(CCCJCCJ("D49@@=")):if not CCJJCCC(CJJJCJJ) then CJJJCJJ=0
if CCJJCCC(CJJCCJC) then
CJCJCC=CCCJCCJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJJCJJC & CCCJCCJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJJCCJ & CCCJCCJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJJJCJJ & CCCJCCJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJC & CCCJCCJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
else
CJCJCC=CCCJCCJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJJCJJC & CCCJCCJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJJCCJ & CCCJCCJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJJJCJJ & CCCJCCJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
end if:set CJJJCCC=CJJCCC.execute(CJCJCC):CJJCCJJ=CJJJCCC(0):CJJJCCC.close : set CJJJCCC=nothing:if isnull(CJJCCJJ) then
Call ShowMessage(CCCJCCJ("恨@喗@，,韮@之@哈@赲@，,讜@箒@宇@毐@！,")):Response.Write CCCJCCJ("k2F5:@ ,DC4lV^:>286D^|@K2CE0#@?5@0p==20%FC42]>:5V ,2FE@A=2Jmk^2F5:@m")
else
CJJCCJJ=split(CJJCCJJ,CCCJCCJ("[")):for CJJJJJC=0 to ubound(CJJCCJJ):CJCCCJC=CJJCCJJ(CJJJJJC):Call MakeResult:if VarType(CJJCCC)=9 then exit for
next:Call ShowMessage(CCCJCCJ("歞@圣@讜@箒@绎@林@，,诲@稈@倔@]]] ,W") & CJCCCJC & CCCJCCJ("X")):if CCJJCCC(CJJCCJC) then
response.Write CCCJCCJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CCJJCCJ & CCCJCCJ("U:5l") & CJCCCJC+1 & CCCJCCJ("UD49@@=l") & CJJCCJC & CCCJCCJ("Vm")
else
response.Write CCCJCCJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CCJJCCJ & CCCJCCJ("U:5l") & CJCCCJC+1 & CCCJCCJ("Vm")
end if
end if:end sub:::Class jTree:Private CJCJCC, CJJCCCJ, CJJCCCC, CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Private Sub Class_Initialize():CJJCCCC = 0:CJCJJJJ = 0:CJCJCJJ=10:End Sub:Public Property Let Table(CCCCCCJ):if CCCCCCJ="" then Call RedirectMessage(CCCJCCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJJJC=CCCCCCJ:CJCJJCJ=CCCJCCJ("!$*0") & UCase(CJCJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJC:End Property::Public Property Get Count():Count=CJCJJJJ-CJCJCJJ:End Property:Private Sub GetTreeArray():Dim CJJJJJC, CJJJJCJ, CJCJCJC,RecordCount:CJJCCCJ = Application(CJCJJCJ):If Not IsArray(CJJCCCJ) Then
CJCJCC = CCCJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJC:if CJCJJCC<>"" then CJCJCC=CJCJCC & CCCJCCJ(" ,H96C6 ,") & CJCJJCC
set CJCJCJC=CJJCCC.execute(CJCJCC):RecordCount=CJCJCJC(0):if RecordCount=0 then Call RedirectMessage(CCCJCCJ("柠@话@W") & CJCJJJC & CCCJCCJ("^") & CJCJJCC & CCCJCCJ("X沜@朄@绎@林@敫@捩@"))
CJCJJJJ=RecordCount+CJCJCJJ:ReDim CJJCCCJ(CJCJJJJ, 4):CJCJCC = CCCJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCJCCJ(" ,H:E9 ,W?@=@4<X"):if CJCJJCC<>"" then CJCJCC=CJCJCC & CCCJCCJ(" ,H96C6 ,") & CJCJJCC
CJCJCC=CJCJCC & CCCJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJC=CJJCCC.execute(CJCJCC):For CJJJJJC = 1 To RecordCount:For CJJJJCJ = 0 To 4:CJJCCCJ(CJJJJJC, CJJJJCJ) = CJCJCJC(CJJJJCJ):if IsNull(CJJCCCJ(CJJJJJC,4)) then CJJCCCJ(CJJJJJC,4)=0
If CJJCCCJ(CJJJJJC,2)="" then CJJCCCJ(CJJJJJC,2)=CCCJCCJ(",穵@.")
Next:CJCJCJC.MoveNext:Next:CJCJCJC.Close: Set CJCJCJC = Nothing:for CJJJJJC=CJCJJJJ-(CJCJCJJ-1) to CJCJJJJ:CJJCCCJ(CJJJJJC,0)=CJJJJJC:next:Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock()
else
CJCJJJJ=Ubound(CJJCCCJ)
End If:End Sub:::::Private Function CCCJJJC(CJCCCJC):dim CJJJJJC,CJCJCCC:CCCJJJC=0:CJCJCCC=CStr(CJCCCJC):if CJCJCCC<>"0" then
for CJJJJJC=1 to CJCJJJJ:If CStr(CJJCCCJ(CJJJJJC, 0))=CJCJCCC Then
CCCJJJC = CJJJJJC:Exit For
End If:Next
end if:End Function::::Public Function CCCJJCJ(CJCCCJC):Dim CJJJJJC,CJCCJJJ:CJJJJJC=CCCJJJC(CJCCCJC):if CJJJJJC=0 then
CJCCJJJ=CCCJJCC(CJCCCJC)
else
CJCCJJJ=CJJCCCJ(CJJJJJC,3):if isnull(CJCCJJJ) or CJCCJJJ="" then
CJCCJJJ=CCCJJCC(CJCCCJC)
elseif Mid(CJCCJJJ,instrrev(CJCCJJJ,CCCJCCJ("["))+1)<>CStr(CJCCCJC) then
CJCCJJJ=CCCJJCC(CJCCCJC)
elseif Left(CJCCJJJ,1)=CCCJCCJ("[") then
CJCCJJJ=CCCJJCC(CJCCCJC)
end if
end if:CCCJJCJ=CJCCJJJ:End Function:Private Function CCCJJCC(CJCCCJC):dim CJCJCCC:CJCJCCC=CStr(CJCCCJC):if CJCJCCC="0" then
CCCJJCC=""
else
dim CJCJCJC:set CJCJCJC=CJJCCC.execute(CCCJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCJCCJ(" ,H96C6 ,:5l") & CJCCCJC):if CJCJCJC.eof then
Call UpdateCache(CJCCCJC,"","","",""):Call RedirectMessage(CCCJCCJ("顴@盩@（,xs：,") & CJCCCJC & CCCJCCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJCJC(0)=0 then
CCCJJCC="0," & CJCCCJC
else
CCCJJCC=CCCJJCJ(CJCJCJC(0)) & CCCJCCJ("[") & CJCCCJC
end if:if CJCJCJC(2)<>CCCJJCC then
CJJCCC.execute CCCJCCJ("FA52E6 ,") & CJCJJJC & CCCJCCJ(" ,D6E ,A2E9lV") & CCCJJCC & CCCJCCJ("V ,H96C6 ,:5l") & CJCCCJC
else
CCCJJCC=CJCJCJC(2)
end if
end if:Call UpdateCache(CJCCCJC,CJCJCJC(0),CJCJCJC(1),CCCJJCC,CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJCJ
End Sub:Public Sub UpdateCache(CJCCCJC,CCCCCCC,CJJJJJJJ,CJCCJJJ,CJJJJJJC):dim CJJJJJC,CJJJJCJ:CJCCCJC=CLng(CJCCCJC):CJJJJJC=CCCJJJC(CJCCCJC):if CCCCCCC="" and CJJJJJJJ="" and CJCCJJJ="" and CJJJJJJC="" then
if CJJJJJC>0 then
for CJJJJCJ=1 to 4:CJJCCCJ(CJJJJJC,CJJJJCJ)=Null:next
end if
else
if CJJJJJC=0 then
for CJJJJCJ=1 to CJCJJJJ:if CJJCCCJ(CJJJJCJ,1) & ""="" then
CJJJJJC=CJJJJCJ:exit for
end if:next
end if:if CJJJJJC=0 then
Call ClearCache
else
CJJCCCJ(CJJJJJC,0)=CLng(CJCCCJC):if CCCCCCC<>"" then CJJCCCJ(CJJJJJC,1)=CLng(CCCCCCC)
if CJJJJJJJ<>"" then CJJCCCJ(CJJJJJC,2)=CJJJJJJJ
if CJCCJJJ<>"" then CJJCCCJ(CJJJJJC,3)=CJCCJJJ
if CJJJJJJC<>"" then CJJCCCJ(CJJJJJC,4)=CLng(CJJJJJJC)
end if
end if:if CJJJJJC>0 then
Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJCJ):Call ConnClose:Response.Write CCCCJCJ:Response.End:End Sub:Private Function CCJCJJJ():CCJCJJJ=CCCJCJJ+1:End Function:Private Function CCCJCJJ():dim CJJJCCC:set CJJJCCC=CJJCCC.execute(CCCJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJC & CCCJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CCCJCJJ=CJJJCCC(0):CJJJCCC.Close: Set CJJJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJJCCJ=142:Dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:CJCCJJC=Request.QueryString(CCCJCCJ("24E")):if CJCCJJC="" then CJCCJJC=Request.Form(CCCJCCJ("24E"))
if CJCCJJC="" then CJCCJJC=Request.Cookies(CCCJCCJ("!$*"))(CCCJCCJ("%6DEp4E"))
if CJCCJJC="" then Call RedirectMessage(CCCJCCJ("寴@丈@赲@，,糶@绚@厽@敫@Wp4EX丵@穵@！,"))
CCJJJJJ=CCCJCCJ("E6DE"):dim CJJCCCJ:set CJJCCCJ=new jtree:CJJCCCJ.table=CCCJCCJ(">6>36C0EJA6"):Call GetBaseInfo(CCJJCCJ):Call ShowPageHead:Select Case CJCCJJC:Case CCCJCCJ("|2<6#6DF=E"):CJCCCJC=request.QueryString(CCCJCCJ(":5")):Call MakeResult:Case CCCJCCJ("#6|2<6#6DF=E")
Call ReMakeResult
Case Else
Call ShowMessage(CCCJCCJ("寴@丈@赲@，,释@衣@丈@攪@拼@诠@劚@胸@！,")):End Select:Call ShowPageFoot:Sub MakeResult():dim CJJJCCC,CCJJJJC,CJJJJJC,CCJJJCJ,CCJJJCC:set CJJJCCC=CJJCCC.execute(CCCJCCJ("D6=64E ,E@A ,` ,2?DH6C ,7C@> ,") & CCJJJJJ & CCCJCCJ(" ,H96C6 ,:5l") & CJCCCJC):CCJJJCJ=split(CJJJCCC(0),CCCJCCJ("M")):CJJJCCC.close : set CJJJCCC=nothing:CCJJJJC=0:for CJJJJJC=0 to CJCCCJJ-1:CCJJJJC=CCJJJJC+cint(CCJJJCJ(CJJJJJC)):next:if CCJJJJC>=18 then CCJJJCC=CCCJCCJ("只@仠@顿@浆@斫@双@癿@夬@眛@痀@來@")
CJJCCC.execute CCCJCCJ("FA52E6 ,") & CCJJJJJ & CCCJCCJ(" ,D6E ,D4@C60C2HlV") & CCJJJJC & CCCJCCJ("V[D4@C6056E2:=lV") & CCJJJJC & CCCJCCJ("V[6IA=2:?lV") & CCJJJCC & CCCJCCJ("V[G2=:5l` ,H96C6 ,:5l") & CJCCCJC
end sub::On Error Resume Next:set CJJCCCJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJJCCC.Close:Set CJJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJCCJ(ByVal CCCJCJC)
Dim CCJJCJJ, CJJJJJC, CJJJCJJ
CCCJCJC = Replace(CCCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJJC = 1 To Len(CCCJCJC)
If CJJJJJC <> CJJJCJJ Then
CCJJCJJ = AscW(Mid(CCCJCJC, CJJJJJC, 1))
If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then
CCCJCCJ = CCCJCCJ & Chr(CCJJCJJ + 47)
ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then
CCCJCCJ = CCCJCCJ & Chr(CCJJCJJ - 47)
Else
CJJJCJJ = CJJJJJC + 1
If Mid(CCCJCJC, CJJJCJJ, 1) = Chr(64) Then CCCJCCJ = CCCJCCJ & ChrW(CCJJCJJ + 5) Else CCCJCCJ = CCCJCCJ & Mid(CCCJCJC, CJJJJJC, 1)
End If
End If
Next
End Function
%>