Edit D:\xinhaisoft\crisis_new\jiaowei\admin\article

Edit D:\xinhaisoft\crisis_new\jiaowei\admin\article_act.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCJ, CJJCCC,CJCJJJ, CJCJJC, CJCJCJ:Set CJJCCJ = server.CreateObject(CCCJJJC("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CCCJJJC("r@??64E:@?$EC:?8")):Set CJJCCC=CJJCCJ::Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC:CCCCJC=Trim(Request.Cookies(CCCJJJC("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
CJCJCJ=CCCJJJC("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") & CJCCJJ & CCCJJJC("V ,2?5 ,:5l") & CJCJCC
set CJCJJJ=CJJCCJ.execute(CJCJCJ):If CJCJJJ.EOF Then
Call ClearMemberCookie
Else
CJCCJC=CJCJJJ(2) & "":CJCCCJ=CJCJJJ(3):CJCCCC=CJCJJJ(5):CCJJJJ=CJCJJJ(6):CCJJJC=CJCJJJ(9):CCJJCJ=CJCJJJ(15):CCJCJJ=CJCJJJ(0):CCCJCC=CJCJJJ(1):CCCJCJ=CJCJJJ(11) & "":CCJCJC=CJCJJJ(10) & "":CCJJCC=CJCJJJ(12):CCJCCJ=CJCJJJ(14):CCJCCC=CJCJJJ(13):CCCJJJ=CJCJJJ(7) & "":CCCJJC=CJCJJJ(4):CCCCJJ=CJCJJJ(8):if isnull(CCJJCJ) then CCJJCJ=0
if isnull(CCJJJC) or CCJJJC=0 then CCJJJC=CJCCCJ
if isnull(CCCJJC) then CCCJJC=0
if isnull(CJCCCC) then CJCCCC=0
if instr(CCCJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CCCJJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:Sub CheckRight(CCCJJCJ):dim CCCCCJ,CCCCCC:if CJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJJC("??????????????,????????????,"))
elseIf not CJCCCCC(CCCJJCJ) then
Call RedirectMessage(CCCJJJC("????W") & CCCJJCJ & CCCJJJC("X????????,????????????????????,"))
end if:End Sub:Function CJCCCCC(CCCJJCJ):dim CCCCCJ,CCCCCC:CCCCCC=split(CCCJJCJ,CCCJJJC("[")):CJCCCCC=False:for CCCCCJ=0 to ubound(CCCCCC):If Mid(CJCCJC,CCCCCC(CCCCCJ),1)="1" then
CJCCCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCJJJC("!$*|t|qt#"))="":CJCJCC=0:CCJJJJ=0:CJCCJJ=Empty:CJCCCC=0:CCJJCJ=0:CCJJJC=0:CJCCCJ=0:CCJCJJ=False:CCCJCC=False:CCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJJJJJC,CCCCCJ,CJJJJCJ,CJJJJCC:CJJJJJJ=split(CCCCJC,CCCJJJC("]")):if ubound(CJJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJJC=CJJJJJJ(1):for CCCCCJ=1 to len(CJJJJJC):CJJJJCJ=mid(CJJJJJC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJJC=CJJJJJJ(2):if CJJJJCC<>mid(CJJJJJC,6,7) then
Call ClearMemberCookie
else
CJJJJCJ=mid(CJJJJJC,18,10)/2:if CJJJJCJ<DateDiff(CCCJJJC("D"), CCCJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCC=Clng(CJJJJJJ(0)):CJCCJJ=CJJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCJJC,CCCJJCC):dim CCCCCJ,CJJJJCJ,CJJJJCC:for CCCCCJ=1 to len(CCCJJCC):CJJJJCJ=mid(CCCJJCC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CJCCJJC & CCCJJJC("]") & CCCJJCC & CCCJJJC("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJJC("D"), CCCJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJJC("!$*|t|qt#"))=CJJJJCC:End Sub::Function CCJJJJJ(CCCJCJJ):Dim str,CJJJCJC:str = Trim(CCCJCJJ):If IsNull(str) Or str = "" Then
CCJJJJJ = ""
else
str=Replace(str, CCCJJJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCJJJC("k:7C2>6"), CCCJJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJJJC("kD4C:AE"), CCCJJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCJC=new RegExp:CJJJCJC.Pattern=CCCJJJC("@?W,2\K.ZXl"):CJJJCJC.IgnoreCase = True:CJJJCJC.Global=True:str=CJJJCJC.Replace(str,CCCJJJC("@?S`U6BF2=Dj")):set CJJJCJC=nothing:CCJJJJJ=str
End If:End Function:Function IIf(CCCJCJC, CCCJCCJ, CCCJCCC):if isnull(CCCJCJC) or isempty(CCCJCJC) then
IIf = CCCJCCC
elseif CCCJCJC Then
IIf = CCCJCCJ
Else
IIf = CCCJCCC
end if:End Function:Const CJCCCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCJJJCJ():dim CJJJCCJ:CJJJCCJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJJCCJ = "" Then CJJJCCJ = Cstr(Request.ServerVariables(CCCJJJC("#t|~%t0pss#")))
if instr(CJJJCCJ,CCCJJJC("i"))>0 then
CJJJCCJ=left(CJJJCCJ,instr(CJJJCCJ,CCCJJJC("i"))-1)
elseif instr(CJJJCCJ,CCCJJJC("["))>0 then
CJJJCCJ=left(CJJJCCJ,instr(CJJJCCJ,CCCJJJC("["))-1)
end if:CCJJJCJ=left(CJJJCCJ,15):End Function:Sub Debug(str):response.Charset=CCCJJJC("FE7\g"):dim CCCCCJ,CJJJJCJ,CJJJCCC:if isarray(str) then
on error resume next:CCCCCJ=ubound(str,2):CJJJCCC=err.number:err.clear:on error goto 0:if CJJJCCC<>0 then
for CCCCCJ=0 to ubound(str):if CCCCCJ>0 then response.Write CCCJJJC("k3C ,^m")
response.Write CCCCCJ & CCCJJJC("i ,") & str(CCCCCJ):next
else
response.Write CCCJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCJ=0 to ubound(str,2):response.Write CCCJJJC("kE9 ,2=:8?lV=67EVm") & CCCCCJ & CCCJJJC("k^E9m")
next:response.Write CCCJJJC("k^ECm"):for CCCCCJ=0 to ubound(str):response.Write CCCJJJC("kECmkE9m") & CCCCCJ & CCCJJJC("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CCCJJJC("kE5m") & str(CCCCCJ,CJJJJCJ) & CCCJJJC("k^E5m"):next:response.Write CCCJJJC("k^ECm"):next:response.Write CCCJJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCJJJ,CCCCJJC):dim CJJJJJJ:CJJJJJJ=CCCCJJJ & CCCJJJC("l") & CCCCJJC & CCCJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJJC("$6E\r@@<:6"),CJJJJJJ):End Sub::::::sub ShowMessage(CCCCJCJ):response.Charset=CCCJJJC("FE7\g"):Response.Write CCCJJJC("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") & CCCCJCJ & CCCJJJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJJJCC(CJJJCCC):if isnull(CJJJCCC) or trim(CJJJCCC)="" or not isnumeric(CJJJCCC) then
CCJJJCC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CCCJJJC("/-5ZS"):CJJJCJC.IgnoreCase = True:CCJJJCC = CJJJCJC.test(CJJJCCC):set CJJJCJC=nothing
end if:End Function:Function CCJJCJJ(CCCCJCC):dim CJJCJJJ,CJJCJJC:CJJCJJJ=CCCJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCJCC & CCCJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJJC=CJJCCJ.execute(CJJCJJJ):CCJJCJJ = CJJCJJC(0):if isnull(CCJJCJJ) then CCJJCJJ=1
CJJCJJC.close : set CJJCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCCJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CJJCJJC.close : set CJJCJJC=nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CCJCJJJ.Close : Set CCJCJJJ = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJJC("!$*0|6DD286"),server.URLEncode(CCCCJCJ)):Response.Redirect CCCJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::Function CCJCJJC(CCCCCJJ,str):dim CCCCCJ,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJJCCC,CJJCCJC,CJJJJCC:CJJJJCC=ucase(CCCCCJJ):CJJCCJC=str:if CJJCCJC="" then
CJJCCJC=request.cookies(CJJJJCC):if CJJCCJC="" then
CCJCJJC=""
else
CJJCCJC=strreverse(CJJCCJC):CJJCJCJ=len(CJJCCJC):for CCCCCJ=1 to CJJCJCJ-1 step 2:CJJCCJJ=mid(CJJCCJC,CCCCCJ,1):CJJJCCC=mid(CJJCCJC,CCCCCJ+1,1):CJJCJCC=CJJCJCC & CJJJCCC & CJJCCJJ:next:CJJCJCC=replace(CJJCJCC,CCCJJJC("L0N"),CCCJJJC(" ,")):CJJCJCC=replace(CJJCJCC,CCCJJJC("LIN"),CCCJJJC("Y")):CJJCJCC=replace(CJJCJCC,CCCJJJC("L:N"),CCCJJJC("^")):CCJCJJC=trim(CJJCJCC)
end if
else
if Len(CJJCCJC) Mod 2=1 then CJJCCJC=CJJCCJC & CCCJJJC(" ,")
CJJCCJC=replace(CJJCCJC,CCCJJJC(" ,"),CCCJJJC("L0N")):CJJCCJC=replace(CJJCCJC,CCCJJJC("Y"),CCCJJJC("LIN")):CJJCCJC=replace(CJJCCJC,CCCJJJC("^"),CCCJJJC("L:N")):CJJCJCJ=len(CJJCCJC):for CCCCCJ=1 to CJJCJCJ-1 step 2:CJJCCJJ=mid(CJJCCJC,CCCCCJ,1):CJJJCCC=mid(CJJCCJC,CCCCCJ+1,1):CJJCJCC=CJJCJCC & CJJJCCC & CJJCCJJ:next:CJJCJCC=Trim(strreverse(CJJCJCC)):CCJCJJC=CJJCJCC:response.cookies(CJJJJCC)=CJJCJCC
end if:End Function::Sub ClearCache(CCCCCJC):Application.Contents.Remove CCCCCJC
End Sub::Class jTree:Private CJCJCJ, CJJCCCJ, CJJCCCC, CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Private Sub Class_Initialize():CJJCCCC = 0:CJCJJJJ = 0:CJCJCJJ=10:End Sub:Public Property Let Table(CCCCCCJ):if CCCCCCJ="" then Call RedirectMessage(CCCJJJC("????????,;%C66????????????????????@??????????,"))
CJCJJJC=CCCCCCJ:CJCJJCJ=CCCJJJC("!$*0") & UCase(CJCJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJC:End Property:::Private Sub GetTreeArray():Dim CCCCCJ, CJJJJCJ, CJCJCJC,CJCJCCJ:CJJCCCJ = Application(CJCJJCJ):If Not IsArray(CJJCCCJ) Then
CJCJCJ = CCCJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJC:if CJCJJCC<>"" then CJCJCJ=CJCJCJ & CCCJJJC(" ,H96C6 ,") & CJCJJCC
set CJCJCJC=CJJCCJ.execute(CJCJCJ):CJCJCCJ=CJCJCJC(0):if CJCJCCJ=0 then Call RedirectMessage(CCCJJJC("????W") & CJCJJJC & CCCJJJC("^") & CJCJJCC & CCCJJJC("X????????????"))
CJCJJJJ=CJCJCCJ+CJCJCJJ:ReDim CJJCCCJ(CJCJJJJ, 4):CJCJCJ = CCCJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCJJJC(" ,H:E9 ,W?@=@4<X"):if CJCJJCC<>"" then CJCJCJ=CJCJCJ & CCCJJJC(" ,H96C6 ,") & CJCJJCC
CJCJCJ=CJCJCJ & CCCJJJC(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJC=CJJCCJ.execute(CJCJCJ):For CCCCCJ = 1 To CJCJCCJ:For CJJJJCJ = 0 To 4:CJJCCCJ(CCCCCJ, CJJJJCJ) = CJCJCJC(CJJJJCJ):if IsNull(CJJCCCJ(CCCCCJ,4)) then CJJCCCJ(CCCCCJ,4)=0
If CJJCCCJ(CCCCCJ,2)="" then CJJCCCJ(CCCCCJ,2)=CCCJJJC(",??.")
Next:CJCJCJC.MoveNext:Next:CJCJCJC.Close: Set CJCJCJC = Nothing:for CCCCCJ=CJCJJJJ-(CJCJCJJ-1) to CJCJJJJ:CJJCCCJ(CCCCCJ,0)=CCCCCJ:next:Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock()
else
CJCJJJJ=Ubound(CJJCCCJ)
End If:End Sub:::::Private Function CCJCJCC(CJCCJJC):dim CCCCCJ,CJCJCCC:CCJCJCC=0:CJCJCCC=CStr(CJCCJJC):if CJCJCCC<>"0" then
for CCCCCJ=1 to CJCJJJJ:If CStr(CJJCCCJ(CCCCCJ, 0))=CJCJCCC Then
CCJCJCC = CCCCCJ:Exit For
End If:Next
end if:End Function:Public Function CCJCCJJ(CJCCJJC):if Cstr(CJCCJJC)="0" then
CCJCCJJ=CCCJJJC("??")
else
Dim CCCCCJ,CJCJCJC:CCCCCJ=CCJCJCC(CJCCJJC):if CCCCCJ>0 then
CCJCCJJ=CJJCCCJ(CCCCCJ,2):if CCJCCJJ="" then
set CJCJCJC=CJJCCJ.execute(CCCJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCJJJC(" ,H96C6 ,:5l") & CJCCJJC):if CJCJCJC.eof then Call RedirectMessage(CCCJJJC("xs??,") & CJCCJJC & CCCJJJC("??,??????"))
CCJCCJJ=CJCJCJC(1):Call UpdateCache(CJCCJJC,CJCJCJC(0),CCJCCJJ,CJCJCJC(2),CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing
end if
else
set CJCJCJC=CJJCCJ.execute(CCCJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCJJJC(" ,H96C6 ,:5l") & CJCCJJC):if CJCJCJC.eof then Call RedirectMessage(CCCJJJC("xs??,") & CJCCJJC & CCCJJJC("??,??????"))
CCJCCJJ=CJCJCJC(1):Call UpdateCache(CJCCJJC,CJCJCJC(0),CCJCCJJ,CJCJCJC(2),CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing
end if
end if:End Function:::Public Function CCJCCJC(CJCCJJC):Dim CCCCCJ,CJCCJJJ:CCCCCJ=CCJCJCC(CJCCJJC):if CCCCCJ=0 then
CJCCJJJ=CCJCCCJ(CJCCJJC)
else
CJCCJJJ=CJJCCCJ(CCCCCJ,3):if isnull(CJCCJJJ) or CJCCJJJ="" then
CJCCJJJ=CCJCCCJ(CJCCJJC)
elseif Mid(CJCCJJJ,instrrev(CJCCJJJ,CCCJJJC("["))+1)<>CStr(CJCCJJC) then
CJCCJJJ=CCJCCCJ(CJCCJJC)
elseif Left(CJCCJJJ,1)=CCCJJJC("[") then
CJCCJJJ=CCJCCCJ(CJCCJJC)
end if
end if:CCJCCJC=CJCCJJJ:End Function:Private Function CCJCCCJ(CJCCJJC):dim CJCJCCC:CJCJCCC=CStr(CJCCJJC):if CJCJCCC="0" then
CCJCCCJ=""
else
dim CJCJCJC:set CJCJCJC=CJJCCJ.execute(CCCJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCJJJC(" ,H96C6 ,:5l") & CJCCJJC):if CJCJCJC.eof then
Call UpdateCache(CJCCJJC,"","","",""):Call RedirectMessage(CCCJJJC("??????,xs??,") & CJCCJJC & CCCJJJC("??,????????,????????????????????,"))
else
if CJCJCJC(0)=0 then
CCJCCCJ="0," & CJCCJJC
else
CCJCCCJ=CCJCCJC(CJCJCJC(0)) & CCCJJJC("[") & CJCCJJC
end if:if CJCJCJC(2)<>CCJCCCJ then
CJJCCJ.execute CCCJJJC("FA52E6 ,") & CJCJJJC & CCCJJJC(" ,D6E ,A2E9lV") & CCJCCCJ & CCCJJJC("V ,H96C6 ,:5l") & CJCCJJC
else
CCJCCCJ=CJCJCJC(2)
end if
end if:Call UpdateCache(CJCCJJC,CJCJCJC(0),CJCJCJC(1),CCJCCCJ,CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CJCCJJC,ByVal CCCCCCC):Dim Str, CCCCCJ:CJCCJJC=CLng(CJCCJJC):if isnumeric(CCCCCCC) then CCCCCCC=CLng(CCCCCCC) else CCCCCCC=0
if CJCCJJC>0 then str=CCCJJJC("k@AE:@? ,G2=F6lV") & CJCCJJC & CCCJJJC("V ,52E2\A:5lV_Vm") & CCJCCJJ(CJCCJJC) & CCCJJJC("k^@AE:@?m")
For CCCCCJ = 1 To CJCJJJJ:If CJCCJJC=0 or (CJCCJJC>0 and InStr(CJJCCCJ(CCCCCJ, 3), CCCJJJC("[") & CJCCJJC & CCCJJJC("[")) > 0) Then
str=str & CCCJJJC("k@AE:@?"):if CJJCCCJ(CCCCCJ,0)=CCCCCCC then str=str & CCCJJJC(" ,D6=64E65")
str=str & CCCJJJC(" ,G2=F6lV") & CJJCCCJ(CCCCCJ,0) & CCCJJJC("V ,52E2\A:5lV") & CJJCCCJ(CCCCCJ,1) & CCCJJJC("Vm") & CJJCCCJ(CCCCCJ,2) & CCCJJJC("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJCJ
End Sub:Public Sub UpdateCache(CJCCJJC,CJJJJJJJ,CJJJJJJC,CJCCJJJ,CJJJJJCJ):dim CCCCCJ,CJJJJCJ:CJCCJJC=CLng(CJCCJJC):CCCCCJ=CCJCJCC(CJCCJJC):if CJJJJJJJ="" and CJJJJJJC="" and CJCCJJJ="" and CJJJJJCJ="" then
if CCCCCJ>0 then
for CJJJJCJ=1 to 4:CJJCCCJ(CCCCCJ,CJJJJCJ)=Null:next
end if
else
if CCCCCJ=0 then
for CJJJJCJ=1 to CJCJJJJ:if CJJCCCJ(CJJJJCJ,1) & ""="" then
CCCCCJ=CJJJJCJ:exit for
end if:next
end if:if CCCCCJ=0 then
Call ClearCache
else
CJJCCCJ(CCCCCJ,0)=CLng(CJCCJJC):if CJJJJJJJ<>"" then CJJCCCJ(CCCCCJ,1)=CLng(CJJJJJJJ)
if CJJJJJJC<>"" then CJJCCCJ(CCCCCJ,2)=CJJJJJJC
if CJCCJJJ<>"" then CJJCCCJ(CCCCCJ,3)=CJCCJJJ
if CJJJJJCJ<>"" then CJJCCCJ(CCCCCJ,4)=CLng(CJJJJJCJ)
end if
end if:if CCCCCJ>0 then
Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJCJ):Call ConnClose:Response.Write CCCCJCJ:Response.End:End Sub:Private Function CCJJCJJ():CCJJCJJ=CCJCCCC+1:End Function:Private Function CCJCCCC():dim CJJCJJC:set CJJCJJC=CJJCCJ.execute(CCCJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJC & CCCJJJC(" ,@C56C ,3J ,:5 ,56D4")):CCJCCCC=CJJCJJC(0):CJJCJJC.Close: Set CJJCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(53):dim CJCCJJC,CJCCJCJ:CJCCJCJ=Request.QueryString(CCCJJJC("24E")):if CJCCJCJ="" then CJCCJCJ=Request.Form(CCCJJJC("24E"))
CJCCJJC=Request.QueryString(CCCJJJC(":5")):If Request.ServerVariables(CCCJJJC("#t""&t$%0|t%w~s"))=CCCJJJC("!~$%") Then
dim CJCCJCC:CJCCJCC=Trim(Request.Form(CCCJJJC(":5=:DE"))):CJCCJCC=replace(CJCCJCC,CCCJJJC(" ,"),""):if CJCCJCJ=CCCJJJC("255") then
CJCJCJ=CCCJJJC(":?D6CE ,:?E@ ,2CE:4=6WE:E=6[2FE9@C[4@?E6?E[A:4EFC6[EJA6[x![:DE@A[7C@>H96C6X ,G2=F6DW") & CCCJJJC("V") & CCJJJJJ(Request.Form(CCCJJJC("E:E=6"))) & CCCJJJC("V") & CCCJJJC("[") & CJCJCC  & CCCJJJC("[V") & CCJJJJJ(Request.Form(CCCJJJC("4@?E6?E"))) & CCCJJJC("V") & CCCJJJC("[V") & CCJJJJJ(Request.Form(CCCJJJC("A:4EFC6"))) & CCCJJJC("V") & CCCJJJC("[") & Request.Form(CCCJJJC("EJA6")) & CCCJJJC("[V") & CCJJJCJ & CCCJJJC("V") & CCCJJJC("[") & cint(Request.Form(CCCJJJC(":DE@A"))) & CCCJJJC("[V????????V") & CCCJJJC("X")
CJJCCJ.Execute CJCJCJ:Call ConnClose:response.Redirect CCCJJJC("2CE:4=6]2DAn{l") & Request.Form(CCCJJJC("EJA6")) & CCCJJJC("U$l:5U!l`")
elseif CJCCJCJ=CCCJJJC(">@5") and CCJJJCC(CJCCJJC) then
CJCJCJ=CCCJJJC("FA52E6 ,2CE:4=6 ,D6E") & CCCJJJC(" ,EJA6l") & Request.Form(CCCJJJC("EJA6")) & CCCJJJC("[E:E=6lV") & CCJJJJJ(Request.Form(CCCJJJC("E:E=6"))) & CCCJJJC("V") & CCCJJJC("[4@?E6?ElV") & CCJJJJJ(Request.Form(CCCJJJC("4@?E6?E"))) & CCCJJJC("V") & CCCJJJC("[A:4EFC6lV") & CCJJJJJ(Request.Form(CCCJJJC("A:4EFC6"))) & CCCJJJC("V") & CCCJJJC("[=2DEE:>6l86E52E6WX") & CCCJJJC("[:AlV") & CCJJJCJ & CCCJJJC("V") & CCCJJJC("[:DE@Al") & Cint(Request.Form(CCCJJJC(":DE@A"))) & CCCJJJC(" ,H96C6 ,:5l") & CJCCJJC
CJJCCJ.execute CJCJCJ:Call ConnClose:Response.Redirect CCJCJJC(CCCJJJC("&#{"),"")
elseif CJCCJCJ=CCCJJJC("56=") then
if CJCCJCC<>"" then
CJCJCJ=CCCJJJC("56=6E6 ,7C@> ,2CE:4=60C625 ,H96C6 ,2CE:4=6 ,:? ,W") & CJCCJCC & CCCJJJC("X") & CCCJJJC("j56=6E6 ,7C@> ,2CE:4=6072G@C:E6 ,H96C6 ,2CE:4=6 ,:? ,W") & CJCCJCC & CCCJJJC("X") & CCCJJJC("j56=6E6 ,7C@> ,2CE:4=6 ,H96C6 ,:5 ,:? ,W") & CJCCJCC & CCCJJJC("X"):CJJCCJ.execute CJCJCJ
end if:Call ConnClose:Response.Redirect CCJCJJC(CCCJJJC("&#{"),"")
elseif CJCCJCJ=CCCJJJC("4964<") then
if CJCCJCC<>"" then CJJCCJ.execute(CCCJJJC("FA52E6 ,2CE:4=6 ,D6E ,DE2EFDl_ ,H96C6 ,:5 ,:? ,W") & CJCCJCC & CCCJJJC("X"))
Call ConnClose:Response.Redirect CCJCJJC(CCCJJJC("&#{"),"")
end if
end if:dim CJCCCJJ:set CJCJJJ=CJJCCJ.execute(CCCJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,>6>36CEJA6l") & CJCCCJ):CJCCCJJ=CJCJJJ(0):dim CJJCCCJ:set CJJCCCJ=new jtree:CJJCCCJ.table=CCCJJJC("2CE:4=60EJA6"):Response.Write(vbCrLf):Response.Write(CCCJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJJJC("k9625m") & vbCrLf):Response.Write(CCCJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJJJC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJJJC("k^9625m") & vbCrLf):Response.Write(CCCJJJC("k3@5Jm") & vbCrLf):Response.Write(CCCJJJC("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CCCJJJC(" ,kF=m") & vbCrLf):Response.Write(CCCJJJC(" ,k=:mk2 ,9C67lQ2CE:4=6]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCJJJC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ2CE:4=6024E]2DAn24El255Qm????^????????k^2mk^=:m") & vbCrLf):Response.Write(CCCJJJC(" ,k=:mk2 ,9C67lQ2CE:4=60EJA6]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCJJJC(" ,k^F=m") & vbCrLf):Response.Write(CCCJJJC("k^5:Gm") & vbCrLf)::If CJCCJCJ=CCCJJJC("255") Then
Response.Write(vbCrLf):Response.Write(CCCJJJC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCCJJJC(" ,kE23=6 ,H:5E9lQhdTQ , ,3@C56ClQ_Q ,46==DA24:?8lQ`Qm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,H:5E9lQe_Q ,2=:8?lQC:89EQ ,?@HC2AlQ?@HC2AQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mkD6=64E ,?2>6lQEJA6Q ,:5lQD6=64EQm") & vbCrLf):Response.Write(CCCJJJC(" ,")):Call CJJCCCJ.ShowTree_Select(CJCCCJJ,0):Response.Write(vbCrLf):Response.Write(CCCJJJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE:E=6aQ ,D:K6lQe_Qmk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQm??@????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mkE6IE2C62 ,4=2DDlQ65:E@CQ ,?2>6lQ4@?E6?EQmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mk:?AFE ,?2>6lQA:4EFC6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQA:4EFC6Q ,D:K6lQf_Qm") & vbCrLf):Response.Write(CCCJJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJJC(" ,??,??????????????????,??????????y!v??vxu??,??????????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5m") & vbCrLf):Response.Write(CCCJJJC(" ,k:?AFE ,?2>6lQ:DE@AQ ,EJA6lQ4964<3@IQ ,:5lQ4964<3@IbQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCCJJJC(" ,k=236= ,7@ClQ4964<3@IbQm????^????k^=236=m") & vbCrLf):Response.Write(CCCJJJC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJJC(" ,k:?AFE ,?2>6lQ$F3>:EaQ ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJJC("k^7@C>m") & vbCrLf)
ElseIf CJCCJCJ=CCCJJJC(">@5") and CCJJJCC(CJCCJJC) Then
set CJCJJJ=CJJCCJ.execute(CCCJJJC("D6=64E ,E@A ,` ,EJA6[E:E=6[4@?E6?E[A:4EFC6[:DE@A ,7C@> ,2CE:4=6 ,H96C6 ,:5l") & CJCCJJC):Response.Write(vbCrLf):Response.Write(CCCJJJC("k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCCJJJC(" ,kE23=6 ,H:5E9lQhdTQ , ,3@C56ClQ_Q ,46==DA24:?8lQ`Qm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,H:5E9lQe_Q ,2=:8?lQC:89EQ ,?@HC2AlQ?@HC2AQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mkD6=64E ,?2>6lQEJA6Q ,:5lQD6=64EQm") & vbCrLf):Response.Write(CCCJJJC(" ,")):Call CJJCCCJ.ShowTree_Select(CJCCCJJ,CJCJJJ(0)):Response.Write(vbCrLf):Response.Write(CCCJJJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQ:AE`Q ,:5lQE:E=6aQ ,D:K6lQd_Q ,G2=F6lQ")):Response.Write  CJCJJJ(1):Response.Write(CCCJJJC("Qmk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQm??@????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mkE6IE2C62 ,4=2DDlQ65:E@CQ ,?2>6lQ4@?E6?EQm")):Response.Write  CJCJJJ(2):Response.Write(CCCJJJC("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mk:?AFE ,?2>6lQA:4EFC6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQA:4EFC6Q ,D:K6lQf_Q ,G2=F6lQ")):Response.Write  CJCJJJ(3):Response.Write(CCCJJJC("Qm") & vbCrLf):Response.Write(CCCJJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJJC(" ,??,??????????????????,??????????y!v??vxu??,??????????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5m") & vbCrLf):Response.Write(CCCJJJC(" ,k:?AFE ,?2>6lQ:DE@AQ ,EJA6lQ4964<3@IQ ,:5lQ4964<3@IcQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CJCJJJ(4),CCCJJJC("4964<65"),""):Response.Write(CCCJJJC("m") & vbCrLf):Response.Write(CCCJJJC(" ,k=236= ,7@ClQ4964<3@IcQm????^????k^=236=m") & vbCrLf):Response.Write(CCCJJJC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJJC(" ,k:?AFE ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lV")):Response.Write  CCJCJJC(CCCJJJC("&#{"),""):Response.Write(CCCJJJC("VQmk^E5m") & vbCrLf):Response.Write(CCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJJC("k^7@C>m") & vbCrLf)
Else
Call ShowMessage(CCCJJJC("??????????,????????????,"))
end if:Response.Write(vbCrLf):Response.Write(CCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?8t5:E@C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?865:E@C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("kD4C:AEm") & vbCrLf):Response.Write(CCCJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJC(" ,SWVRD6=64EVX];%C66$6=64EWX") & vbCrLf):Response.Write(CCCJJJC("NX") & vbCrLf):Response.Write(CCCJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJJC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:CJJCCJ.Close:Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJJC(ByVal CCCJJJJ)
Dim CJCCCJC, CCCCCJ, CJJJCCC
CCCJJJJ = Replace(CCCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCJ = 1 To Len(CCCJJJJ)
If CCCCCJ <> CJJJCCC Then
CJCCCJC = AscW(Mid(CCCJJJJ, CCCCCJ, 1))
If CJCCCJC >= 33 And CJCCCJC <= 79 Then
CCCJJJC = CCCJJJC & Chr(CJCCCJC + 47)
ElseIf CJCCCJC >= 80 And CJCCCJC <= 126 Then
CCCJJJC = CCCJJJC & Chr(CJCCCJC - 47)
Else
CJJJCCC = CCCCCJ + 1
If Mid(CCCJJJJ, CJJJCCC, 1) = Chr(64) Then CCCJJJC = CCCJJJC & ChrW(CJCCCJC + 5) Else CCCJJJC = CCCJJJC & Mid(CCCJJJJ, CCCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de