Edit D:\xinhaisoft\crisis

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de