Edit D:\xinhaisoft\crisis

Edit D:\xinhaisoft\crisis_new\lb\isi.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJCC, CJJJCJJ,CJJJCJC, CJJJCCJ, CJJJCCC:Set CJJJJCC = server.CreateObject(CJJCJJCC("ps~sq]r@??64E:@?")):CJJJJCC.open Application(CJJCJJCC("r@??64E:@?$EC:?8")):Set CJJJCJJ=CJJJJCC::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(CJJCJJCC("!$*|t|qt#"))):if CJCCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJJ>0 then
CJJJCCC=CJJCJJCC("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 & CJJCJJCC("V ,2?5 ,:5l") & CJJCJJJ
set CJJJCJC=CJJJJCC.execute(CJJJCCC):If CJJJCJC.EOF Then
Call ClearMemberCookie
Else
CJJCJCJ=CJJJCJC(2) & "":CJJCJCC=CJJJCJC(3):CJJCCJJ=CJJJCJC(5):CJJCCJC=CJJJCJC(6):CJJCCCJ=CJJJCJC(9):CJJCCCC=CJJJCJC(15):CJCJJJC=CJJJCJC(0):CJCCJJJ=CJJJCJC(1):CJCJCCC=CJJJCJC(11) & "":CJCJJCJ=CJJJCJC(10) & "":CJCJJJJ=CJJJCJC(12):CJCJJCC=CJJJCJC(14):CJCJCJJ=CJJJCJC(13):CJCJCJC=CJJJCJC(7) & "":CJCJCCJ=CJJJCJC(4):CJCCJJC=CJJJCJC(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(CJJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJC)>0 then Call RedirectMessage(CJJCJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJJJ,CJJCJJC)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CJJCJJCC("!$*|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 CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJCCJCC=split(CJCCJCJ,CJJCJJCC("]")):if ubound(CJCCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJCC(0)) or len(CJCCJCC(1))<>32 or len(CJCCJCC(2))<>32 then
Call ClearMemberCookie
else
CJCCCJJ=CJCCJCC(1):for CJCCCJC=1 to len(CJCCCJJ):CJCCCCJ=mid(CJCCCJJ,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCJJ=CJCCJCC(2):if CJCCCCC<>mid(CJCCCJJ,6,7) then
Call ClearMemberCookie
else
CJCCCCJ=mid(CJCCCJJ,18,10)/2:if CJCCCCJ<DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJJ=Clng(CJCCJCC(0)):CJJCJJC=CJCCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJJC,CJJCJCJJ):dim CJCCCJC,CJCCCCJ,CJCCCCC:for CJCCCJC=1 to len(CJJCJCJJ):CJCCCCJ=mid(CJJCJCJJ,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCCC=CCCCJJC & CJJCJJCC("]") & CJJCJCJJ & CJJCJJCC("]") & Fix(10000*(Rnd+1)) & CJCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJCC("!$*|t|qt#"))=CJCCCCC:End Sub::::Const CJJJJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCJJCC("FE7\g"):dim CJCCCJC,CJCCCCJ,CCJJJJJ:if isarray(str) then
on error resume next:CJCCCJC=ubound(str,2):CCJJJJJ=err.number:err.clear:on error goto 0:if CCJJJJJ<>0 then
for CJCCCJC=0 to ubound(str):if CJCCCJC>0 then response.Write CJJCJJCC("k3C ,^m")
response.Write CJCCCJC & CJJCJJCC("i ,") & str(CJCCCJC):next
else
response.Write CJJCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCJC=0 to ubound(str,2):response.Write CJJCJJCC("kE9 ,2=:8?lV=67EVm") & CJCCCJC & CJJCJJCC("k^E9m")
next:response.Write CJJCJJCC("k^ECm"):for CJCCCJC=0 to ubound(str):response.Write CJJCJJCC("kECmkE9m") & CJCCCJC & CJJCJJCC("k^E9m"):for CJCCCCJ=0 to ubound(str,2):response.Write CJJCJJCC("kE5m") & str(CJCCCJC,CJCCCCJ) & CJJCJJCC("k^E5m"):next:response.Write CJJCJJCC("k^ECm"):next:response.Write CJJCJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJCJC,CJJCJCCJ):dim CJCCJCC:CJCCJCC=CJJCJCJC & CJJCJJCC("l") & CJJCJCCJ & CJJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJCC("$6E\r@@<:6"),CJCCJCC):End Sub::::::sub ShowMessage(CJJCJCCC):response.Charset="utf-8":Response.Write CJJCJJCC("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") & CJJCJCCC & CJJCJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJJCJJ(CCJJJJJ):if isnull(CCJJJJJ) or trim(CCJJJJJ)="" or not isnumeric(CCJJJJJ) then
CJJJJCJJ=false
else
Dim CCJJJJC:Set CCJJJJC = New RegExp:CCJJJJC.Pattern = CJJCJJCC("/-5ZS"):CCJJJJC.IgnoreCase = True:CJJJJCJJ = CCJJJJC.test(CCJJJJJ):set CCJJJJC=nothing
end if:End Function:Function CJJJJCJC(CJJCCJJJ):dim CCJJJCJ,CCJJJCC:CCJJJCJ=CJJCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJJJ & CJJCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJJCC=CJJJJCC.execute(CCJJJCJ):CJJJJCJC = CCJJJCC(0):if isnull(CJJJJCJC) then CJJJJCJC=1
CCJJJCC.close : set CCJJJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=nothing:set CJJJCJJJ=nothing:CCJJJCC.close : set CCJJJCC=nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CJJJCJC.Close : Set CJJJCJC=Nothing:CJJJCJJC.Close : Set CJJJCJJC = Nothing:CJJJJCC.Close : Set CJJJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJCC("!$*0|6DD286"),server.URLEncode(CJJCJCCC)):Response.Redirect CJJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJJCJCJ():Dim CCJJJCC, CCJJCJJ(), CJCCCJC, CJCCCCJ, CCJJCJC,CCJJCCJ:If Not IsArray(Application(CJJCJJCC("!$*0%6DED"))) Then
CJJJCCC=CJJCJJCC("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 CCJJJCC=server.createobject(CJJCJJCC("25@53]C64@C5D6E")):CCJJJCC.open CJJJCCC,CJJJJCC,1:CCJJCJC = CCJJJCC.RecordCount:CCJJCCJ=CCJJJCC.fields.count-1:ReDim CCJJCJJ(CCJJCJC, CCJJCCJ):If CCJJCJC > 0 Then
For CJCCCJC = 1 To CCJJCJC:For CJCCCCJ = 0 To CCJJCCJ:if CJCCCCJ=4 or CJCCCCJ=6 or CJCCCCJ=19 then
CCJJCJJ(CJCCCJC, CJCCCCJ) = CJJJCJCC(CCJJJCC(CJCCCCJ))
else
CCJJCJJ(CJCCCJC, CJCCCCJ) = CCJJJCC(CJCCCCJ):if CCJJJCC(CJCCCCJ).type<>11 and isnull(CCJJCJJ(CJCCCJC, CJCCCCJ)) then CCJJCJJ(CJCCCJC, CJCCCCJ)=""
end if:Next:CCJJJCC.MoveNext:Next
End If:CCJJJCC.Close: Set CCJJJCC = Nothing:Application(CJJCJJCC("!$*0%6DED")) = CCJJCJJ
End If:CJJJCJCJ = Application(CJJCJJCC("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CJJJCJCC(CJJCCJJC):if isnull(CJJCCJJC) then
CJJJCJCC=""
else
On Error Resume Next:CJJJCJCC=CJJCCJJC:if err.number=-2147352567 then
CJJJCJCC="":err.Clear
end if
end if:End Function::::Sub ClearCache(CJJCCJCJ):Application.Contents.Remove CJJCCJCJ
End Sub::::::Sub ShowPageHead():if CCCJCJC<>CJJCJJCC("$2G6p?DH6Cx?AFE") then
Dim str:str=CJJCJJCC("kPs~r%*!t ,9E>=m") & CJJCJJCC("k9E>= ,=2?8lVK9\r}Vm") & CJJCJJCC("k9625m") & CJJCJJCC("k>6E2 ,492CD6ElVFE7\gVm") & CJJCJJCC("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CJJCJJCC("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CJJCJJCC("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CJJCJJCC("kE:E=6m???? ,\ ,") & CJJJJJCC & CJJCJJCC("k^E:E=6m") & CJJCJJCC("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CJJCJJCC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CJJCJJCC("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CJJCJJCC("k^9625mk3@5Jm")
Response.Write str
end if:End Sub:Sub ShowPageFoot():if CCCJCJC<>CJJCJJCC("$2G6p?DH6Cx?AFE") then
Response.Write CJJCJJCC("k^3@5Jmk^9E>=m")
end if:End Sub:Sub GetBaseInfo(CCCCJJC):dim CCJJCJJ,CJCCCJC:CCJJCJJ = CJJJCJCJ:For CJCCCJC = 1 To UBound(CCJJCJJ):If CStr(CCJJCJJ(CJCCCJC, 0)) = CStr(CCCCJJC) Then
CCCJCCJ=CCJJCJJ(CJCCCJC,2):CCCJCCC=CCJJCJJ(CJCCCJC,1):CCCCJJJ=CCJJCJJ(CJCCCJC,3):CCCCJCJ=CCJJCJJ(CJCCCJC,7):CCCCJCC=CCJJCJJ(CJCCCJC,15):Exit For
End If:Next:if CCCJCCC="" then
dim CCJJJCC:set CCJJJCC=CJJJJCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CCCCJJC):if CCJJJCC.eof then
Call RedirectMessage(CJJCJJCC("????????,??????,") & CCCCJJC & CJJCJJCC("??,????????????????,"))
else
CCCJCCJ=CCJJJCC(0):CCCJCCC=CCJJJCC(1):CCCCJJJ=CCJJJCC(2):CCCCJCJ=CCJJJCC(3):CCCCJCC=CCJJJCC(4):Call ClearCache(CJJCJJCC("!$*0%6DED"))
end if:CCJJJCC.close : set CCJJJCC=nothing
end if:End Sub:::::::Sub ReMakeResult()
dim CCJJJCC,CJCCCJC,CCJJJJJ,CCJJCJC,CCJCJJJ,CCJCJJC:CCJJCJC=50:CCJJJJJ=Request.QueryString(CJJCJJCC(":5")):CCJCJJC=Request.QueryString(CJJCJJCC("D49@@=")):if not CJJJJCJJ(CCJJJJJ) then CCJJJJJ=0
if CJJJJCJJ(CCJCJJC) then
CJJJCCC=CJJCJJCC("D6=64E ,DEF77WWD6=64E ,E@A ,") & CCJJCJC & CJJCJJCC(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJJJJCC & CJJCJJCC(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CCJJJJJ & CJJCJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CCJCJJC & CJJCJJCC(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
else
CJJJCCC=CJJCJJCC("D6=64E ,DEF77WWD6=64E ,E@A ,") & CCJJCJC & CJJCJJCC(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJJJJCC & CJJCJJCC(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CCJJJJJ & CJJCJJCC(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
end if:set CCJJJCC=CJJJJCC.execute(CJJJCCC):CCJCJJJ=CCJJJCC(0):CCJJJCC.close : set CCJJJCC=nothing:if isnull(CCJCJJJ) then
Call ShowMessage(CJJCJJCC("??????,??????????,??????????,")):Response.Write CJJCJJCC("k2F5:@ ,DC4lV^:>286D^|@K2CE0#@?5@0p==20%FC42]>:5V ,2FE@A=2Jmk^2F5:@m")
else
CCJCJJJ=split(CCJCJJJ,CJJCJJCC("[")):for CJCCCJC=0 to ubound(CCJCJJJ):CCCCJJC=CCJCJJJ(CJCCCJC):Call MakeResult:if VarType(CJJJJCC)=9 then exit for
next:Call ShowMessage(CJJCJJCC("??????????????,??????]]] ,W") & CCCCJJC & CJJCJJCC("X")):if CJJJJCJJ(CCJCJJC) then
response.Write CJJCJJCC("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJJJJCC & CJJCJJCC("U:5l") & CCCCJJC+1 & CJJCJJCC("UD49@@=l") & CCJCJJC & CJJCJJCC("Vm")
else
response.Write CJJCJJCC("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJJJJCC & CJJCJJCC("U:5l") & CCCCJJC+1 & CJJCJJCC("Vm")
end if
end if:end sub:::Class jTree:Private CJJJCCC, CCJCJCJ, CCJCJCC, CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:Private Sub Class_Initialize():CCJCJCC = 0:CCJCCJJ = 0:CCCJJJJ=10:End Sub:Public Property Let Table(CJJCCJCC):if CJJCCJCC="" then Call RedirectMessage(CJJCJJCC("????????,;%C66????????????????????@??????????,"))
CCJCCJC=CJJCCJCC:CCJCCCJ=CJJCJJCC("!$*0") & UCase(CCJCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCCJC:End Property::Public Property Get Count():Count=CCJCCJJ-CCCJJJJ:End Property:Private Sub GetTreeArray():Dim CJCCCJC, CJCCCCJ, CCCJJJC,RecordCount:CCJCJCJ = Application(CCJCCCJ):If Not IsArray(CCJCJCJ) Then
CJJJCCC = CJJCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCJC:if CCJCCCC<>"" then CJJJCCC=CJJJCCC & CJJCJJCC(" ,H96C6 ,") & CCJCCCC
set CCCJJJC=CJJJJCC.execute(CJJJCCC):RecordCount=CCCJJJC(0):if RecordCount=0 then Call RedirectMessage(CJJCJJCC("????W") & CCJCCJC & CJJCJJCC("^") & CCJCCCC & CJJCJJCC("X????????????"))
CCJCCJJ=RecordCount+CCCJJJJ:ReDim CCJCJCJ(CCJCCJJ, 4):CJJJCCC = CJJCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CJJCJJCC(" ,H:E9 ,W?@=@4<X"):if CCJCCCC<>"" then CJJJCCC=CJJJCCC & CJJCJJCC(" ,H96C6 ,") & CCJCCCC
CJJJCCC=CJJJCCC & CJJCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CCCJJJC=CJJJJCC.execute(CJJJCCC):For CJCCCJC = 1 To RecordCount:For CJCCCCJ = 0 To 4:CCJCJCJ(CJCCCJC, CJCCCCJ) = CCCJJJC(CJCCCCJ):if IsNull(CCJCJCJ(CJCCCJC,4)) then CCJCJCJ(CJCCCJC,4)=0
If CCJCJCJ(CJCCCJC,2)="" then CCJCJCJ(CJCCCJC,2)=CJJCJJCC(",??.")
Next:CCCJJJC.MoveNext:Next:CCCJJJC.Close: Set CCCJJJC = Nothing:for CJCCCJC=CCJCCJJ-(CCCJJJJ-1) to CCJCCJJ:CCJCJCJ(CJCCCJC,0)=CJCCCJC:next:Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock()
else
CCJCCJJ=Ubound(CCJCJCJ)
End If:End Sub:::::Private Function CJJJCCCJ(CCCCJJC):dim CJCCCJC,CCCJJCC:CJJJCCCJ=0:CCCJJCC=CStr(CCCCJJC):if CCCJJCC<>"0" then
for CJCCCJC=1 to CCJCCJJ:If CStr(CCJCJCJ(CJCCCJC, 0))=CCCJJCC Then
CJJJCCCJ = CJCCCJC:Exit For
End If:Next
end if:End Function::::Public Function CJJJCCCC(CCCCJJC):Dim CJCCCJC,CCCJCJJ:CJCCCJC=CJJJCCCJ(CCCCJJC):if CJCCCJC=0 then
CCCJCJJ=CJJCJJJJ(CCCCJJC)
else
CCCJCJJ=CCJCJCJ(CJCCCJC,3):if isnull(CCCJCJJ) or CCCJCJJ="" then
CCCJCJJ=CJJCJJJJ(CCCCJJC)
elseif Mid(CCCJCJJ,instrrev(CCCJCJJ,CJJCJJCC("["))+1)<>CStr(CCCCJJC) then
CCCJCJJ=CJJCJJJJ(CCCCJJC)
elseif Left(CCCJCJJ,1)=CJJCJJCC("[") then
CCCJCJJ=CJJCJJJJ(CCCCJJC)
end if
end if:CJJJCCCC=CCCJCJJ:End Function:Private Function CJJCJJJJ(CCCCJJC):dim CCCJJCC:CCCJJCC=CStr(CCCCJJC):if CCCJJCC="0" then
CJJCJJJJ=""
else
dim CCCJJJC:set CCCJJJC=CJJJJCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CJJCJJCC(" ,H96C6 ,:5l") & CCCCJJC):if CCCJJJC.eof then
Call UpdateCache(CCCCJJC,"","","",""):Call RedirectMessage(CJJCJJCC("??????,xs??,") & CCCCJJC & CJJCJJCC("??,????????,????????????????????,"))
else
if CCCJJJC(0)=0 then
CJJCJJJJ="0," & CCCCJJC
else
CJJCJJJJ=CJJJCCCC(CCCJJJC(0)) & CJJCJJCC("[") & CCCCJJC
end if:if CCCJJJC(2)<>CJJCJJJJ then
CJJJJCC.execute CJJCJJCC("FA52E6 ,") & CCJCCJC & CJJCJJCC(" ,D6E ,A2E9lV") & CJJCJJJJ & CJJCJJCC("V ,H96C6 ,:5l") & CCCCJJC
else
CJJCJJJJ=CCCJJJC(2)
end if
end if:Call UpdateCache(CCCCJJC,CCCJJJC(0),CCCJJJC(1),CJJCJJJJ,CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCCCJ
End Sub:Public Sub UpdateCache(CCCCJJC,CJJCCCJJ,CJJCCCJC,CCCJCJJ,CJJCCCCJ):dim CJCCCJC,CJCCCCJ:CCCCJJC=CLng(CCCCJJC):CJCCCJC=CJJJCCCJ(CCCCJJC):if CJJCCCJJ="" and CJJCCCJC="" and CCCJCJJ="" and CJJCCCCJ="" then
if CJCCCJC>0 then
for CJCCCCJ=1 to 4:CCJCJCJ(CJCCCJC,CJCCCCJ)=Null:next
end if
else
if CJCCCJC=0 then
for CJCCCCJ=1 to CCJCCJJ:if CCJCJCJ(CJCCCCJ,1) & ""="" then
CJCCCJC=CJCCCCJ:exit for
end if:next
end if:if CJCCCJC=0 then
Call ClearCache
else
CCJCJCJ(CJCCCJC,0)=CLng(CCCCJJC):if CJJCCCJJ<>"" then CCJCJCJ(CJCCCJC,1)=CLng(CJJCCCJJ)
if CJJCCCJC<>"" then CCJCJCJ(CJCCCJC,2)=CJJCCCJC
if CCCJCJJ<>"" then CCJCJCJ(CJCCCJC,3)=CCCJCJJ
if CJJCCCCJ<>"" then CCJCJCJ(CJCCCJC,4)=CLng(CJJCCCCJ)
end if
end if:if CJCCCJC>0 then
Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCC):Call ConnClose:Response.Write CJJCJCCC:Response.End:End Sub:Private Function CJJJJCJC():CJJJJCJC=CJJCJJJC+1:End Function:Private Function CJJCJJJC():dim CCJJJCC:set CCJJJCC=CJJJJCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCJC & CJJCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CJJCJJJC=CCJJJCC(0):CCJJJCC.Close: Set CCJJJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJJJCC=140:Dim CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC,CCCCCJJ:CCCJCJC=Request.QueryString(CJJCJJCC("24E")):if CCCJCJC="" then CCCJCJC=Request.Form(CJJCJJCC("24E"))
if CCCJCJC="" then CCCJCJC=Request.Cookies(CJJCJJCC("!$*"))(CJJCJJCC("%6DEp4E"))
if CCCJCJC="" then Call RedirectMessage(CJJCJJCC("????????,????????Wp4EX??????,"))
CCCCCJJ=CJJCJJCC("E6DE"):dim CCJCJCJ:set CCJCJCJ=new jtree:CCJCJCJ.table=CJJCJJCC(">6>36C0EJA6"):Call GetBaseInfo(CJJJJJCC):Call ShowPageHead:Select Case CCCJCJC:Case CJJCJJCC("|2<6#6DF=E"):CCCCJJC=request.QueryString(CJJCJJCC(":5")):Call MakeResult:Case CJJCJJCC("#6|2<6#6DF=E")
Call ReMakeResult
Case Else
Call ShowMessage(CJJCJJCC("????????,??????????????????,")):End Select:Call ShowPageFoot:Sub MakeResult():dim CCJJJCC,CCCCCJC,CJCCCJC,CCCCCCJ,CCCCCCC,CJJJJJJJ:set CCJJJCC=CJJJJCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,2?DH6C[E6DE286 ,7C@> ,G0") & CCCCCJJ & CJJCJJCC(" ,H96C6 ,:5l") & CCCCJJC):CCCCCCJ=split(CCJJJCC(0),CJJCJJCC("M")):CJJJJJJJ=CCJJJCC(1):CCJJJCC.close : set CCJJJCC=nothing:CCCCCJC=0:for CJCCCJC=0 to CCCCJJJ-1:CCCCCCJ(CJCCCJC)=cint(CCCCCCJ(CJCCCJC))-1:CCCCCJC=CCCCCJC+CCCCCCJ(CJCCCJC):next:if (CJJJJJJJ<18 and CCCCCJC>=9) or (CJJJJJJJ>=18 and CCCCCJC>=14) then CCCCCCC=CJJCJJCC("????????????@????????")
CJJJJCC.execute CJJCJJCC("FA52E6 ,") & CCCCCJJ & CJJCJJCC(" ,D6E ,D4@C6lV") & join(CCCCCCJ,CJJCJJCC("M")) & CJJCJJCC("V[D4@C60C2HlV") & CCCCCJC & CJJCJJCC("V[D4@C6056E2:=lV") & CCCCCJC & CJJCJJCC("V[6IA=2:?lV") & CCCCCCC & CJJCJJCC("V[G2=:5l` ,H96C6 ,:5l") & CCCCJJC
end sub::On Error Resume Next:set CCJCJCJ=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=nothing:set CJJJCJJJ=nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJC.Close:Set CJJJCJC=Nothing:CJJJJCC.Close:Set CJJJJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJCC(ByVal CJJCJJCJ)
Dim CJJJJJJC, CJCCCJC, CCJJJJJ
CJJCJJCJ = Replace(CJJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJC = 1 To Len(CJJCJJCJ)
If CJCCCJC <> CCJJJJJ Then
CJJJJJJC = AscW(Mid(CJJCJJCJ, CJCCCJC, 1))
If CJJJJJJC >= 33 And CJJJJJJC <= 79 Then
CJJCJJCC = CJJCJJCC & Chr(CJJJJJJC + 47)
ElseIf CJJJJJJC >= 80 And CJJJJJJC <= 126 Then
CJJCJJCC = CJJCJJCC & Chr(CJJJJJJC - 47)
Else
CCJJJJJ = CJCCCJC + 1
If Mid(CJJCJJCJ, CCJJJJJ, 1) = Chr(64) Then CJJCJJCC = CJJCJJCC & ChrW(CJJJJJJC + 5) Else CJJCJJCC = CJJCJJCC & Mid(CJJCJJCJ, CJCCCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de