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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CJJJJCCJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CJJJJCCJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ:CJCCJJJ=Trim(Request.Cookies(CJJJJCCJ("!$*|t|qt#"))):if CJCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCCJ>0 then
CJJJCJC=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") & CJJJCCC & CJJJJCCJ("V ,2?5 ,:5l") & CJJJCCJ
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJJCJJJ=CJJJJCC(2) & "":CJJCJJC=CJJJJCC(3):CJJCJCJ=CJJJJCC(5):CJJCJCC=CJJJJCC(6):CJJCCJJ=CJJJJCC(9):CJJCCJC=CJJJJCC(15):CJJCCCC=CJJJJCC(0):CJCJCCJ=CJJJJCC(1):CJCJCJC=CJJJJCC(11) & "":CJCJJJJ=CJJJJCC(10) & "":CJJCCCJ=CJJJJCC(12):CJCJJJC=CJJJJCC(14):CJCJJCJ=CJJJJCC(13):CJCJJCC=CJJJJCC(7) & "":CJCJCJJ=CJJJJCC(4):CJCJCCC=CJJJJCC(8):if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJCCJJ) or CJJCCJJ=0 then CJJCCJJ=CJJCJJC
if isnull(CJCJCJJ) then CJCJCJJ=0
if isnull(CJJCJCJ) then CJJCJCJ=0
if instr(CJJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCC)>0 then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCCJ,CJJJCCC)
End IF
end if:Sub CheckRight(CJJJJCCC):dim CJCCJJC,CJCCJCJ:if CJJJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJCCJ("??????????????,????????????,"))
elseIf not CCCJCCJ(CJJJJCCC) then
Call RedirectMessage(CJJJJCCJ("????W") & CJJJJCCC & CJJJJCCJ("X????????,????????????????????,"))
end if:End Sub:Function CCCJCCJ(CJJJJCCC):dim CJCCJJC,CJCCJCJ:CJCCJCJ=split(CJJJJCCC,CJJJJCCJ("[")):CCCJCCJ=False:for CJCCJJC=0 to ubound(CJCCJCJ):If Mid(CJJCJJJ,CJCCJCJ(CJCCJJC),1)="1" then
CCCJCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJCCJ("!$*|t|qt#"))="":CJJJCCJ=0:CJJCJCC=0:CJJJCCC=Empty:CJJCJCJ=0:CJJCCJC=0:CJJCCJJ=0:CJJCJJC=0:CJJCCCC=False:CJCJCCJ=False:CJCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJCC,CJCCCJJ,CJCCJJC,CJCCCJC,CJCCCCJ:CJCCJCC=split(CJCCJJJ,CJJJJCCJ("]")):if ubound(CJCCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJCC(0)) or len(CJCCJCC(1))<>32 or len(CJCCJCC(2))<>32 then
Call ClearMemberCookie
else
CJCCCJJ=CJCCJCC(1):for CJCCJJC=1 to len(CJCCCJJ):CJCCCJC=mid(CJCCCJJ,CJCCJJC,1):if isnumeric(CJCCCJC) then CJCCCCJ=CJCCCCJ & CJCCCJC
if len(CJCCCCJ)=7 then exit for
next:CJCCCJJ=CJCCJCC(2):if CJCCCCJ<>mid(CJCCCJJ,6,7) then
Call ClearMemberCookie
else
CJCCCJC=mid(CJCCCJJ,18,10)/2:if CJCCCJC<DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCCJ=Clng(CJCCJCC(0)):CJJJCCC=CJCCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJJJ,CJJJCJJJ):dim CJCCJJC,CJCCCJC,CJCCCCJ:for CJCCJJC=1 to len(CJJJCJJJ):CJCCCJC=mid(CJJJCJJJ,CJCCJJC,1):if isnumeric(CJCCCJC) then CJCCCCJ=CJCCCCJ & CJCCCJC
if len(CJCCCCJ)=7 then exit for
next:CJCCCCJ=CCCJJJJ & CJJJJCCJ("]") & CJJJCJJJ & CJJJJCCJ("]") & Fix(10000*(Rnd+1)) & CJCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCJ("!$*|t|qt#"))=CJCCCCJ:End Sub::Function CCCJCCC(CJJJCJJC):Dim str,CCJJJJJ:str = Trim(CJJJCJJC):If IsNull(str) Or str = "" Then
CCCJCCC = ""
else
str=Replace(str, CJJJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJCCJ("k:7C2>6"), CJJJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCCJ("kD4C:AE"), CJJJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJJJJ=new RegExp:CCJJJJJ.Pattern=CJJJJCCJ("@?W,2\K.ZXl"):CCJJJJJ.IgnoreCase = True:CCJJJJJ.Global=True:str=CCJJJJJ.Replace(str,CJJJJCCJ("@?S`U6BF2=Dj")):set CCJJJJJ=nothing:CCCJCCC=str
End If:End Function:Function IIf(CJJJCJCJ, CJJJCJCC, CJJJCCJJ):if isnull(CJJJCJCJ) or isempty(CJJJCJCJ) then
IIf = CJJJCCJJ
elseif CJJJCJCJ Then
IIf = CJJJCJCC
Else
IIf = CJJJCCJJ
end if:End Function: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="utf-8":dim CJCCJJC,CJCCCJC,CCJJJJC:if isarray(str) then
on error resume next:CJCCJJC=ubound(str,2):CCJJJJC=err.number:err.clear:on error goto 0:if CCJJJJC<>0 then
for CJCCJJC=0 to ubound(str):if CJCCJJC>0 then response.Write CJJJJCCJ("k3C ,^m")
response.Write CJCCJJC & CJJJJCCJ("i ,") & str(CJCCJJC):next
else
response.Write CJJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCJJC=0 to ubound(str,2):response.Write CJJJJCCJ("kE9 ,2=:8?lV=67EVm") & CJCCJJC & CJJJJCCJ("k^E9m")
next:response.Write CJJJJCCJ("k^ECm"):for CJCCJJC=0 to ubound(str):response.Write CJJJJCCJ("kECmkE9m") & CJCCJJC & CJJJJCCJ("k^E9m"):for CJCCCJC=0 to ubound(str,2):response.Write CJJJJCCJ("kE5m") & str(CJCCJJC,CJCCCJC) & 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(CJJJCCJC,CJJJCCCJ):dim CJCCJCC:CJCCJCC=CJJJCCJC & CJJJJCCJ("l") & CJJJCCCJ & CJJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCJ("$6E\r@@<:6"),CJCCJCC):End Sub:::::::Function CCCCJJC(CCJJJJC):if isnull(CCJJJJC) or trim(CCJJJJC)="" or not isnumeric(CCJJJJC) then
CCCCJJC=false
else
Dim CCJJJJJ:Set CCJJJJJ = New RegExp:CCJJJJJ.Pattern = CJJJJCCJ("/-5ZS"):CCJJJJJ.IgnoreCase = True:CCCCJJC = CCJJJJJ.test(CCJJJJC):set CCJJJJJ=nothing
end if:End Function:Function CCCCJCJ(CJJJCCCC):dim CCJJJCJ,CCJJJCC:CCJJJCJ=CJJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCCC & CJJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJJCC=CJJJJJC.execute(CCJJJCJ):CCCCJCJ = CCJJJCC(0):if isnull(CCCCJCJ) then CCCCJCJ=1
CCJJJCC.close : set CCJJJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:CCJJJCC.close : set CCJJJCC=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CCCCCCJ.Close : Set CCCCCCJ = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCJ("!$*0|6DD286"),server.URLEncode(CJJCJJJJ)):Response.Redirect CJJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCJJJC):Application.Contents.Remove CJJCJJJC
End Sub::Class jTree:Private CJJJCJC, CCJJCJJ, CCJJCJC, CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:Private Sub Class_Initialize():CCJJCJC = 0:CCJJCCJ = 0:CCJCJCJ=10:End Sub:Public Property Let Table(CJJCJJCJ):if CJJCJJCJ="" then Call RedirectMessage(CJJJJCCJ("????????,;%C66????????????????????@??????????,"))
CCJJCCC=CJJCJJCJ:CCJCJJJ=CJJJJCCJ("!$*0") & UCase(CCJJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCCC:End Property:::Private Sub GetTreeArray():Dim CJCCJJC, CJCCCJC, CCJCJCC,CCJCCJJ:CCJJCJJ = Application(CCJCJJJ):If Not IsArray(CCJJCJJ) Then
CJJJCJC = CJJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCCC:if CCJCJJC<>"" then CJJJCJC=CJJJCJC & CJJJJCCJ(" ,H96C6 ,") & CCJCJJC
set CCJCJCC=CJJJJJC.execute(CJJJCJC):CCJCCJJ=CCJCJCC(0):if CCJCCJJ=0 then Call RedirectMessage(CJJJJCCJ("????W") & CCJJCCC & CJJJJCCJ("^") & CCJCJJC & CJJJJCCJ("X????????????"))
CCJJCCJ=CCJCCJJ+CCJCJCJ:ReDim CCJJCJJ(CCJJCCJ, 4):CJJJCJC = CJJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJJCCJ(" ,H:E9 ,W?@=@4<X"):if CCJCJJC<>"" then CJJJCJC=CJJJCJC & CJJJJCCJ(" ,H96C6 ,") & CCJCJJC
CJJJCJC=CJJJCJC & CJJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCJCC=CJJJJJC.execute(CJJJCJC):For CJCCJJC = 1 To CCJCCJJ:For CJCCCJC = 0 To 4:CCJJCJJ(CJCCJJC, CJCCCJC) = CCJCJCC(CJCCCJC):if IsNull(CCJJCJJ(CJCCJJC,4)) then CCJJCJJ(CJCCJJC,4)=0
If CCJJCJJ(CJCCJJC,2)="" then CCJJCJJ(CJCCJJC,2)=CJJJJCCJ(",??.")
Next:CCJCJCC.MoveNext:Next:CCJCJCC.Close: Set CCJCJCC = Nothing:for CJCCJJC=CCJJCCJ-(CCJCJCJ-1) to CCJJCCJ:CCJJCJJ(CJCCJJC,0)=CJCCJJC:next:Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
else
CCJJCCJ=Ubound(CCJJCJJ)
End If:End Sub:Public Sub ShowChild_Select(CCCJJJJ, CJJJJJJJ):Dim CJCCJJC:CCCJJJJ=CLng(CCCJJJJ):CJJJJJJJ=Cstr(CJJJJJJJ):For CJCCJJC = 1 To CCJJCCJ:If CCJJCJJ(CJCCJJC, 1) = CCCJJJJ Then
Response.Write CJJJJCCJ("k@AE:@? ,G2=F6lV") & CCJJCJJ(CJCCJJC, 0) & CJJJJCCJ("V")
If Instr(CJJJJCCJ("[") & CJJJJJJJ & CJJJJCCJ("["),CJJJJCCJ("[") & CCJJCJJ(CJCCJJC, 0) & CJJJJCCJ("["))>0 Then Response.Write CJJJJCCJ(" ,D6=64E65")
Response.Write CJJJJCCJ("m\ ,") & CCJJCJJ(CJCCJJC, 2) & CJJJJCCJ("k^@AE:@?m")
End If:Next:End Sub::::Private Function CJJJJJJC(CCCJJJJ):dim CJCCJJC,CCJCCJC:CJJJJJJC=0:CCJCCJC=CStr(CCCJJJJ):if CCJCCJC<>"0" then
for CJCCJJC=1 to CCJJCCJ:If CStr(CCJJCJJ(CJCCJJC, 0))=CCJCCJC Then
CJJJJJJC = CJCCJJC:Exit For
End If:Next
end if:End Function::::Public Function CJJJJJCJ(CCCJJJJ):Dim CJCCJJC,CCJCCCJ:CJCCJJC=CJJJJJJC(CCCJJJJ):if CJCCJJC=0 then
CCJCCCJ=CJJJJJCC(CCCJJJJ)
else
CCJCCCJ=CCJJCJJ(CJCCJJC,3):if isnull(CCJCCCJ) or CCJCCCJ="" then
CCJCCCJ=CJJJJJCC(CCCJJJJ)
elseif Mid(CCJCCCJ,instrrev(CCJCCCJ,CJJJJCCJ("["))+1)<>CStr(CCCJJJJ) then
CCJCCCJ=CJJJJJCC(CCCJJJJ)
elseif Left(CCJCCCJ,1)=CJJJJCCJ("[") then
CCJCCCJ=CJJJJJCC(CCCJJJJ)
end if
end if:CJJJJJCJ=CCJCCCJ:End Function:Private Function CJJJJJCC(CCCJJJJ):dim CCJCCJC:CCJCCJC=CStr(CCCJJJJ):if CCJCCJC="0" then
CJJJJJCC=""
else
dim CCJCJCC:set CCJCJCC=CJJJJJC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJJCCJ(" ,H96C6 ,:5l") & CCCJJJJ):if CCJCJCC.eof then
Call UpdateCache(CCCJJJJ,"","","",""):Call RedirectMessage(CJJJJCCJ("??????,xs??,") & CCCJJJJ & CJJJJCCJ("??,????????,????????????????????,"))
else
if CCJCJCC(0)=0 then
CJJJJJCC="0," & CCCJJJJ
else
CJJJJJCC=CJJJJJCJ(CCJCJCC(0)) & CJJJJCCJ("[") & CCCJJJJ
end if:if CCJCJCC(2)<>CJJJJJCC then
CJJJJJC.execute CJJJJCCJ("FA52E6 ,") & CCJJCCC & CJJJJCCJ(" ,D6E ,A2E9lV") & CJJJJJCC & CJJJJCCJ("V ,H96C6 ,:5l") & CCCJJJJ
else
CJJJJJCC=CCJCJCC(2)
end if
end if:Call UpdateCache(CCCJJJJ,CCJCJCC(0),CCJCJCC(1),CJJJJJCC,CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJJJ
End Sub:Public Sub UpdateCache(CCCJJJJ,CJJCJJCC,CJJCJCJJ,CCJCCCJ,CJJCJCJC):dim CJCCJJC,CJCCCJC:CCCJJJJ=CLng(CCCJJJJ):CJCCJJC=CJJJJJJC(CCCJJJJ):if CJJCJJCC="" and CJJCJCJJ="" and CCJCCCJ="" and CJJCJCJC="" then
if CJCCJJC>0 then
for CJCCCJC=1 to 4:CCJJCJJ(CJCCJJC,CJCCCJC)=Null:next
end if
else
if CJCCJJC=0 then
for CJCCCJC=1 to CCJJCCJ:if CCJJCJJ(CJCCCJC,1) & ""="" then
CJCCJJC=CJCCCJC:exit for
end if:next
end if:if CJCCJJC=0 then
Call ClearCache
else
CCJJCJJ(CJCCJJC,0)=CLng(CCCJJJJ):if CJJCJJCC<>"" then CCJJCJJ(CJCCJJC,1)=CLng(CJJCJJCC)
if CJJCJCJJ<>"" then CCJJCJJ(CJCCJJC,2)=CJJCJCJJ
if CCJCCCJ<>"" then CCJJCJJ(CJCCJJC,3)=CCJCCCJ
if CJJCJCJC<>"" then CCJJCJJ(CJCCJJC,4)=CLng(CJJCJCJC)
end if
end if:if CJCCJJC>0 then
Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJJJ):Call ConnClose:Response.Write CJJCJJJJ:Response.End:End Sub:Private Function CCCCJCJ():CCCCJCJ=CJJJJCJJ+1:End Function:Private Function CJJJJCJJ():dim CCJJJCC:set CCJJJCC=CJJJJJC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCCC & CJJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJJ=CCJJJCC(0):CCJJJCC.Close: Set CCJJJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(52):dim CCJCCCC,CCCJJJJ:CCJCCCC=Request.QueryString(CJJJJCCJ("24E")):CCCJJJJ=Request.QueryString(CJJJJCCJ(":5")):if CCJCCCC=CJJJJCCJ("56=") and CCCCJJC(CCCJJJJ) then
set CJJJJCC=CJJJJJC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G03F==6E:? ,H96C6 ,:5l") & CCCJJJJ & CJJJJCCJ(" ,2?5 ,2FE9@CEJA6l") & CJJCJJC):if CJJJJCC.eof then Call RedirectMessage(CJJJJCCJ("????????????????????????,"))
CJJJJJC.execute CJJJJCCJ("56=6E6 ,7C@> ,3F==6E:? ,H96C6 ,:5l") & CCCJJJJ:Call ConnClose:response.Redirect(CJJJJCCJ("3F==6E:?]2DA"))
end if:If Request.ServerVariables(CJJJJCCJ("#t""&t$%0|t%w~s"))=CJJJJCCJ("!~$%") then
dim CCCJJJC,CCCJJCJ,CCCJJCC:CCCJJJC=CCCJCCC(Request.Form(CJJJJCCJ("E:E=6"))):CCCJJCJ=CCCJCCC(Request.Form(CJJJJCCJ("4@?E6?E"))):CCCJJCC=replace(Request.Form(CJJJJCCJ("D6=64E")),CJJJJCCJ(" ,"),""):if CCJCCCC=CJJJJCCJ("255") then
CJJJCJC=CJJJJCCJ(":?D6CE ,:?E@ ,3F==6E:?WE:E=6[4@?E6?E[2FE9@C[EJA6[@FED:56X ,G2=F6DWV") & CCCJJJC & CJJJJCCJ("V[V") & CCCJJCJ & CJJJJCCJ("V[") & CJJJCCJ & CJJJJCCJ("[V") & CCCJJCC & CJJJJCCJ("V[") & Request.Form(CJJJJCCJ("@FED:56")) & CJJJJCCJ("X")
CJJJJJC.execute(CJJJCJC)
elseif CCJCCCC=CJJJJCCJ(">@5") and CCCCJJC(CCCJJJJ) then
CJJJCJC=CJJJJCCJ("FA52E6 ,3F==6E:? ,D6E ,E:E=6lV") & CCCJJJC & CJJJJCCJ("V[4@?E6?ElV") & CCCJJCJ & CJJJJCCJ("V[2FE9@Cl") & CJJJCCJ & CJJJJCCJ("[EJA6lV") & CCCJJCC & CJJJJCCJ("V[@FED:56l") & Request.Form(CJJJJCCJ("@FED:56")) & CJJJJCCJ(" ,H96C6 ,:5l") & CCCJJJJ
CJJJJJC.execute(CJJJCJC)
end if:Call ConnClose:response.Redirect CJJJJCCJ("3F==6E:?]2DA")
End If:dim CCJJCJJ:set CCJJCJJ=new jtree:CCJJCJJ.table=CJJJJCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJCCJ("k9625m") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJCCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCCJ("k3@5Jm") & vbCrLf)::If CCJCCCC=CJJJJCCJ("255") Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6 ,H:5E9lQhdTQ , ,3@C56ClQ_Q ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,H:5E9lQe_Q ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQd_Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm??@????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkE6IE2C62 ,4=2DDlQ65:E@CQ ,?2>6lQ4@?E6?EQmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkD6=64E ,?2>6lQD6=64EQ ,>F=E:A=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ")):Response.Write  CJJCJJC:Response.Write(CJJJJCCJ("Qm????????????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):Call CCJJCJJ.ShowChild_Select(CJJCJJC,0):Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,??,??????rEC=??$9:7E????????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ@FED:56Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,??????,????????,????????????????????????????,k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,?2>6lQ@FED:56Q ,EJA6lQC25:@Q ,G2=F6lQ_Q ,4964<65m") & vbCrLf):Response.Write(CJJJJCCJ(" ,??@????,????????????,????????????????????,k^=236=mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4@=DA2?lQaQmk9C ,D:K6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi9:DE@CJ]324<WXQ ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ("k^7@C>m") & vbCrLf)
ElseIf CCJCCCC=CJJJJCCJ(">@5") and CCCCJJC(CCCJJJJ) Then
set CJJJJCC=CJJJJJC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,E:E=6[4@?E6?E[EJA6[@FED:56 ,7C@> ,3F==6E:? ,H96C6 ,:5l") & CCCJJJJ):if CJJJJCC.eof then redirectmessage(CJJJJCCJ("????????????????????????????????,"))
Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6 ,H:5E9lQhdTQ , ,3@C56ClQ_Q ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,H:5E9lQe_Q ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CJJJJCC(0):Response.Write(CJJJJCCJ("Q ,D:K6lQd_Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm??@????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkE6IE2C62 ,4=2DDlQ65:E@CQ ,?2>6lQ4@?E6?EQm")):Response.Write  CJJJJCC(1):Response.Write(CJJJJCCJ("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkD6=64E ,?2>6lQD6=64EQ ,>F=E:A=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ")):Response.Write  CJJCJJC:Response.Write(CJJJJCCJ("Q ,")):Response.Write  IIf(instr(CJJJJCCJ("[") & CJJJJCC(2) & CJJJJCCJ("["),CJJJJCCJ("[") & CJJCJJC & CJJJJCCJ("["))>0,CJJJJCCJ("D6=64E65"),""):Response.Write(CJJJJCCJ("m????????????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):Call CCJJCJJ.ShowChild_Select(CJJCJJC,CJJJJCC(2)):Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,??,??????rEC=??$9:7E????????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ@FED:56Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJJCC(3),CJJJJCCJ("4964<65"),""):Response.Write(CJJJJCCJ("m") & vbCrLf):Response.Write(CJJJJCCJ(" ,??????,????????,????????????????????????????,k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,?2>6lQ@FED:56Q ,EJA6lQC25:@Q ,G2=F6lQ_Q ,")):Response.Write  IIf(CJJJJCC(3),"",CJJJJCCJ("4964<65")):Response.Write(CJJJJCCJ("m") & vbCrLf):Response.Write(CJJJJCCJ(" ,??@????,????????????,????????????????????,k^=236=mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4@=DA2?lQaQmk9C ,D:K6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lV3F==6E:?]2DAVQ ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ("k^7@C>m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?8t5:E@C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?865:E@C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCCJ(ByVal CJJJJCJC)
Dim CCCJCJJ, CJCCJJC, CCJJJJC
CJJJJCJC = Replace(CJJJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJJC = 1 To Len(CJJJJCJC)
If CJCCJJC <> CCJJJJC Then
CCCJCJJ = AscW(Mid(CJJJJCJC, CJCCJJC, 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
CCJJJJC = CJCCJJC + 1
If Mid(CJJJJCJC, CCJJJJC, 1) = Chr(64) Then CJJJJCCJ = CJJJJCCJ & ChrW(CCCJCJJ + 5) Else CJJJJCCJ = CJJJJCCJ & Mid(CJJJJCJC, CJCCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de