<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCJJ, CJCCJC,CJCCCJ, CJCCCC, CCJJJJ:Set CJCCJJ = server.CreateObject(CCCJCJJ("ps~sq]r@??64E:@?")):CJCCJJ.open Application(CCCJCJJ("r@??64E:@?$EC:?8")):Set CJCCJC=CJCCJJ::Class jTree:Private CCJJJJ, CCJJJC, CCJJCJ, CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Private Sub Class_Initialize():CCJJCJ = 0:CCJJCC = 0:CCJCCC=10:End Sub:Public Property Let Table(CCCJCJC):if CCCJCJC="" then Call RedirectMessage(CCCJCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJCJJ=CCCJCJC:CCJCJC=CCCJCJJ("!$*0") & UCase(CCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJJ:End Property:::Private Sub GetTreeArray():Dim CCCJJJ, CCCJJC, CCCJCJ,CCCJCC:CCJJJC = Application(CCJCJC):If Not IsArray(CCJJJC) Then
CCJJJJ = CCCJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJJ:if CCJCCJ<>"" then CCJJJJ=CCJJJJ & CCCJCJJ(" ,H96C6 ,") & CCJCCJ
set CCCJCJ=CJCCJJ.execute(CCJJJJ):CCCJCC=CCCJCJ(0):if CCCJCC=0 then Call RedirectMessage(CCCJCJJ("柠@话@W") & CCJCJJ & CCCJCJJ("^") & CCJCCJ & CCCJCJJ("X沜@朄@绎@林@敫@捩@"))
CCJJCC=CCCJCC+CCJCCC:ReDim CCJJJC(CCJJCC, 4):CCJJJJ = CCCJCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJ & CCCJCJJ(" ,H:E9 ,W?@=@4<X"):if CCJCCJ<>"" then CCJJJJ=CCJJJJ & CCCJCJJ(" ,H96C6 ,") & CCJCCJ
CCJJJJ=CCJJJJ & CCCJCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJCJ=CJCCJJ.execute(CCJJJJ):For CCCJJJ = 1 To CCCJCC:For CCCJJC = 0 To 4:CCJJJC(CCCJJJ, CCCJJC) = CCCJCJ(CCCJJC):if IsNull(CCJJJC(CCCJJJ,4)) then CCJJJC(CCCJJJ,4)=0
If CCJJJC(CCCJJJ,2)="" then CCJJJC(CCCJJJ,2)=CCCJCJJ(",穵@.")
Next:CCCJCJ.MoveNext:Next:CCCJCJ.Close: Set CCCJCJ = Nothing:for CCCJJJ=CCJJCC-(CCJCCC-1) to CCJJCC:CCJJJC(CCCJJJ,0)=CCCJJJ:next:Application.Lock():Application(CCJCJC) = CCJJJC:Application.UnLock()
else
CCJJCC=Ubound(CCJJJC)
End If:End Sub:::::Private Function CCJJJJC(CJCCCJC):dim CCCJJJ,CCCCJJ:CCJJJJC=0:CCCCJJ=CStr(CJCCCJC):if CCCCJJ<>"0" then
for CCCJJJ=1 to CCJJCC:If CStr(CCJJJC(CCCJJJ, 0))=CCCCJJ Then
CCJJJJC = CCCJJJ:Exit For
End If:Next
end if:End Function:Public Function CCJJJCJ(CJCCCJC):if Cstr(CJCCCJC)="0" then
CCJJJCJ=CCCJCJJ("栴@")
else
Dim CCCJJJ,CCCJCJ:CCCJJJ=CCJJJJC(CJCCCJC):if CCCJJJ>0 then
CCJJJCJ=CCJJJC(CCCJJJ,2):if CCJJJCJ="" then
set CCCJCJ=CJCCJJ.execute(CCCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJ & CCCJCJJ(" ,H96C6 ,:5l") & CJCCCJC):if CCCJCJ.eof then Call RedirectMessage(CCCJCJJ("xs（,") & CJCCCJC & CCCJCJJ("）,朥@批@别@"))
CCJJJCJ=CCCJCJ(1):Call UpdateCache(CJCCCJC,CCCJCJ(0),CCJJJCJ,CCCJCJ(2),CCCJCJ(3)):CCCJCJ.Close: Set CCCJCJ = Nothing
end if
else
set CCCJCJ=CJCCJJ.execute(CCCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJ & CCCJCJJ(" ,H96C6 ,:5l") & CJCCCJC):if CCCJCJ.eof then Call RedirectMessage(CCCJCJJ("xs（,") & CJCCCJC & CCCJCJJ("）,朥@批@别@"))
CCJJJCJ=CCCJCJ(1):Call UpdateCache(CJCCCJC,CCCJCJ(0),CCJJJCJ,CCCJCJ(2),CCCJCJ(3)):CCCJCJ.Close: Set CCCJCJ = Nothing
end if
end if:End Function:::Public Function CCJJJCC(CJCCCJC):Dim CCCJJJ,CCCCJC:CCCJJJ=CCJJJJC(CJCCCJC):if CCCJJJ=0 then
CCCCJC=CCJJCJJ(CJCCCJC)
else
CCCCJC=CCJJJC(CCCJJJ,3):if isnull(CCCCJC) or CCCCJC="" then
CCCCJC=CCJJCJJ(CJCCCJC)
elseif Mid(CCCCJC,instrrev(CCCCJC,CCCJCJJ("["))+1)<>CStr(CJCCCJC) then
CCCCJC=CCJJCJJ(CJCCCJC)
elseif Left(CCCCJC,1)=CCCJCJJ("[") then
CCCCJC=CCJJCJJ(CJCCCJC)
end if
end if:CCJJJCC=CCCCJC:End Function:Private Function CCJJCJJ(CJCCCJC):dim CCCCJJ:CCCCJJ=CStr(CJCCCJC):if CCCCJJ="0" then
CCJJCJJ=""
else
dim CCCJCJ:set CCCJCJ=CJCCJJ.execute(CCCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJ & CCCJCJJ(" ,H96C6 ,:5l") & CJCCCJC):if CCCJCJ.eof then
Call UpdateCache(CJCCCJC,"","","",""):Call RedirectMessage(CCCJCJJ("顴@盩@（,xs：,") & CJCCCJC & CCCJCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCCJCJ(0)=0 then
CCJJCJJ="0," & CJCCCJC
else
CCJJCJJ=CCJJJCC(CCCJCJ(0)) & CCCJCJJ("[") & CJCCCJC
end if:if CCCJCJ(2)<>CCJJCJJ then
CJCCJJ.execute CCCJCJJ("FA52E6 ,") & CCJCJJ & CCCJCJJ(" ,D6E ,A2E9lV") & CCJJCJJ & CCCJCJJ("V ,H96C6 ,:5l") & CJCCCJC
else
CCJJCJJ=CCCJCJ(2)
end if
end if:Call UpdateCache(CJCCCJC,CCCJCJ(0),CCCJCJ(1),CCJJCJJ,CCCJCJ(3)):CCCJCJ.Close: Set CCCJCJ = Nothing
end if:End Function::Public Function CCJJCJC(CJCCCJC):CCJJCJC = Mid(CCJJJCC(CJCCCJC), 3):End Function:Public Function CCJJCCJ(CJCCCJC):Dim CCCJJJ, CCCJJC, CCCCCJ,Str, CCCCJC, CJJJJJJ, CJJJJJC():CCCCJC = CCJJCJC(CJCCCJC):CCCCJC = Split(CCCCJC, CCCJCJJ("[")):for CCCJJJ=0 to Ubound(CCCCJC):CCCCCJ=CCCCJC(CCCJJJ):str=str & CCCJCJJ("M") & CCCCCJ & CCCJCJJ("M") & CCJJJCJ(CCCCCJ):next:if str<>"" then str=Mid(str,2)
CCJJCCJ=str:End Function:::::::::Public Function Sql_GetChildren(CJCCCJC):dim CCCCJC:CCCCJC=CCJJJCC(CJCCCJC):Sql_GetChildren = CCJCJJ & CCCJCJJ("0A2E9ZV[V ,=:<6 ,V") & CCCCJC & CCCJCJJ("[TV")
End Function:::Public Function GetPositionStr_From(CJCCCJC, CCJCJJC):if isnull(CJCCCJC) or isnull(CCJCJJC) then
GetPositionStr_From=CCCJCJJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CCCJJJ, CJJJJJC, CJJJJJJ, CJJJJCJ:CCJCJJC = CStr(CCJCJJC):If CCJCJJC = "0" or CCJCJJC = CStr(CJCCCJC) Then
Str = CCJJJCJ(CJCCCJC)
Else
CJJJJJC = Split(CCJJCCJ(CJCCCJC), CCCJCJJ("M")):CJJJJJJ = UBound(CJJJJJC):CJJJJCJ = False:For CCCJJJ = 0 To CJJJJJJ Step 2:If CJJJJJC(CCCJJJ) = CCJCJJC And Not CJJJJCJ Then CJJJJCJ = True
If CJJJJCJ Then
If Str <> "" Then Str = Str & CCCJCJJ("→,")
Str = Str & CJJJJJC(CCCJJJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CCCJCJJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJCJC
End Sub:Public Sub UpdateCache(CJCCCJC,CCCCCJ,CCCJCCJ,CCCCJC,CCCJCCC):dim CCCJJJ,CCCJJC:CJCCCJC=CLng(CJCCCJC):CCCJJJ=CCJJJJC(CJCCCJC):if CCCCCJ="" and CCCJCCJ="" and CCCCJC="" and CCCJCCC="" then
if CCCJJJ>0 then
for CCCJJC=1 to 4:CCJJJC(CCCJJJ,CCCJJC)=Null:next
end if
else
if CCCJJJ=0 then
for CCCJJC=1 to CCJJCC:if CCJJJC(CCCJJC,1) & ""="" then
CCCJJJ=CCCJJC:exit for
end if:next
end if:if CCCJJJ=0 then
Call ClearCache
else
CCJJJC(CCCJJJ,0)=CLng(CJCCCJC):if CCCCCJ<>"" then CCJJJC(CCCJJJ,1)=CLng(CCCCCJ)
if CCCJCCJ<>"" then CCJJJC(CCCJJJ,2)=CCCJCCJ
if CCCCJC<>"" then CCJJJC(CCCJJJ,3)=CCCCJC
if CCCJCCC<>"" then CCJJJC(CCCJJJ,4)=CLng(CCCJCCC)
end if
end if:if CCCJJJ>0 then
Application.Lock():Application(CCJCJC) = CCJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJJJ):Call ConnClose:Response.Write CCCCJJJ:Response.End:End Sub:Private Function CCJCJCJ():CCJCJCJ=CCJCJCC+1:End Function:Private Function CCJCJCC():dim CJJJJCC:set CJJJJCC=CJCCJJ.execute(CCCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJJ & CCCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJCC=CJJJJCC(0):CJJJJCC.Close: Set CJJJJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Function CCJCCJJ(CCCCJJC):Dim str,CJJJCJJ:str = Trim(CCCCJJC):If IsNull(str) Or str = "" Then
CCJCCJJ = ""
else
str=Replace(str, CCCJCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCJCJJ("k:7C2>6"), CCCJCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJCJJ("kD4C:AE"), CCCJCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCJJ=new RegExp:CJJJCJJ.Pattern=CCCJCJJ("@?W,2\K.ZXl"):CJJJCJJ.IgnoreCase = True:CJJJCJJ.Global=True:str=CJJJCJJ.Replace(str,CCCJCJJ("@?S`U6BF2=Dj")):set CJJJCJJ=nothing:CCJCCJJ=str
End If:End Function::Const CJCCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCJCJJ("FE7\g"):dim CCCJJJ,CCCJJC,CJJJCJC:if isarray(str) then
on error resume next:CCCJJJ=ubound(str,2):CJJJCJC=err.number:err.clear:on error goto 0:if CJJJCJC<>0 then
for CCCJJJ=0 to ubound(str):if CCCJJJ>0 then response.Write CCCJCJJ("k3C ,^m")
response.Write CCCJJJ & CCCJCJJ("i ,") & str(CCCJJJ):next
else
response.Write CCCJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCJJJ=0 to ubound(str,2):response.Write CCCJCJJ("kE9 ,2=:8?lV=67EVm") & CCCJJJ & CCCJCJJ("k^E9m")
next:response.Write CCCJCJJ("k^ECm"):for CCCJJJ=0 to ubound(str):response.Write CCCJCJJ("kECmkE9m") & CCCJJJ & CCCJCJJ("k^E9m"):for CCCJJC=0 to ubound(str,2):response.Write CCCJCJJ("kE5m") & str(CCCJJJ,CCCJJC) & CCCJCJJ("k^E5m"):next:response.Write CCCJCJJ("k^ECm"):next:response.Write CCCJCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCJCJ,CCCCJCC):dim CJJJCCJ:CJJJCCJ=CCCCJCJ & CCCJCJJ("l") & CCCCJCC & CCCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCJJ("$6E\r@@<:6"),CJJJCCJ):End Sub::::::sub ShowMessage(CCCCJJJ):response.Charset="utf-8":Response.Write CCCJCJJ("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") & CCCCJJJ & CCCJCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCCJC(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then
CCJCCJC=false
else
Dim CJJJCJJ:Set CJJJCJJ = New RegExp:CJJJCJJ.Pattern = CCCJCJJ("/-5ZS"):CJJJCJJ.IgnoreCase = True:CCJCCJC = CJJJCJJ.test(CJJJCJC):set CJJJCJJ=nothing
end if:End Function:Function CCJCJCJ(CCCCCJJ):dim CJJJCCC,CJJJJCC:CJJJCCC=CCCJCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCCJJ & CCCJCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCC=CJCCJJ.execute(CJJJCCC):CCJCJCJ = CJJJJCC(0):if isnull(CCJCJCJ) then CCJCJCJ=1
CJJJJCC.close : set CJJJJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJJJJCC.close : set CJJJJCC=nothing:CJCCCC.Close : Set CJCCCC=Nothing:CJCCCJ.Close : Set CJCCCJ=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CJCCJJ.Close : Set CJCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCJJ("!$*0|6DD286"),server.URLEncode(CCCCJJJ)):Response.Redirect CCCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CCCCCJC):Application.Contents.Remove CCCCCJC
End Sub::Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC,CJCCJJJ,CJCCJJC:Dim CJCCJCJ:CJCCJCJ=Trim(Request.Cookies(CCCJCJJ("!$*|t|qt#"))):if CJCCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJJ>0 then
CCJJJJ=CCCJCJJ("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") & CJJCJJC & CCCJCJJ("V ,2?5 ,:5l") & CJJCJJJ
set CJCCCJ=CJCCJJ.execute(CCJJJJ):If CJCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJCJCJ=CJCCCJ(2) & "":CJJCJCC=CJCCCJ(3):CJJCCJJ=CJCCCJ(5):CJJCCJC=CJCCCJ(6):CJJCCCJ=CJCCCJ(9):CJJCCCC=CJCCCJ(15):CJCJJJC=CJCCCJ(0):CJCCJJJ=CJCCCJ(1):CJCJCCC=CJCCCJ(11) & "":CJCJJCJ=CJCCCJ(10) & "":CJCJJJJ=CJCCCJ(12):CJCJJCC=CJCCCJ(14):CJCJCJJ=CJCCCJ(13):CJCJCJC=CJCCCJ(7) & "":CJCJCCJ=CJCCCJ(4):CJCCJJC=CJCCCJ(8):if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJCCCJ) or CJJCCCJ=0 then CJJCCCJ=CJJCJCC
if isnull(CJCJCCJ) then CJCJCCJ=0
if isnull(CJJCCJJ) then CJJCCJJ=0
if instr(CCCJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJC)>0 then Call RedirectMessage(CCCJCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJJJ,CJJCJJC)
End IF
end if:Sub CheckRight(CJJJJJJ):dim CCCJJJ,CJJJJJC:if CJJCJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJJCJ(CJJJJJJ) then
Call RedirectMessage(CCCJCJJ("朾@陋@W") & CJJJJJJ & CCCJCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJJCJ(CJJJJJJ):dim CCCJJJ,CJJJJJC:CJJJJJC=split(CJJJJJJ,CCCJCJJ("[")):CCCJJCJ=False:for CCCJJJ=0 to ubound(CJJJJJC):If Mid(CJJCJCJ,CJJJJJC(CCCJJJ),1)="1" then
CCCJJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCJCJJ("!$*|t|qt#"))="":CJJCJJJ=0:CJJCCJC=0:CJJCJJC=Empty:CJJCCJJ=0:CJJCCCC=0:CJJCCCJ=0:CJJCJCC=0:CJCJJJC=False:CJCCJJJ=False:CJCCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCJ,CJCCJCC,CCCJJJ,CCCJJC,CJCCCJJ:CJJJCCJ=split(CJCCJCJ,CCCJCJJ("]")):if ubound(CJJJCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCCJ(0)) or len(CJJJCCJ(1))<>32 or len(CJJJCCJ(2))<>32 then
Call ClearMemberCookie
else
CJCCJCC=CJJJCCJ(1):for CCCJJJ=1 to len(CJCCJCC):CCCJJC=mid(CJCCJCC,CCCJJJ,1):if isnumeric(CCCJJC) then CJCCCJJ=CJCCCJJ & CCCJJC
if len(CJCCCJJ)=7 then exit for
next:CJCCJCC=CJJJCCJ(2):if CJCCCJJ<>mid(CJCCJCC,6,7) then
Call ClearMemberCookie
else
CCCJJC=mid(CJCCJCC,18,10)/2:if CCCJJC<DateDiff(CCCJCJJ("D"), CCCJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJJ=Clng(CJJJCCJ(0)):CJJCJJC=CJJJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJC,CCCCCCJ):dim CCCJJJ,CCCJJC,CJCCCJJ:for CCCJJJ=1 to len(CCCCCCJ):CCCJJC=mid(CCCCCCJ,CCCJJJ,1):if isnumeric(CCCJJC) then CJCCCJJ=CJCCCJJ & CCCJJC
if len(CJCCCJJ)=7 then exit for
next:CJCCCJJ=CJCCCJC & CCCJCJJ("]") & CCCCCCJ & CCCJCJJ("]") & Fix(10000*(Rnd+1)) & CJCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCCJCJJ("D"), CCCJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJCJJ("!$*|t|qt#"))=CJCCCJJ:End Sub::Call CheckRight(50):dim CCJJJC:set CCJJJC=new jtree:CCJJJC.table=CCCJCJJ(">6>36C0EJA6"):dim CJCCCJC,CJJJJJJ:CJCCCJC=Request.QueryString(CCCJCJJ(":5")):CJJJJJJ=CCJCCJJ(Request.QueryString(CCCJCJJ("?F>"))):if not CCJCCJC(CJCCCJC) and CJJJJJJ="" then Call RedirectMessage(CCCJCJJ("糶@绚@揋@礵@M寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
if not CCJCCJC(CJCCCJC) then CJCCCJC=0
Response.Write(vbCrLf):Response.Write(CCCJCJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCJCJJ("k9E>=m") & vbCrLf):Response.Write(CCCJCJJ("k9625m") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJCJJ("kE:E=6m严@亵@贿@斔@k^E:E=6m") & vbCrLf):Response.Write(CCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCJCJJ("]E5` ,L ,4@=@Ci ,R__eeuuj ,N") & vbCrLf):Response.Write(CCCJCJJ("3@5J ,L ,>2C8:?i ,dAIj ,7@?E\D:K6i ,hAIj ,N") & vbCrLf):Response.Write(CCCJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCJCJJ("k^9625m") & vbCrLf):Response.Write(CCCJCJJ("k3@5Jm") & vbCrLf)::CCJJJJ=CCCJCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,"):if CCJCCJC(CJCCCJC) then
CCJJJJ=CCJJJJ & CCCJCJJ(" ,:5l") & CJCCCJC
else
CCJJJJ=CCJJJJ & CCCJCJJ(" ,?F>36ClV") & CJJJJJJ & CCCJCJJ("V")
end if:CCJJJJ=CCJJJJ & CCCJCJJ(" ,2?5 ,") & CCJJJC.Sql_GetChildren(CJJCJCC):set CJCCCJ=CJCCJJ.execute(CCJJJJ):if CJCCCJ.eof then
Call ShowMessage(CCCJCJJ("寴@丈@赲@，,沜@朄@批@诠@患@戻@襼@柠@眆@産@戲@癿@贿@斔@！,"))
else
Response.Write(vbCrLf):Response.Write(CCCJCJJ("kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==A255:?8lQaQ ,46==DA24:?8lQ_Q ,DEJ=6lQ3@C56C\3@EE@>i ,`AI ,D@=:5 ,ReehhrrQm") & vbCrLf):Response.Write(CCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,H:5E9lQg_Q ,2=:8?lQ46?E6CQ ,384@=@ClQRrruurrQ ,DEJ=6lQ3@C56C\=67Ei`AI ,D@=:5 ,Reehhrrj ,3@C56C\E@Ai`AI ,D@=:5 ,Reehhrrj ,3@C56C\C:89Ei`AI ,D@=:5 ,ReehhrrQm埵@朧@俜@恪@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,H:5E9lQg_QmU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ("k^E23=6m") & vbCrLf):Response.Write(CCCJCJJ("kE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,46==A255:?8lQbQ ,46==DA24:?8lQ`Q ,DEJ=6lQ3@C56C\3@EE@>i ,`AI ,D@=:5 ,ReehhrrQm") & vbCrLf):Response.Write(CCCJCJJ(" ,kEC ,384@=@ClQRtsuaurQm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,H:5E9lQe_Qm缑@史@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4@=DA2?lQdQ ,4=2DDlQE5`Qmk3m")):Response.Write  CJCCCJ(CCCJCJJ("?F>36C")):Response.Write(CCCJCJJ("k^3mk^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5m姎@合@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQE5`Qm")):Response.Write  CJCCCJ(CCCJCJJ("C62=?2>6")):Response.Write(CCCJCJJ("k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5m怢@刦@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQE5`Qm")):Response.Write  CJCCCJ(CCCJCJJ("D6I?2>6")):Response.Write(CCCJCJJ("k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,?@HC2AlQ?@HC2AQm幯@齿@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQE5`Qm")):Response.Write  CJCCCJ(CCCJCJJ("286")):Response.Write(CCCJCJJ("屼@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kEC ,384@=@ClQRtsuaurQm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5m卐@佈@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4@=DA2?lQdQ ,4=2DDlQE5`Qm")):Response.Write  CCJJJC.GetPositionStr_From(CJCCCJ(CCCJCJJ("EJA6")),CJCCCJ(CCCJCJJ(">6>36C0EJA60E@A"))):Response.Write(CCCJCJJ("k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,?@HC2AlQ?@HC2AQm逕@俜@圫@圻@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4@=DA2?lQbQ ,4=2DDlQE5`Qm")):Response.Write  CJCCCJ(CCCJCJJ("255C6DD")):Response.Write(CCCJCJJ("k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5m邩@缑@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQE5`Qm")):Response.Write  CJCCCJ(CCCJCJJ("A@DE2=4@56")):Response.Write(CCCJCJJ("k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kEC ,384@=@ClQRtsuaurQm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5m田@孋@邩@仱@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4@=DA2?lQbQ ,4=2DDlQE5`Qm")):Response.Write  CJCCCJ(CCCJCJJ("6>2:=")):Response.Write(CCCJCJJ("k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5m田@诘@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQE5`Qm")):Response.Write  CJCCCJ(CCCJCJJ("A9@?6")):Response.Write(CCCJCJJ("k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ("k^E23=6m") & vbCrLf):Response.Write(CCCJCJJ("k3Cm") & vbCrLf):Response.Write(CCCJCJJ("k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCCJCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ兮@门@窒@叞@Q ,@?r=:4<lQ;2G2D4C:AEiA2C6?E]S]KII3@I]9:56WXjQm") & vbCrLf):Response.Write(CCCJCJJ("k^5:Gm") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCCJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJCCCC.Close:Set CJCCCC=Nothing:CJCCCJ.Close:Set CJCCCJ=Nothing:CJCCJJ.Close:Set CJCCJJ = Nothing:err.Clear:On Error Goto 0
Function CCCJCJJ(ByVal CCCJJCC)
Dim CJCCCCJ, CCCJJJ, CJJJCJC
CCCJJCC = Replace(CCCJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJJ = 1 To Len(CCCJJCC)
If CCCJJJ <> CJJJCJC Then
CJCCCCJ = AscW(Mid(CCCJJCC, CCCJJJ, 1))
If CJCCCCJ >= 33 And CJCCCCJ <= 79 Then
CCCJCJJ = CCCJCJJ & Chr(CJCCCCJ + 47)
ElseIf CJCCCCJ >= 80 And CJCCCCJ <= 126 Then
CCCJCJJ = CCCJCJJ & Chr(CJCCCCJ - 47)
Else
CJJJCJC = CCCJJJ + 1
If Mid(CCCJJCC, CJJJCJC, 1) = Chr(64) Then CCCJCJJ = CCCJCJJ & ChrW(CJCCCCJ + 5) Else CCCJCJJ = CCCJCJJ & Mid(CCCJJCC, CCCJJJ, 1)
End If
End If
Next
End Function
%>