Edit D:\xinhaisoft\crisis_new\jiaowei\index.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCCJ, CCJCCC,CCCJJJ, CCCJJC, CCCJCJ:Set CCJCCJ = server.CreateObject(CJJJCCJC("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CJJJCCJC("r@??64E:@?$EC:?8")):Set CCJCCC=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CJJJCCJC("!$*|t|qt#"))):if CJJCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJCC>0 then
CCCJCJ=CJJJCCJC("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") & CCCCJJ & CJJJCCJC("V ,2?5 ,:5l") & CCCJCC
set CCCJJJ=CCJCCJ.execute(CCCJCJ):If CCCJJJ.EOF Then
Call ClearMemberCookie
Else
CCCCJC=CCCJJJ(2) & "":CCCCCJ=CCCJJJ(3):CCCCCC=CCCJJJ(5):CJJJJJJ=CCCJJJ(6):CJJJJJC=CCCJJJ(9):CJJJJCJ=CCCJJJ(15):CJJJCJJ=CCCJJJ(0):CJJCJCC=CCCJJJ(1):CJJCJCJ=CCCJJJ(11) & "":CJJJCJC=CCCJJJ(10) & "":CJJJJCC=CCCJJJ(12):CJJJCCJ=CCCJJJ(14):CJJJCCC=CCCJJJ(13):CJJCJJJ=CCCJJJ(7) & "":CJJCJJC=CCCJJJ(4):CJJCCJJ=CCCJJJ(8):if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CJJJJJC) or CJJJJJC=0 then CJJJJJC=CCCCCJ
if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CCCCCC) then CCCCCC=0
if instr(CJJJCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJJ)>0 then Call RedirectMessage(CJJJCCJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJCC,CCCCJJ)
End IF
end if::Function CCCJCCC(CJJJCCCJ):dim CJJCCCJ,CJJCCCC:CJJCCCC=split(CJJJCCCJ,CJJJCCJC("[")):CCCJCCC=False:for CJJCCCJ=0 to ubound(CJJCCCC):If Mid(CCCCJC,CJJCCCC(CJJCCCJ),1)="1" then
CCCJCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCJC("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJJ,CJCJJJC,CJJCCCJ,CJCJJCJ,CJCJJCC:CJCJJJJ=split(CJJCCJC,CJJJCCJC("]")):if ubound(CJCJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJJJ(0)) or len(CJCJJJJ(1))<>32 or len(CJCJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJCJJJC=CJCJJJJ(1):for CJJCCCJ=1 to len(CJCJJJC):CJCJJCJ=mid(CJCJJJC,CJJCCCJ,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJJC=CJCJJJJ(2):if CJCJJCC<>mid(CJCJJJC,6,7) then
Call ClearMemberCookie
else
CJCJJCJ=mid(CJCJJJC,18,10)/2:if CJCJJCJ<DateDiff(CJJJCCJC("D"), CJJJCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJCC=Clng(CJCJJJJ(0)):CCCCJJ=CJCJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJCJCC,CJJJCCCC):dim CJJCCCJ,CJCJJCJ,CJCJJCC:for CJJCCCJ=1 to len(CJJJCCCC):CJCJJCJ=mid(CJJJCCCC,CJJCCCJ,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJCC=CJJJCJCC & CJJJCCJC("]") & CJJJCCCC & CJJJCCJC("]") & Fix(10000*(Rnd+1)) & CJCJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJC("D"), CJJJCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJC("!$*|t|qt#"))=CJCJJCC:End Sub:::Function IIf(CJJCJJJJ, CJJCJJJC, CJJCJJCJ):if isnull(CJJCJJJJ) or isempty(CJJCJJJJ) then
IIf = CJJCJJCJ
elseif CJJCJJJJ Then
IIf = CJJCJJJC
Else
IIf = CJJCJJCJ
end if:End Function:Const CCCJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJJCCCJ,CJCJJCJ,CJCJCJJ:if isarray(str) then
on error resume next:CJJCCCJ=ubound(str,2):CJCJCJJ=err.number:err.clear:on error goto 0:if CJCJCJJ<>0 then
for CJJCCCJ=0 to ubound(str):if CJJCCCJ>0 then response.Write CJJJCCJC("k3C ,^m")
response.Write CJJCCCJ & CJJJCCJC("i ,") & str(CJJCCCJ):next
else
response.Write CJJJCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCCJ=0 to ubound(str,2):response.Write CJJJCCJC("kE9 ,2=:8?lV=67EVm") & CJJCCCJ & CJJJCCJC("k^E9m")
next:response.Write CJJJCCJC("k^ECm"):for CJJCCCJ=0 to ubound(str):response.Write CJJJCCJC("kECmkE9m") & CJJCCCJ & CJJJCCJC("k^E9m"):for CJCJJCJ=0 to ubound(str,2):response.Write CJJJCCJC("kE5m") & str(CJJCCCJ,CJCJJCJ) & CJJJCCJC("k^E5m"):next:response.Write CJJJCCJC("k^ECm"):next:response.Write CJJJCCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCCJJC():Dim CJCJCJC, CJCJCCJ:CJCJCCJ = Request.ServerVariables(CJJJCCJC("!p%w0x}u~")):CJCJCJC = Request.ServerVariables(CJJJCCJC("""&t#*0$%#x}v")):If CJCJCJC <> Empty Then
if instr(lcase(CJCJCJC),CJJJCCJC("Tb4:7C2>6"))>0 or instr(lcase(CJCJCJC),CJJJCCJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJCCJC("????????,????????????????????????,??,??,"))
CJCJCCJ = CJCJCCJ & CJJJCCJC("n") & CJCJCJC
end if:CCCCJJC = CJCJCCJ:End Function:Sub SetHttpOnlyCookie(CJJCJCJJ,CJJCJCJC):dim CJCJJJJ:CJCJJJJ=CJJCJCJJ & CJJJCCJC("l") & CJJCJCJC & CJJJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJC("$6E\r@@<:6"),CJCJJJJ):End Sub:::Function CCCCJCJ(ByVal Str, ByVal StrLen):Dim CJCJCCC, CJCCJJJ, CJCCJJC, CJJCCCJ:if isnull(str) then
CCCCJCJ=""
else
CJCJCCC = Len(Str):CJCCJJJ = 0:For CJJCCCJ = 1 To CJCJCCC:CJCCJJC = AscW(Mid(Str, CJJCCCJ, 1)):If CJCCJJC < 0 Or CJCCJJC > 255 Then CJCCJJJ = CJCCJJJ + 2 Else CJCCJJJ = CJCCJJJ + 1
If CJCCJJJ >= StrLen Then
CCCCJCJ = Left(Str, CJJCCCJ) & CJJJCCJC("]]]"):Exit For
Else
CCCCJCJ = Str
End If:Next
end if:End Function::::Function CCCCJCC(CJCJCJJ):if isnull(CJCJCJJ) or trim(CJCJCJJ)="" or not isnumeric(CJCJCJJ) then
CCCCJCC=false
else
Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CJJJCCJC("/-5ZS"):CJCCJCJ.IgnoreCase = True:CCCCJCC = CJCCJCJ.test(CJCJCJJ):set CJCCJCJ=nothing
end if:End Function:Function CCCCCJJ(CJJCJCCJ):dim CJCCJCC,CJCCCJJ:CJCCJCC=CJJJCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCCJ & CJJJCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJJ=CCJCCJ.execute(CJCCJCC):CCCCCJJ = CJCCCJJ(0):if isnull(CCCCCJJ) then CCCCCJJ=1
CJCCCJJ.close : set CJCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:CJJJJJJJ.Close : Set CJJJJJJJ = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJC("!$*0|6DD286"),server.URLEncode(CJJCJCCC)):Response.Redirect CJJJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJJJJC(ByVal CJJJJJCJ,style):if not isdate(CJJJJJCJ) then
CJJJJJJC=CJJJJJCJ:exit function
end if:dim CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:CJJJJJCJ=cdate(CJJJJJCJ):CJCCCJC=Year(CJJJJJCJ):CJCCCCJ=Month(CJJJJJCJ):CJCCCCC=Day(CJJJJJCJ):select case style:case 0:CJJJJJJC=CJCCCJC & CJJJCCJC("\") & right(0 & CJCCCCJ,2) & CJJJCCJC("\") & right(0 & CJCCCCC,2):case 1:CJJJJJJC=CJCCCJC & right(0 & CJCCCCJ,2) & right(0 & CJCCCCC,2):case 2:CJJJJJJC=right(CJCCCJC,2) & CJJJCCJC("\") & right(0 & CJCCCCJ,2) & CJJJCCJC("\") & right(0 & CJCCCCC,2):case 3:CJJJJJJC=CJCCCJC & CJJJCCJC("\") & right(0 & CJCCCCJ,2):case 4:CJJJJJJC=right(0 & CJCCCCJ,2) & CJJJCCJC("\") & right(0 & CJCCCCC,2):case 5:CJJJJJJC=right(0 & CJCCCCC,2):case 6:CJJJJJJC=CJCCCJC & CJJJCCJC("??") & right(0 & CJCCCCJ,2) & CJJJCCJC("??") & right(0 & CJCCCCC,2) & CJJJCCJC("??"):case else
CJJJJJJC=CJJJJJCJ:end select:End Function:::::::Function CJJJJJCC(CCCJJJ):dim CJJCCCJ,CCJJJJC,CCJJJCJ,CJCJCJC,CCJJJCC:CCJJJCC=CCCJJJ.fields.count-1:do while not CCCJJJ.eof:CCJJJJC=CCJJJJC & CJJJCCJC("[L"):for CJJCCCJ=0 to CCJJJCC:CCJJJCJ=CCCJJJ(CJJCCCJ).value:if CJJCCCJ>0 then CCJJJJC=CCJJJJC & CJJJCCJC("[")
CCJJJJC=CCJJJJC & CJJJCCJC("Q") & CCCJJJ(CJJCCCJ).name & CJJJCCJC("Qi"):if isnull(CCJJJCJ) or CCJJJCJ="" then
CCJJJJC=CCJJJJC & CJJJCCJC("QQ")
elseif CCCJJJ(CJJCCCJ).type=11 then
CCJJJJC=CCJJJJC & IIf(CCJJJCJ,1,0)
elseif isnumeric(CCJJJCJ) and instr(CCJJJCJ,CJJJCCJC("["))=0 and len(CCJJJCJ)<7 then
CCJJJJC=CCJJJJC & CCJJJCJ
elseif lcase(CCJJJCJ)=CJJJCCJC("ECF6") then
CCJJJJC=CCJJJJC & CJJJCCJC("ECF6")
elseif lcase(CCJJJCJ)=CJJJCCJC("72=D6") then
CCJJJJC=CCJJJJC & CJJJCCJC("72=D6")
elseif isdate(CCJJJCJ) then
CCJJJJC=CCJJJJC & CJJJCCJC("Q") & replace(CCJJJCJ,CJJJCCJC("^"),CJJJCCJC("\")) & CJJJCCJC("Q")
else
CJCJCJC=CCJJJCJ:CJCJCJC=replace(CJCJCJC,vbcrlf,CJJJCCJC("-?")):CJCJCJC=replace(CJCJCJC,chr(9),""):CJCJCJC=replace(CJCJCJC,CJJJCCJC("Q"),CJJJCCJC("-Q")):CCJJJJC=CCJJJJC & CJJJCCJC("Q") & CJCJCJC & CJJJCCJC("Q")
end if:next:CCJJJJC=CCJJJJC & CJJJCCJC("N"):CCCJJJ.movenext:if CCCJJJ.eof then exit do
loop:if CCJJJJC<>"" then CCJJJJC=mid(CCJJJJC,2)
CJJJJJCC=CJJJCCJC(",") & CCJJJJC & CJJJCCJC("."):End Function:Function CJJJJCJJ(CCCJCJ):dim CJCCCJJ:set CJCCCJJ=CCJCCJ.execute(CCCJCJ):CJJJJCJJ=CJJJJJCC(CJCCCJJ):CJCCCJJ.close:set CJCCCJJ=nothing:End Function::::::::::::Sub ClearCache(CJJCCJJJ):Application.Contents.Remove CJJCCJJJ
End Sub::Class jTree:Private CCCJCJ, CCJJCJJ, CCJJCJC, CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:Private Sub Class_Initialize():CCJJCJC = 0:CCJJCCJ = 0:CCJCJCJ=10:End Sub:Public Property Let Table(value):if value="" then Call RedirectMessage(CJJJCCJC("????????,;%C66????????????????????@??????????,"))
CCJJCCC=value:CCJCJJJ=CJJJCCJC("!$*0") & UCase(CCJJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCCC:End Property::Public Property Get Count():Count=CCJJCCJ-CCJCJCJ:End Property:Private Sub GetTreeArray():Dim CJJCCCJ, CJCJJCJ, CCJCJCC,CCJCCJJ:CCJJCJJ = Application(CCJCJJJ):If Not IsArray(CCJJCJJ) Then
CCCJCJ = CJJJCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCCC:if CCJCJJC<>"" then CCCJCJ=CCCJCJ & CJJJCCJC(" ,H96C6 ,") & CCJCJJC
set CCJCJCC=CCJCCJ.execute(CCCJCJ):CCJCCJJ=CCJCJCC(0):if CCJCCJJ=0 then Call RedirectMessage(CJJJCCJC("????W") & CCJJCCC & CJJJCCJC("^") & CCJCJJC & CJJJCCJC("X????????????"))
CCJJCCJ=CCJCCJJ+CCJCJCJ:ReDim CCJJCJJ(CCJJCCJ, 4):CCCJCJ = CJJJCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H:E9 ,W?@=@4<X"):if CCJCJJC<>"" then CCCJCJ=CCCJCJ & CJJJCCJC(" ,H96C6 ,") & CCJCJJC
CCCJCJ=CCCJCJ & CJJJCCJC(" ,@C56C ,3J ,D@CE[:5"):set CCJCJCC=CCJCCJ.execute(CCCJCJ):For CJJCCCJ = 1 To CCJCCJJ:For CJCJJCJ = 0 To 4:CCJJCJJ(CJJCCCJ, CJCJJCJ) = CCJCJCC(CJCJJCJ):if IsNull(CCJJCJJ(CJJCCCJ,4)) then CCJJCJJ(CJJCCCJ,4)=0
If CCJJCJJ(CJJCCCJ,2)="" then CCJJCJJ(CJJCCCJ,2)=CJJJCCJC(",??.")
Next:CCJCJCC.MoveNext:Next:CCJCJCC.Close: Set CCJCJCC = Nothing:for CJJCCCJ=CCJJCCJ-(CCJCJCJ-1) to CCJJCCJ:CCJJCJJ(CJJCCCJ,0)=CJJCCCJ:next:Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
else
CCJJCCJ=Ubound(CCJJCJJ)
End If:End Sub:::::Private Function CJJJJCCC(CJJJCJCC):dim CJJCCCJ,CCJCCJC:CJJJJCCC=0:CCJCCJC=CStr(CJJJCJCC):if CCJCCJC<>"0" then
for CJJCCCJ=1 to CCJJCCJ:If CStr(CCJJCJJ(CJJCCCJ, 0))=CCJCCJC Then
CJJJJCCC = CJJCCCJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJCJCC):if Cstr(CJJJCJCC)="0" then
GetCurName=CJJJCCJC("??")
else
Dim CJJCCCJ,CCJCJCC:CJJCCCJ=CJJJJCCC(CJJJCJCC):if CJJCCCJ>0 then
GetCurName=CCJJCJJ(CJJCCCJ,2):if GetCurName="" then
set CCJCJCC=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJCJCC):if CCJCJCC.eof then Call RedirectMessage(CJJJCCJC("xs??,") & CJJJCJCC & CJJJCCJC("??,??????"))
GetCurName=CCJCJCC(1):Call UpdateCache(CJJJCJCC,CCJCJCC(0),GetCurName,CCJCJCC(2),CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if
else
set CCJCJCC=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJCJCC):if CCJCJCC.eof then Call RedirectMessage(CJJJCCJC("xs??,") & CJJJCJCC & CJJJCCJC("??,??????"))
GetCurName=CCJCJCC(1):Call UpdateCache(CJJJCJCC,CCJCJCC(0),GetCurName,CCJCJCC(2),CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if
end if:End Function:::Public Function CJJJCJJC(CJJJCJCC):Dim CJJCCCJ,CCJCCCJ:CJJCCCJ=CJJJJCCC(CJJJCJCC):if CJJCCCJ=0 then
CCJCCCJ=CJJJCJCJ(CJJJCJCC)
else
CCJCCCJ=CCJJCJJ(CJJCCCJ,3):if isnull(CCJCCCJ) or CCJCCCJ="" then
CCJCCCJ=CJJJCJCJ(CJJJCJCC)
elseif Mid(CCJCCCJ,instrrev(CCJCCCJ,CJJJCCJC("["))+1)<>CStr(CJJJCJCC) then
CCJCCCJ=CJJJCJCJ(CJJJCJCC)
elseif Left(CCJCCCJ,1)=CJJJCCJC("[") then
CCJCCCJ=CJJJCJCJ(CJJJCJCC)
end if
end if:CJJJCJJC=CCJCCCJ:End Function:Private Function CJJJCJCJ(CJJJCJCC):dim CCJCCJC:CCJCCJC=CStr(CJJJCJCC):if CCJCCJC="0" then
CJJJCJCJ=""
else
dim CCJCJCC:set CCJCJCC=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJCJCC):if CCJCJCC.eof then
Call UpdateCache(CJJJCJCC,"","","",""):Call RedirectMessage(CJJJCCJC("??????,xs??,") & CJJJCJCC & CJJJCCJC("??,????????,????????????????????,"))
else
if CCJCJCC(0)=0 then
CJJJCJCJ="0," & CJJJCJCC
else
CJJJCJCJ=CJJJCJJC(CCJCJCC(0)) & CJJJCCJC("[") & CJJJCJCC
end if:if CCJCJCC(2)<>CJJJCJCJ then
CCJCCJ.execute CJJJCCJC("FA52E6 ,") & CCJJCCC & CJJJCCJC(" ,D6E ,A2E9lV") & CJJJCJCJ & CJJJCCJC("V ,H96C6 ,:5l") & CJJJCJCC
else
CJJJCJCJ=CCJCJCC(2)
end if
end if:Call UpdateCache(CJJJCJCC,CCJCJCC(0),CCJCJCC(1),CJJJCJCJ,CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJJJ
End Sub:Public Sub UpdateCache(CJJJCJCC,CJJCCJCJ,name,CCJCCCJ,CJJCCCJJ):dim CJJCCCJ,CJCJJCJ:CJJJCJCC=CLng(CJJJCJCC):CJJCCCJ=CJJJJCCC(CJJJCJCC):if CJJCCJCJ="" and name="" and CCJCCCJ="" and CJJCCCJJ="" then
if CJJCCCJ>0 then
for CJCJJCJ=1 to 4:CCJJCJJ(CJJCCCJ,CJCJJCJ)=Null:next
end if
else
if CJJCCCJ=0 then
for CJCJJCJ=1 to CCJJCCJ:if CCJJCJJ(CJCJJCJ,1) & ""="" then
CJJCCCJ=CJCJJCJ:exit for
end if:next
end if:if CJJCCCJ=0 then
Call ClearCache
else
CCJJCJJ(CJJCCCJ,0)=CLng(CJJJCJCC):if CJJCCJCJ<>"" then CCJJCJJ(CJJCCCJ,1)=CLng(CJJCCJCJ)
if name<>"" then CCJJCJJ(CJJCCCJ,2)=name
if CCJCCCJ<>"" then CCJJCJJ(CJJCCCJ,3)=CCJCCCJ
if CJJCCCJJ<>"" then CCJJCJJ(CJJCCCJ,4)=CLng(CJJCCCJJ)
end if
end if:if CJJCCCJ>0 then
Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCC):Call ConnClose:Response.Write CJJCJCCC:Response.End:End Sub:Private Function CCCCCJJ():CCCCCJJ=CJJJCCJJ+1:End Function:Private Function CJJJCCJJ():dim CJCCCJJ:set CJCCCJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCJJ=CJCCCJJ(0):CJCCCJJ.Close: Set CJCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJCCCC,CCCJJJJ(0):CCJCCCC=Request.QueryString(CJJJCCJC("F")):if not CCCCJCC(CCJCCCC) then CCJCCCC=CCCCCJ
if not CCCCJCC(CCJCCCC) then CCJCCCC=2
dim CCJJCJJ:set CCJJCJJ=new jtree:CCJJCJJ.table=CJJJCCJC(">6>36C0EJA6"):CCCJJJJ(0)=CCJJCJJ.GetCurName(CCJCCCC):dim CCCJJJC:set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,>6>36CEJA6l") & CCJCCCC):if CCCJJJ.eof then Call RedirectMessage(CJJJCCJC("????????,??????????????????????,"))
CCCJJJC=CCCJJJ(0):Response.Write(vbCrLf):Response.Write(CJJJCCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJC("k9625m") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCCJC("kE:E=6m")):Response.Write  CCCJJJJ(0):Response.Write(CJJJCCJC("k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^>rFDE@>$4C@==32C^;BF6CJ]>rFDE@>$4C@==32C]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,L ,>2C8:?\E@Ai ,`_AIj ,A@D:E:@?i ,C6=2E:G6j ,96:89Ei ,bc_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,L ,3@C56Ci ,`AI ,D@=:5 ,R`_drdaj ,96:89Ei ,bc_AIj ,H:5E9i ,aegAIj ,324<8C@F?5i ,R777j ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]E:E=6 ,L ,324<8C@F?5i ,R`dghfcj ,96:89Ei ,baAIj ,=:?6\96:89Ei ,baAIj ,7@?E\D:K6i ,`cAIj ,4@=@Ci ,Ruuuj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,L ,96:89Ei ,agdAIj ,@G6C7=@Hi ,2FE@j ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,=: ,L ,=:?6\96:89Ei ,adAIj ,3@C56C\3@EE@>i ,`AI ,52D965 ,R444j ,A255:?8\=67Ei ,`_AIj ,=:DE\DEJ=6i ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,2 ,L ,4@=@Ci ,Rh`h_hgj ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,2i9@G6C ,L ,4@=@Ci ,Ruh_j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]3F==6E:? ,L ,324<8C@F?5i ,FC=W:>286D^3F==6E:?]8:7X ,?@\C6A62E ,=67E ,cAIj ,A255:?8\=67Ei ,`dAIj ,A@D:E:@?i ,23D@=FE6j ,=67Ei ,agaAIj ,E@Ai ,dAIj ,H:5E9i ,ed_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]3F==6E:? ,>2CBF66 ,L ,7=@2Ei ,C:89Ej ,H:5E9i ,dg_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]3F==6E:? ,2i9@G6C ,L ,4@=@Ci ,Ruh_j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]7@4FD ,L ,324<8C@F?5i ,Ruuuj ,A@D:E:@?i ,23D@=FE6j ,=67Ei ,agaAIj ,E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,L ,>2C8:?\E@Ai ,`_AIj ,@G6C7=@Hi ,9:556?j ,>2C8:?\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,L ,H:5E9i ,af_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,5:G ,L ,3@C56C\C25:FDi ,`_AIj ,324<8C@F?5i ,R777j ,>2C8:?\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,9b ,L ,324<8C@F?5i ,R`cggf`j ,4@=@Ci ,R777j ,7@?E\D:K6i ,`eAIj ,A255:?8\=67Ei ,a_AIj ,7@?E\H6:89Ei ,?@C>2=j ,96:89Ei ,c_AIj ,=:?6\96:89Ei ,c_AIj ,3@C56C\C25:FDi ,`_AI ,`_AI ,_ ,_j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,F= ,L ,>2C8:?i ,`_AI ,dAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,=: ,L ,=:?6\96:89Ei ,b_AIj ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R`cggfbj ,A255:?8\=67Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,=: ,]5@E ,L ,4@=@Ci ,R`cggfbj ,>2C8:?\C:89Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,L ,H:5E9i ,eegAIj ,7=@2Ei ,C:89Ej ,324<8C@F?5i ,FC=W:>286D^>2:?];A8X ,?@\C6A62Ej ,96:89Ei ,eegAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,L ,7=@2Ei ,=67Ej ,H:5E9i ,ba_AIj ,96:89Ei ,a`_AIj ,>2C8:?\=67Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,9a ,L ,7@?E\D:K6i ,`eAIj ,A255:?8\E@Ai ,eAIj ,A255:?8\=67Ei ,c_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,9a ,2 ,L ,5:DA=2Ji ,3=@4<j ,4@=@Ci ,R`bg_esj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,9a ,2i9@G6C ,L ,4@=@Ci ,Ruh_j ,E6IE\564@C2E:@?i ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,F= ,L ,>2C8:?\E@Ai ,`dAIj ,>2C8:?\=67Ei ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,=: ,L ,=:?6\96:89Ei ,b_AIj ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,=: ,DA2? ,L ,7=@2Ei ,C:89Ej ,4@=@Ci ,Rhhhj ,>2C8:?\C:89Ei ,`_AIj ,7@?E\D:K6i ,`aAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R=:?< ,L ,96:89Ei ,c_AIj ,324<8C@F?5i ,Ruuuj ,>2C8:?\3@EE@>i ,`_AIj ,=:?6\96:89Ei ,c_AIj ,E6IE\2=:8?i ,46?E6Cj ,3@C56C\C25:FDi ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("k^9625m") & vbCrLf):Response.Write(CJJJCCJC("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQE@AQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):if CCCJCC>0 then
If CCCJCCC(5) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,URgaaej ,k2 ,9C67lV25>:?^>2:?]2DAVm????????k^2m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,URgaaej ,k2 ,9C67lQ]]^>6>36C^=@8@FE]2DAn4@>6FC=l")):Response.Write  CCCCJJC:Response.Write(CJJJCCJC("Qm????????k^2m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ]]^>6>36C^=@8:?]2DAQm") & vbCrLf):Response.Write(CJJJCCJC(" ,????????,") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQFD6C?2>6Q ,:5lQFD6C?2>6Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,??????,") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQA2DDH@C5Q ,?2>6lQA2DDH@C5Q ,:5lQA2DDH@C5Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@>6FC=Q ,:5lQ4@>6FC=Q ,G2=F6lQ")):Response.Write  CCCCJJC:Response.Write(CJJJCCJC("Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^7@C>m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9`mkDA2?m")):Response.Write  CCCJJJJ(0):Response.Write(CJJJCCJC("k^DA2?mk^9`m") & vbCrLf):Response.Write(CJJJCCJC(" ,kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ]Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):dim CJJCCCJ,CCCJJCJ,CCCJJCC:CJJCCCJ=0:set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,:5[?2>6[:?EC@[:DE@A ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CCCJJJC & CJJJCCJC(" ,@C56C ,3J ,D@CE")):while not CCCJJJ.eof:if CCCJJJ(3) then
CCCJJCJ=CCCJJCJ & CJJJCCJC("M") & CCCJJJ(0) & CJJJCCJC("M") & CCCJJJ(1):CCCJJCC=CCCJJCC+1
end if:response.write CJJJCCJC("k=:mk2 ,9C67lV=:DE]2DAnEJA6:5l") & CCCJJJ(0) & CJJJCCJC("V ,E:E=6lV") & CCCJJJ(2) & CJJJCCJC("Vm") & CCCJJJ(1) & CJJJCCJC("k^2mk^=:m")
CCCJJJ.movenext:CJJCCCJ=CJJCCCJ+1:wend:CCCJJCJ=CCCJJCJ & CJJJCCJC("MfM????????MgM????????MhM????????M`_M????????M``M????????M`aM????????"):CCCJJCJ=split(Mid(CCCJJCJ,2),CJJJCCJC("M")):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ>2:?\E@AQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQI:2D9FQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQE:E=6Qm????k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,:5[?2>6[:?EC@[EJA6[:DD49@@= ,7C@> ,>6>36C0EJA6 ,H96C6 ,A2C:5l") & CCJCCCC & CJJJCCJC(" ,@C56C ,3J ,D@CE")):while not CCCJJJ.eof:if CCCJJJ(4) then
response.write CJJJCCJC("k=:mk2 ,9C67lV]]^D49@@=^:?56I]2DAnD49@@=l") & CCCJJJ(0) & CJJJCCJC("Vm??,U?3DAj") & CCCCJCJ(CCCJJJ(1),26) & CJJJCCJC("k^2mk^=:m")
else
response.write CJJJCCJC("k=:mk2 ,9C67lV:?56I]2DAnFl") & CCCJJJ(0) & CJJJCCJC("Vm??,U?3DAj") & CCCCJCJ(CCCJJJ(1),26) & CJJJCCJC("k^2mk^=:m")
end if:CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ3F==6E:?Qm????@??????,") & vbCrLf):Response.Write(CJJJCCJC(" ,k>2CBF66 ,D4C@==2>@F?ElQbQ ,@?|@FD6~G6ClQ;2G2D4C:AEiE9:D]DE@AWXjQ ,@?|@FD6~FElQ;2G2D4C:AEiE9:D]DE2CEWXjQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,d ,:5[E:E=6 ,7C@> ,3F==6E:? ,H96C6 ,@FED:56l` ,2?5 ,V[VZEJA6ZV[V ,=:<6 ,V[T") & CCJCCCC & CJJJCCJC("[TV ,@C56C ,3J ,:5 ,56D4"))
while not CCCJJJ.eof:response.Write CJJJCCJC("k2 ,9C67lVG:6H]2DAn24El3F==6E:?UFl") & CCJCCCC & CJJJCCJC("U:5l") & CCCJJJ(0) & CJJJCCJC("Vm??, ,") & CCCJJJ(1) & CJJJCCJC("k^2mU?3DAjU?3DAj")
CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^>2CBF66m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ7@4FDQmk:>8 ,DC4lQ]]^]]^:>286D^=@25:?8]8:7Q ,H:5E9lQ`eQ ,96:89ElQ`eQ ,^mk^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ>2:?\3@EE@>Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQD:56Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ9@EQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):dim CCCJCJJ:CCCJCJ=CJJJCCJC("D6=64E ,E@A ,h ,:5[E:E=6 ,7C@> ,G02CE:4=6 ,H96C6 ,A2CEJA6l") & CCCJJJC & CJJJCCJC(" ,@C56C ,3J ,9:E ,56D4[:5 ,56D4"):set CCCJJJ=CCJCCJ.execute(CCCJCJ):while not CCCJJJ.eof:CCCJCJJ=CCCJJJ(1):response.write CJJJCCJC("k=:mkDA2? ,4=2DDlV5@EVm??,k^DA2?mk2 ,9C67lVG:6H]2DAnFl") & CCJCCCC & CJJJCCJC("U:5l") & CCCJJJ(0) & CJJJCCJC("V ,E:E=6lV") & CCCJCJJ & CJJJCCJC("Vm") & CCCCJCJ(CCCJCJJ,34) & CJJJCCJC("k^2mk^=:m")
CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ?6HQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CCCJCJ=CJJJCCJC("D6=64E ,E@A ,h ,:5[E:E=6 ,7C@> ,G02CE:4=6 ,H96C6 ,A2CEJA6l") & CCCJJJC & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4"):set CCCJJJ=CCJCCJ.execute(CCCJCJ):while not CCCJJJ.eof:CCCJCJJ=CCCJJJ(1):response.write CJJJCCJC("k=:mkDA2? ,4=2DDlV5@EVm??,k^DA2?mk2 ,9C67lVG:6H]2DAnFl") & CCJCCCC & CJJJCCJC("U:5l") & CCCJJJ(0) & CJJJCCJC("V ,E:E=6lV") & CCCJCJJ & CJJJCCJC("Vm") & CCCCJCJ(CCCJCJJ,34) & CJJJCCJC("k^2mk^=:m")
CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ>2:?Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):for CJJCCCJ=0 to ubound(CCCJJCJ)-1 step 2:if CJJCCCJ=12 then exit for
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ3@IQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9amk2 ,9C67lQ=:DE]2DAnFl")):Response.Write  CCJCCCC:Response.Write(CJJJCCJC("UEJA6:5l")):Response.Write  CCCJJCJ(CJJCCCJ):Response.Write(CJJJCCJC("Qm")):Response.Write  CCCJJCJ(CJJCCCJ+1):Response.Write(CJJJCCJC("k^2mk^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,d ,:5[E:E=6[52E6E:>6 ,7C@> ,2CE:4=6 ,H96C6 ,EJA6l") & CCCJJCJ(CJJCCCJ) & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4")):while not CCCJJJ.eof:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQG:6H]2DAnFl")):Response.Write  CCJCCCC:Response.Write(CJJJCCJC("U:5l")):Response.Write  CCCJJJ(0):Response.Write(CJJJCCJC("Q ,E:E=6lQ")):Response.Write  CCCJJJ(1):Response.Write(CJJJCCJC("Qm")):Response.Write  CCCCJCJ(CCCJJJ(1),26):Response.Write(CJJJCCJC("k^2mkDA2?m,")):Response.Write  CJJJJJJC(CCCJJJ(2),0):Response.Write(CJJJCCJC(".k^DA2?mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ=:?<Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):response.Write CJJJCCJC("????@??????,"):set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E6IE[=:?< ,7C@> ,25G6CE ,H96C6 ,A=246l`d ,2?5 ,>6>36CEJA6l") & CCJCCCC):while not CCCJJJ.eof:response.Write CJJJCCJC("k2 ,9C67lV") & CCCJJJ(1) & CJJJCCJC("V ,E2C86ElV03=2?<Vm") & CCCJJJ(0) & CJJJCCJC("k^2mU?3DAjU?3DAj")
CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ7@@E6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ=:?<Qmk2 ,9C67lQRQm????????k^2m ,M ,k2 ,9C67lQRQm????????k^2m ,M ,k2 ,9C67lQRQm????????k^2m ,M ,k2 ,9C67lQRQm????????k^2m ,M ,k2 ,9C67lQRQm????????k^2m ,M ,k2 ,9C67lQRQm????????k^2mk^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  CCCJJJJ(0):Response.Write(CJJJCCJC("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]5]:>286492?86];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^>rFDE@>$4C@==32C^;BF6CJ]>rFDE@>$4C@==32C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJC(" ,^^ ,??????") & vbCrLf):Response.Write(CJJJCCJC(" ,SWQRI:2D9F ,]4@?E6?EQX]>rFDE@>$4C@==32CWLE96>6iV52C<VNXj") & vbCrLf):Response.Write(CJJJCCJC(" ,^^ ,??????") & vbCrLf):Response.Write(CJJJCCJC(" ,SWQR>2:?\E@A ,]7@4FDQX]50:>286492?86WL") & vbCrLf):Response.Write(CJJJCCJC(" ,52E2i ,")):Response.Write  CJJJJCJJ(CJJJCCJC("D6=64E ,A:4EFC6 ,2D ,DC4[=:?< ,2D ,9C67[E6IE ,2D ,E:E=6 ,7C@> ,25G6CE ,H96C6 ,>6>36CEJA6l") & CCJCCCC & CJJJCCJC(" ,2?5 ,A=246l`c ,@C56C ,3J ,:5 ,56D4")):Response.Write(CJJJCCJC("[") & vbCrLf):Response.Write(CJJJCCJC(" ,H:5E9ieef[") & vbCrLf):Response.Write(CJJJCCJC(" ,96:89Eib``[") & vbCrLf):Response.Write(CJJJCCJC(" ,2?:>2E6$EJ=6iVIV[") & vbCrLf):Response.Write(CJJJCCJC(" ,E:E=6%@Ai`_[") & vbCrLf):Response.Write(CJJJCCJC(" ,3E?%@Ai`a[") & vbCrLf):Response.Write(CJJJCCJC(" ,A=2J%:>6ib___") & vbCrLf):Response.Write(CJJJCCJC(" ,NXj") & vbCrLf):Response.Write(CJJJCCJC("NXj") & vbCrLf):Response.Write(CJJJCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJC(ByVal CJCCJJC)
Dim CCCJCJC, CJJCCCJ, CJCJCJJ
CJCCJJC = Replace(CJCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCCJ = 1 To Len(CJCCJJC)
If CJJCCCJ <> CJCJCJJ Then
CCCJCJC = AscW(Mid(CJCCJJC, CJJCCCJ, 1))
If CCCJCJC >= 33 And CCCJCJC <= 79 Then
CJJJCCJC = CJJJCCJC & Chr(CCCJCJC + 47)
ElseIf CCCJCJC >= 80 And CCCJCJC <= 126 Then
CJJJCCJC = CJJJCCJC & Chr(CCCJCJC - 47)
Else
CJCJCJJ = CJJCCCJ + 1
If Mid(CJCCJJC, CJCJCJJ, 1) = Chr(64) Then CJJJCCJC = CJJJCCJC & ChrW(CCCJCJC + 5) Else CJJJCCJC = CJJJCCJC & Mid(CJCCJJC, CJJCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de