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