Edit D:\xinhaisoft\crisis

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de