Edit D:\xinhaisoft\crisis

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de