<%
Class jTree:Private CCCCCC, CJJJJJJ, CJJJJJC, CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Private Sub Class_Initialize():CJJJJJC = 0:CJJJJCJ = 0:CJJJCCJ=10:End Sub:Public Property Let CJJCCCC(CJCJCCJ):if CJCJCCJ="" then Call RedirectMessage(CJCJCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJJCC=CJCJCCJ:CJJJCJJ=CJCJCJC("!$*0") & UCase(CJJJJCC):Call GetTreeArray:End Property:Public Property Get CJJCCCC():CJJCCCC=CJJJJCC:End Property:::Private Sub GetTreeArray():Dim CJJJCCC, CJJCJJJ, CJJCJJC,CJJCJCJ:CJJJJJJ = Application(CJJJCJJ):If Not IsArray(CJJJJJJ) Then
CCCCCC = CJCJCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJCC:if CJJJCJC<>"" then CCCCCC=CCCCCC & CJCJCJC(" ,H96C6 ,") & CJJJCJC
set CJJCJJC=con.execute(CCCCCC):CJJCJCJ=CJJCJJC(0):if CJJCJCJ=0 then Call RedirectMessage(CJCJCJC("柠@话@W") & CJJJJCC & CJCJCJC("^") & CJJJCJC & CJCJCJC("X沜@朄@绎@林@敫@捩@"))
CJJJJCJ=CJJCJCJ+CJJJCCJ:ReDim CJJJJJJ(CJJJJCJ, 4):CCCCCC = CJCJCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCC & CJCJCJC(" ,H:E9 ,W?@=@4<X"):if CJJJCJC<>"" then CCCCCC=CCCCCC & CJCJCJC(" ,H96C6 ,") & CJJJCJC
CCCCCC=CCCCCC & CJCJCJC(" ,@C56C ,3J ,D@CE[:5"):set CJJCJJC=con.execute(CCCCCC):For CJJJCCC = 1 To CJJCJCJ:For CJJCJJJ = 0 To 4:CJJJJJJ(CJJJCCC, CJJCJJJ) = CJJCJJC(CJJCJJJ):if IsNull(CJJJJJJ(CJJJCCC,4)) then CJJJJJJ(CJJJCCC,4)=0
If CJJJJJJ(CJJJCCC,2)="" then CJJJJJJ(CJJJCCC,2)=CJCJCJC(",穵@.")
Next:CJJCJJC.MoveNext:Next:CJJCJJC.Close: Set CJJCJJC = Nothing:for CJJJCCC=CJJJJCJ-(CJJJCCJ-1) to CJJJJCJ:CJJJJJJ(CJJJCCC,0)=CJJJCCC:next:Application.Lock():Application(CJJJCJJ) = CJJJJJJ:Application.UnLock()
else
CJJJJCJ=Ubound(CJJJJJJ)
End If:End Sub:::::Private Function CJCJJJJ(CJCJJCC):dim CJJJCCC,CJJCJCC:CJCJJJJ=0:CJJCJCC=CStr(CJCJJCC):if CJJCJCC<>"0" then
for CJJJCCC=1 to CJJJJCJ:If CStr(CJJJJJJ(CJJJCCC, 0))=CJJCJCC Then
CJCJJJJ = CJJJCCC:Exit For
End If:Next
end if:End Function::::Public Function CJCJJJC(CJCJJCC):Dim CJJJCCC,CJJCCJJ:CJJJCCC=CJCJJJJ(CJCJJCC):if CJJJCCC=0 then
CJJCCJJ=CJCJJCJ(CJCJJCC)
else
CJJCCJJ=CJJJJJJ(CJJJCCC,3):if isnull(CJJCCJJ) or CJJCCJJ="" then
CJJCCJJ=CJCJJCJ(CJCJJCC)
elseif Mid(CJJCCJJ,instrrev(CJJCCJJ,CJCJCJC("["))+1)<>CStr(CJCJJCC) then
CJJCCJJ=CJCJJCJ(CJCJJCC)
elseif Left(CJJCCJJ,1)=CJCJCJC("[") then
CJJCCJJ=CJCJJCJ(CJCJJCC)
end if
end if:CJCJJJC=CJJCCJJ:End Function:Private Function CJCJJCJ(CJCJJCC):dim CJJCJCC:CJJCJCC=CStr(CJCJJCC):if CJJCJCC="0" then
CJCJJCJ=""
else
dim CJJCJJC:set CJJCJJC=con.execute(CJCJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCC & CJCJCJC(" ,H96C6 ,:5l") & CJCJJCC):if CJJCJJC.eof then
Call UpdateCache(CJCJJCC,"","","",""):Call RedirectMessage(CJCJCJC("顴@盩@（,xs：,") & CJCJJCC & CJCJCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJCJJC(0)=0 then
CJCJJCJ="0," & CJCJJCC
else
CJCJJCJ=CJCJJJC(CJJCJJC(0)) & CJCJCJC("[") & CJCJJCC
end if:if CJJCJJC(2)<>CJCJJCJ then
con.execute CJCJCJC("FA52E6 ,") & CJJJJCC & CJCJCJC(" ,D6E ,A2E9lV") & CJCJJCJ & CJCJCJC("V ,H96C6 ,:5l") & CJCJJCC
else
CJCJJCJ=CJJCJJC(2)
end if
end if:Call UpdateCache(CJCJJCC,CJJCJJC(0),CJJCJJC(1),CJCJJCJ,CJJCJJC(3)):CJJCJJC.Close: Set CJJCJJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJCJJ
End Sub:Public Sub UpdateCache(CJCJJCC,CJCJCCC,CJCCJJJ,CJJCCJJ,CJCCJJC):dim CJJJCCC,CJJCJJJ:CJCJJCC=CLng(CJCJJCC):CJJJCCC=CJCJJJJ(CJCJJCC):if CJCJCCC="" and CJCCJJJ="" and CJJCCJJ="" and CJCCJJC="" then
if CJJJCCC>0 then
for CJJCJJJ=1 to 4:CJJJJJJ(CJJJCCC,CJJCJJJ)=Null:next
end if
else
if CJJJCCC=0 then
for CJJCJJJ=1 to CJJJJCJ:if CJJJJJJ(CJJCJJJ,1) & ""="" then
CJJJCCC=CJJCJJJ:exit for
end if:next
end if:if CJJJCCC=0 then
Call ClearCache
else
CJJJJJJ(CJJJCCC,0)=CLng(CJCJJCC):if CJCJCCC<>"" then CJJJJJJ(CJJJCCC,1)=CLng(CJCJCCC)
if CJCCJJJ<>"" then CJJJJJJ(CJJJCCC,2)=CJCCJJJ
if CJJCCJJ<>"" then CJJJJJJ(CJJJCCC,3)=CJJCCJJ
if CJCCJJC<>"" then CJJJJJJ(CJJJCCC,4)=CLng(CJCCJJC)
end if
end if:if CJJJCCC>0 then
Application.Lock():Application(CJJJCJJ) = CJJJJJJ:Application.UnLock()
end if:End Sub::::Private Sub Class_Terminate():End Sub:End Class:Response.Write(vbCrLf)
Function CJCJCJC(ByVal CJCJCJJ)
Dim CJJCCJC, CJJJCCC, CJJCCCJ
CJCJCJJ = Replace(CJCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCC = 1 To Len(CJCJCJJ)
If CJJJCCC <> CJJCCCJ Then
CJJCCJC = AscW(Mid(CJCJCJJ, CJJJCCC, 1))
If CJJCCJC >= 33 And CJJCCJC <= 79 Then
CJCJCJC = CJCJCJC & Chr(CJJCCJC + 47)
ElseIf CJJCCJC >= 80 And CJJCCJC <= 126 Then
CJCJCJC = CJCJCJC & Chr(CJJCCJC - 47)
Else
CJJCCCJ = CJJJCCC + 1
If Mid(CJCJCJJ, CJJCCCJ, 1) = Chr(64) Then CJCJCJC = CJCJCJC & ChrW(CJJCCJC + 5) Else CJCJCJC = CJCJCJC & Mid(CJCJCJJ, CJJJCCC, 1)
End If
End If
Next
End Function
%>