Edit D:\xinhaisoft\crisis

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJC, CJCCJ,CJCCC, CCJJJ, CCJJC:Set CJCJC = server.CreateObject(CCJCCJJ("ps~sq]r@??64E:@?")):CJCJC.open Application(CCJCCJJ("r@??64E:@?$EC:?8")):Set CJCCJ=CJCJC::Dim CCJCJ,CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ:Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ:CJCCJJ=Trim(Request.Cookies(CCJCCJJ("!$*|t|qt#"))):if CJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJ>0 then
CCJJC=CCJCCJJ("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") & CCJCC & CCJCCJJ("V ,2?5 ,:5l") & CCJCJ
set CJCCC=CJCJC.execute(CCJJC):If CJCCC.EOF Then
Call ClearMemberCookie
Else
CCCJJ=CJCCC(2) & "":CCCJC=CJCCC(3):CCCCJ=CJCCC(5):CCCCC=CJCCC(6):CJJJJJ=CJCCC(9):CJJJJC=CJCCC(15):CJJJCC=CJCCC(0):CJCJCJ=CJCCC(1):CJCJJC=CJCCC(11) & "":CJJCJJ=CJCCC(10) & "":CJJJCJ=CJCCC(12):CJJCJC=CJCCC(14):CJJCCJ=CJCCC(13):CJJCCC=CJCCC(7) & "":CJCJJJ=CJCCC(4):CJCJCC=CJCCC(8):if isnull(CJJJJC) then CJJJJC=0
if isnull(CJJJJJ) or CJJJJJ=0 then CJJJJJ=CCCJC
if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CCCCJ) then CCCCJ=0
if instr(CCJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCC)>0 then Call RedirectMessage(CCJCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCJ,CCJCC)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CCJCCJJ("!$*|t|qt#"))="":CCJCJ=0:CCCCC=0:CCJCC=Empty:CCCCJ=0:CJJJJC=0:CJJJJJ=0:CCCJC=0:CJJJCC=False:CJCJCJ=False:CJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC:CJCCJC=split(CJCCJJ,CCJCCJJ("]")):if ubound(CJCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJC(0)) or len(CJCCJC(1))<>32 or len(CJCCJC(2))<>32 then
Call ClearMemberCookie
else
CJCCCJ=CJCCJC(1):for CJCCCC=1 to len(CJCCCJ):CCJJJJ=mid(CJCCCJ,CJCCCC,1):if isnumeric(CCJJJJ) then CCJJJC=CCJJJC & CCJJJJ
if len(CCJJJC)=7 then exit for
next:CJCCCJ=CJCCJC(2):if CCJJJC<>mid(CJCCCJ,6,7) then
Call ClearMemberCookie
else
CCJJJJ=mid(CJCCCJ,18,10)/2:if CCJJJJ<DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJ=Clng(CJCCJC(0)):CCJCC=CJCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJC,CCJCCJC):dim CJCCCC,CCJJJJ,CCJJJC:for CJCCCC=1 to len(CCJCCJC):CCJJJJ=mid(CCJCCJC,CJCCCC,1):if isnumeric(CCJJJJ) then CCJJJC=CCJJJC & CCJJJJ
if len(CCJJJC)=7 then exit for
next:CCJJJC=CCCCJC & CCJCCJJ("]") & CCJCCJC & CCJCCJJ("]") & Fix(10000*(Rnd+1)) & CCJJJC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJJ("!$*|t|qt#"))=CCJJJC:End Sub::Function CJCCJJC(CCJCCCJ):Dim str,CCJJCC:str = Trim(CCJCCCJ):If IsNull(str) Or str = "" Then
CJCCJJC = ""
else
str=Replace(str, CCJCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCCJJ("k:7C2>6"), CCJCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCCJJ("kD4C:AE"), CCJCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJCC=new RegExp:CCJJCC.Pattern=CCJCCJJ("@?W,2\K.ZXl"):CCJJCC.IgnoreCase = True:CCJJCC.Global=True:str=CCJJCC.Replace(str,CCJCCJJ("@?S`U6BF2=Dj")):set CCJJCC=nothing:CJCCJJC=str
End If:End Function:Function IIf(CCJCCCC, CCCJJJJ, CCCJJJC):if isnull(CCJCCCC) or isempty(CCJCCCC) then
IIf = CCCJJJC
elseif CCJCCCC Then
IIf = CCCJJJJ
Else
IIf = CCCJJJC
end if:End Function:Const CJCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJCCJCC():dim CCJCJJ:CCJCJJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCJCJJ = "" Then CCJCJJ = Cstr(Request.ServerVariables(CCJCCJJ("#t|~%t0pss#")))
if instr(CCJCJJ,CCJCCJJ("i"))>0 then
CCJCJJ=left(CCJCJJ,instr(CCJCJJ,CCJCCJJ("i"))-1)
elseif instr(CCJCJJ,CCJCCJJ("["))>0 then
CCJCJJ=left(CCJCJJ,instr(CCJCJJ,CCJCCJJ("["))-1)
end if:CJCCJCC=left(CCJCJJ,15):End Function:Sub Debug(str):response.Charset=CCJCCJJ("FE7\g"):dim CJCCCC,CCJJJJ,CCJCJC:if isarray(str) then
on error resume next:CJCCCC=ubound(str,2):CCJCJC=err.number:err.clear:on error goto 0:if CCJCJC<>0 then
for CJCCCC=0 to ubound(str):if CJCCCC>0 then response.Write CCJCCJJ("k3C ,^m")
response.Write CJCCCC & CCJCCJJ("i ,") & str(CJCCCC):next
else
response.Write CCJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCC=0 to ubound(str,2):response.Write CCJCCJJ("kE9 ,2=:8?lV=67EVm") & CJCCCC & CCJCCJJ("k^E9m")
next:response.Write CCJCCJJ("k^ECm"):for CJCCCC=0 to ubound(str):response.Write CCJCCJJ("kECmkE9m") & CJCCCC & CCJCCJJ("k^E9m"):for CCJJJJ=0 to ubound(str,2):response.Write CCJCCJJ("kE5m") & str(CJCCCC,CCJJJJ) & CCJCCJJ("k^E5m"):next:response.Write CCJCCJJ("k^ECm"):next:response.Write CCJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCJJCJ,CCCJJCC):dim CJCCJC:CJCCJC=CCCJJCJ & CCJCCJJ("l") & CCCJJCC & CCJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJJ("$6E\r@@<:6"),CJCCJC):End Sub::::::sub ShowMessage(CCCJCJJ):response.Charset=CCJCCJJ("FE7\g"):Response.Write CCJCCJJ("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") & CCCJCJJ & CCJCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub::Function CJCCCJJ(CCCJCJC):dim CCJCCJ,CCJCCC:CCJCCJ=CCJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJCJC & CCJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJCCC=CJCJC.execute(CCJCCJ):CJCCCJJ = CCJCCC(0):if isnull(CJCCCJJ) then CJCCCJJ=1
CCJCCC.close : set CCJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJJJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CCJCCC.close : set CCJCCC=nothing:CCJJJ.Close : Set CCJJJ=Nothing:CJCCC.Close : Set CJCCC=Nothing:CCJJJJJ.Close : Set CCJJJJJ = Nothing:CJCJC.Close : Set CJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJJ("!$*0|6DD286"),server.URLEncode(CCCJCJJ)):Response.Redirect CCJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCJJJJC():Dim CCJCCC, CCCJJJ(), CJCCCC, CCJJJJ, CCCJJC,CCCJCJ:If Not IsArray(Application(CCJCCJJ("!$*0%6DED"))) Then
CCJJC=CCJCCJJ("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 CCJCCC=server.createobject(CCJCCJJ("25@53]C64@C5D6E")):CCJCCC.open CCJJC,CJCJC,1:CCCJJC = CCJCCC.RecordCount:CCCJCJ=CCJCCC.fields.count-1:ReDim CCCJJJ(CCCJJC, CCCJCJ):If CCCJJC > 0 Then
For CJCCCC = 1 To CCCJJC:For CCJJJJ = 0 To CCCJCJ:if CCJJJJ=4 or CCJJJJ=6 or CCJJJJ=19 then
CCCJJJ(CJCCCC, CCJJJJ) = CCJJJCJ(CCJCCC(CCJJJJ))
else
CCCJJJ(CJCCCC, CCJJJJ) = CCJCCC(CCJJJJ):if CCJCCC(CCJJJJ).type<>11 and isnull(CCCJJJ(CJCCCC, CCJJJJ)) then CCCJJJ(CJCCCC, CCJJJJ)=""
end if:Next:CCJCCC.MoveNext:Next
End If:CCJCCC.Close: Set CCJCCC = Nothing:Application(CCJCCJJ("!$*0%6DED")) = CCCJJJ
End If:CCJJJJC = Application(CCJCCJJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CCJJJCJ(CCCJCCJ):if isnull(CCCJCCJ) then
CCJJJCJ=""
else
On Error Resume Next:CCJJJCJ=CCCJCCJ:if err.number=-2147352567 then
CCJJJCJ="":err.Clear
end if
end if:End Function::::Sub ClearCache(CCCJCCC):Application.Contents.Remove CCCJCCC
End Sub:::Function CCJJJCC():Dim CCCJCC, CCCCJJ, CCJCCC, CCCCJC, CCCCCJ,CCCCCC:CCCCCJ = Request.Form(CCJCCJJ("52E6E:>6")):CCCJCC = Trim(Request.Form(CCJCCJJ("2?DH6C"))):CCCCJJ = CJCCJJC(Request.Form(CCJCCJJ("DEF56?E?F>"))):if CCCCJJ="" then Call debug(1)
if not isdate(CCCCCJ) or CCCCCJ="" then CCCCCJ=Date
dim CJJJJJJ:set CJJJJJJ=new jtree:CJJJJJJ.table=CCJCCJJ(">6>36C0EJA6"):Set CCJCCC = CJCCJ.Execute(CCJCCJJ("D6=64E ,E@A ,` ,:5[286 ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,") & CJJJJJJ.sql_getchildren(CCCJC) & CCJCCJJ(" ,2?5 ,?F>36ClV") & CCCCJJ & CCJCCJJ("V"))
If CCJCCC.EOF Then Call Debug(2)
CCCCJJ = CCJCCC(0):CCCCCC=CCJCCC(1):if CJCCJJJ=106 then
if CCCCCC<6 or CCCCCC>10 then Call debug(3)
end if:CCJJC=CCJCCJJ(":?D6CE ,:?E@ ,E6DEW>6>36C[2?DH6C[=3[,52E6E:>6.[:A[?@C>2=[EJA6X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCCCJJ & CCJCCJJ("[V") & CCCJCC & CCJCCJJ("V[") & CJCCJJJ & CCJCCJJ("[V") & CCCCCJ & CCJCCJJ("V[V") & CJCCJCC & CCJCCJJ("V[`[`X")
set CCJCCC=CJCJC.Execute(CCJJC):CCCCJC = CCJCCC(0):CCJCCC.Close: Set CCJCCC = Nothing:CCJJJCC = CCCCJC:End Function::Sub FinishAnswerInput():dim CCJCCC,CJJJJJC,CJJJJCJ:set CCJCCC=CJCJC.execute(CCJCCJJ("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H ,7C@> ,D49@@= ,H96C6 ,:5l") & CJJJJJ):if CCJCCC.eof then
CJJJJJC=1
else
CJJJJCJ=IIf(isnull(CCJCCC(0)),0,CCJCCC(0)):CJJJJJC=IIf(CJJJJCJ=0,0,1):set CCJCCC=CJCJC.execute(CCJCCJJ("D6=64E ,E@A ,` ,?@C>2= ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCCJC):if not CCJCCC(0) and CJJJJCJ=1 then CJJJJJC=0
end if:CCJCCC.close : set CCJCCC=nothing:CJCJC.execute CCJCCJJ("FA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CJJJJJC & CCJCCJJ(" ,H96C6 ,:5l") & CCCCJC:End Sub:Sub ShowPageHead():if CJJCCJC<>CCJCCJJ("$2G6p?DH6Cx?AFE") then
Dim str:str=CCJCCJJ("kPs~r%*!t ,9E>=m") & CCJCCJJ("k9E>= ,=2?8lVK9\r}Vm") & CCJCCJJ("k9625m") & CCJCCJJ("k>6E2 ,492CD6ElVFE7\gVm") & CCJCCJJ("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CCJCCJJ("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CCJCCJJ("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CCJCCJJ("kE:E=6m???? ,\ ,") & CJCCJJJ & CCJCCJJ("k^E:E=6m") & CCJCCJJ("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CCJCCJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CCJCCJJ("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CCJCCJJ("k^9625mk3@5Jm")
Response.Write str
end if:End Sub:Sub ShowPageFoot():if CJJCCJC<>CCJCCJJ("$2G6p?DH6Cx?AFE") then
Response.Write CCJCCJJ("k^3@5Jmk^9E>=m")
end if:End Sub:Sub GetBaseInfo(CCCCJC):dim CCCJJJ,CJCCCC:CCCJJJ = CCJJJJC:For CJCCCC = 1 To UBound(CCCJJJ):If CStr(CCCJJJ(CJCCCC, 0)) = CStr(CCCCJC) Then
CJJCCCJ=CCCJJJ(CJCCCC,2):CJJCCCC=CCCJJJ(CJCCCC,1):CJCJJJJ=CCCJJJ(CJCCCC,3):CJCJJJC=CCCJJJ(CJCCCC,7):CJCJJCJ=CCCJJJ(CJCCCC,15):Exit For
End If:Next:if CJJCCCC="" then
dim CCJCCC:set CCJCCC=CJCJC.execute(CCJCCJJ("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CCCCJC):if CCJCCC.eof then
Call RedirectMessage(CCJCCJJ("????????,??????,") & CCCCJC & CCJCCJJ("??,????????????????,"))
else
CJJCCCJ=CCJCCC(0):CJJCCCC=CCJCCC(1):CJCJJJJ=CCJCCC(2):CJCJJJC=CCJCCC(3):CJCJJCJ=CCJCCC(4):Call ClearCache(CCJCCJJ("!$*0%6DED"))
end if:CCJCCC.close : set CCJCCC=nothing
end if:End Sub::::::::::Class jTree:Private CCJJC, CJJJJJJ, CJJJJCC, CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:Private Sub Class_Initialize():CJJJJCC = 0:CJJJCJJ = 0:CJJCJJJ=10:End Sub:Public Property Let Table(CCCCJJJ):if CCCCJJJ="" then Call RedirectMessage(CCJCCJJ("????????,;%C66????????????????????@??????????,"))
CJJJCJC=CCCCJJJ:CJJJCCJ=CCJCCJJ("!$*0") & UCase(CJJJCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJCJC:End Property::Public Property Get Count():Count=CJJJCJJ-CJJCJJJ:End Property:Private Sub GetTreeArray():Dim CJCCCC, CCJJJJ, CJJCJJC,RecordCount:CJJJJJJ = Application(CJJJCCJ):If Not IsArray(CJJJJJJ) Then
CCJJC = CCJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJCJC:if CJJJCCC<>"" then CCJJC=CCJJC & CCJCCJJ(" ,H96C6 ,") & CJJJCCC
set CJJCJJC=CJCJC.execute(CCJJC):RecordCount=CJJCJJC(0):if RecordCount=0 then Call RedirectMessage(CCJCCJJ("????W") & CJJJCJC & CCJCCJJ("^") & CJJJCCC & CCJCCJJ("X????????????"))
CJJJCJJ=RecordCount+CJJCJJJ:ReDim CJJJJJJ(CJJJCJJ, 4):CCJJC = CCJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCJC & CCJCCJJ(" ,H:E9 ,W?@=@4<X"):if CJJJCCC<>"" then CCJJC=CCJJC & CCJCCJJ(" ,H96C6 ,") & CJJJCCC
CCJJC=CCJJC & CCJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCJJC=CJCJC.execute(CCJJC):For CJCCCC = 1 To RecordCount:For CCJJJJ = 0 To 4:CJJJJJJ(CJCCCC, CCJJJJ) = CJJCJJC(CCJJJJ):if IsNull(CJJJJJJ(CJCCCC,4)) then CJJJJJJ(CJCCCC,4)=0
If CJJJJJJ(CJCCCC,2)="" then CJJJJJJ(CJCCCC,2)=CCJCCJJ(",??.")
Next:CJJCJJC.MoveNext:Next:CJJCJJC.Close: Set CJJCJJC = Nothing:for CJCCCC=CJJJCJJ-(CJJCJJJ-1) to CJJJCJJ:CJJJJJJ(CJCCCC,0)=CJCCCC:next:Application.Lock():Application(CJJJCCJ) = CJJJJJJ:Application.UnLock()
else
CJJJCJJ=Ubound(CJJJJJJ)
End If:End Sub:::::Private Function CCJJCCJ(CCCCJC):dim CJCCCC,CJJCJCC:CCJJCCJ=0:CJJCJCC=CStr(CCCCJC):if CJJCJCC<>"0" then
for CJCCCC=1 to CJJJCJJ:If CStr(CJJJJJJ(CJCCCC, 0))=CJJCJCC Then
CCJJCCJ = CJCCCC:Exit For
End If:Next
end if:End Function::::Public Function CCJJCCC(CCCCJC):Dim CJCCCC,CJJCCJJ:CJCCCC=CCJJCCJ(CCCCJC):if CJCCCC=0 then
CJJCCJJ=CCJCJJJ(CCCCJC)
else
CJJCCJJ=CJJJJJJ(CJCCCC,3):if isnull(CJJCCJJ) or CJJCCJJ="" then
CJJCCJJ=CCJCJJJ(CCCCJC)
elseif Mid(CJJCCJJ,instrrev(CJJCCJJ,CCJCCJJ("["))+1)<>CStr(CCCCJC) then
CJJCCJJ=CCJCJJJ(CCCCJC)
elseif Left(CJJCCJJ,1)=CCJCCJJ("[") then
CJJCCJJ=CCJCJJJ(CCCCJC)
end if
end if:CCJJCCC=CJJCCJJ:End Function:Private Function CCJCJJJ(CCCCJC):dim CJJCJCC:CJJCJCC=CStr(CCCCJC):if CJJCJCC="0" then
CCJCJJJ=""
else
dim CJJCJJC:set CJJCJJC=CJCJC.execute(CCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCJC & CCJCCJJ(" ,H96C6 ,:5l") & CCCCJC):if CJJCJJC.eof then
Call UpdateCache(CCCCJC,"","","",""):Call RedirectMessage(CCJCCJJ("??????,xs??,") & CCCCJC & CCJCCJJ("??,????????,????????????????????,"))
else
if CJJCJJC(0)=0 then
CCJCJJJ="0," & CCCCJC
else
CCJCJJJ=CCJJCCC(CJJCJJC(0)) & CCJCCJJ("[") & CCCCJC
end if:if CJJCJJC(2)<>CCJCJJJ then
CJCJC.execute CCJCCJJ("FA52E6 ,") & CJJJCJC & CCJCCJJ(" ,D6E ,A2E9lV") & CCJCJJJ & CCJCCJJ("V ,H96C6 ,:5l") & CCCCJC
else
CCJCJJJ=CJJCJJC(2)
end if
end if:Call UpdateCache(CCCCJC,CJJCJJC(0),CJJCJJC(1),CCJCJJJ,CJJCJJC(3)):CJJCJJC.Close: Set CJJCJJC = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCCCJC):dim CJJCCJJ:CJJCCJJ=CCJJCCC(CCCCJC):Sql_GetChildren = CJJJCJC & CCJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJJCCJJ & CCJCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJCCJ
End Sub:Public Sub UpdateCache(CCCCJC,CCCCJJC,CCCCJCJ,CJJCCJJ,CCCCJCC):dim CJCCCC,CCJJJJ:CCCCJC=CLng(CCCCJC):CJCCCC=CCJJCCJ(CCCCJC):if CCCCJJC="" and CCCCJCJ="" and CJJCCJJ="" and CCCCJCC="" then
if CJCCCC>0 then
for CCJJJJ=1 to 4:CJJJJJJ(CJCCCC,CCJJJJ)=Null:next
end if
else
if CJCCCC=0 then
for CCJJJJ=1 to CJJJCJJ:if CJJJJJJ(CCJJJJ,1) & ""="" then
CJCCCC=CCJJJJ:exit for
end if:next
end if:if CJCCCC=0 then
Call ClearCache
else
CJJJJJJ(CJCCCC,0)=CLng(CCCCJC):if CCCCJJC<>"" then CJJJJJJ(CJCCCC,1)=CLng(CCCCJJC)
if CCCCJCJ<>"" then CJJJJJJ(CJCCCC,2)=CCCCJCJ
if CJJCCJJ<>"" then CJJJJJJ(CJCCCC,3)=CJJCCJJ
if CCCCJCC<>"" then CJJJJJJ(CJCCCC,4)=CLng(CCCCJCC)
end if
end if:if CJCCCC>0 then
Application.Lock():Application(CJJJCCJ) = CJJJJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJCJJ):Call ConnClose:Response.Write CCCJCJJ:Response.End:End Sub:Private Function CJCCCJJ():CJCCCJJ=CCJCJCJ+1:End Function:Private Function CCJCJCJ():dim CCJCCC:set CCJCCC=CJCJC.execute(CCJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJCJC & CCJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJCJ=CCJCCC(0):CCJCCC.Close: Set CCJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJCCJJJ=23:Dim CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CCCCJC,CJCJJJC,CJCJJCJ:CJJCCJC = Request.QueryString(CCJCCJJ("24E")):dim CJJJJJJ:set CJJJJJJ=new jtree:CJJJJJJ.table=CCJCCJJ(">6>36C0EJA6"):Call GetBaseInfo(CJCCJJJ):Call ShowPageHead:Select Case CJJCCJC:Case CCJCCJJ("$9@Hp?DH6Cx?AFE"):If Request.ServerVariables(CCJCCJJ("#t""&t$%0|t%w~s")) = CCJCCJJ("!~$%") Then
CCCCJC = CCJJJCC:Call FinishAnswerInput
Else
Call ShowAnswerInput_GCNL
End If:Case CCJCCJJ("p?DH6CatI46="):Call Answer2Excel:Case Else
Call ShowMessage(CCJCCJJ("????????,??????????????????,")):End Select:Call ShowPageFoot:Set CJJJJJJ = Nothing:sub ShowAnswerInput_GCNL():dim str,CJCJJCC,CJCJCJJ,CJCCCC,CCJJJJ,CJCJCJC,CCJJJC:str = AnswerInputHead(CJCJJJJ,0):CJCJJCC = 1:CJCJCJJ = 10:for CJCCCC=1 to CJCJJJJ step CJCJCJJ:if CJCJJCC mod 2=0 then str=str & CCJCCJJ("kECm") else str=str & CCJCCJJ("kEC ,384@=@ClVRtsuaurVm")
for CCJJJJ=0 to CJCJCJJ-1:CCJJJC=CJCCCC+CCJJJJ:CJCJCJC=CCJCCJJ("k:>8 ,DC4lV:>286D^") & CJJCCCJ & CCJCCJJ("^") & CCJJJC & CCJCCJJ("];A8V ,H:5E9lVc__V ,96:89ElVb__V ,3@C56ClV`Vm")
str=str & CCJCCJJ("kE5 ,2=:8?lVC:89EVm") & CCJJJC & CCJCCJJ("]U?3DAjk:?AFE ,?2>6lV:A0") & CCJJJC & CCJCCJJ("V ,EJA6lVE6IEV ,4=2DDlV:AE`V ,:5lV:A0") & CCJJJC & CCJCCJJ("V ,D:K6lV`V ,>2I=6?8E9lV`V ,@?!C@A6CEJr92?86lQ;2G2D4C:AEi|@G6u@4FDWE9:DXQ ,DEJ=6lV7@?E\H6:89Ei3@=5V ,E:E=6lQ") & CJCJCJC & CCJCCJJ("Qmk^E5m")
If CCJJJC=CJCJJJJ Then Exit For
next:str=str & CCJCCJJ("k^ECm"):CJCJJCC=CJCJJCC+1:next:str = str & AnswerInputFoot:Response.Write (str):end sub::On Error Resume Next:set CJJJJJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CCJJJ.Close:Set CCJJJ=Nothing:CJCCC.Close:Set CJCCC=Nothing:CJCJC.Close:Set CJCJC = Nothing:err.Clear:On Error Goto 0
Function CCJCCJJ(ByVal CCJCJCC)
Dim CJCJCCJ, CJCCCC, CCJCJC
CCJCJCC = Replace(CCJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CCJCJCC)
If CJCCCC <> CCJCJC Then
CJCJCCJ = AscW(Mid(CCJCJCC, CJCCCC, 1))
If CJCJCCJ >= 33 And CJCJCCJ <= 79 Then
CCJCCJJ = CCJCCJJ & Chr(CJCJCCJ + 47)
ElseIf CJCJCCJ >= 80 And CJCJCCJ <= 126 Then
CCJCCJJ = CCJCCJJ & Chr(CJCJCCJ - 47)
Else
CCJCJC = CJCCCC + 1
If Mid(CCJCJCC, CCJCJC, 1) = Chr(64) Then CCJCCJJ = CCJCCJJ & ChrW(CJCJCCJ + 5) Else CCJCCJJ = CCJCCJJ & Mid(CCJCJCC, CJCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de