Edit D:\xinhaisoft\crisis_new\admin\article\move.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCJ, CJJCCC,CJCJJJ, CJCJJC, CJCJCJ:Set CJJCCJ = server.CreateObject(CCJJJCC("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CCJJJCC("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(CCJJJCC("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
CJCJCJ=CCJJJCC("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 & CCJJJCC("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(CCJJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CCJJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:Sub CheckRight(CCJJCJJ):dim CCCCCJ,CCCCCC:if CJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJJCC("??????????????,????????????,"))
elseIf not CJCJCJC(CCJJCJJ) then
Call RedirectMessage(CCJJJCC("????W") & CCJJCJJ & CCJJJCC("X????????,????????????????????,"))
end if:End Sub:Function CJCJCJC(CCJJCJJ):dim CCCCCJ,CCCCCC:CCCCCC=split(CCJJCJJ,CCJJJCC("[")):CJCJCJC=False:for CCCCCJ=0 to ubound(CCCCCC):If Mid(CJCCJC,CCCCCC(CCCCCJ),1)="1" then
CJCJCJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJJJCC("!$*|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,CCJJJCC("]")):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(CCJJJCC("D"), CCJJJCC("`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(CCJJJJJ,CCJJCJC):dim CCCCCJ,CJJJJCJ,CJJJJCC:for CCCCCJ=1 to len(CCJJCJC):CJJJJCJ=mid(CCJJCJC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CCJJJJJ & CCJJJCC("]") & CCJJCJC & CCJJJCC("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJJCC("D"), CCJJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJCC("!$*|t|qt#"))=CJJJJCC:End Sub::::Const CJCJCJJ="^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 CCCCCJ,CJJJJCJ,CJJJCJJ:if isarray(str) then
on error resume next:CCCCCJ=ubound(str,2):CJJJCJJ=err.number:err.clear:on error goto 0:if CJJJCJJ<>0 then
for CCCCCJ=0 to ubound(str):if CCCCCJ>0 then response.Write CCJJJCC("k3C ,^m")
response.Write CCCCCJ & CCJJJCC("i ,") & str(CCCCCJ):next
else
response.Write CCJJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCJ=0 to ubound(str,2):response.Write CCJJJCC("kE9 ,2=:8?lV=67EVm") & CCCCCJ & CCJJJCC("k^E9m")
next:response.Write CCJJJCC("k^ECm"):for CCCCCJ=0 to ubound(str):response.Write CCJJJCC("kECmkE9m") & CCCCCJ & CCJJJCC("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CCJJJCC("kE5m") & str(CCCCCJ,CJJJJCJ) & CCJJJCC("k^E5m"):next:response.Write CCJJJCC("k^ECm"):next:response.Write CCJJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJCCJ,CCJJCCC):dim CJJJJJJ:CJJJJJJ=CCJJCCJ & CCJJJCC("l") & CCJJCCC & CCJJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJCC("$6E\r@@<:6"),CJJJJJJ):End Sub::::::::Function CJCJCCJ(CCJCJJJ):dim CJJJCJC,CJJJCCJ:CJJJCJC=CCJJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJJJ & CCJJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCJ=CJJCCJ.execute(CJJJCJC):CJCJCCJ = CJJJCCJ(0):if isnull(CJCJCCJ) then CJCJCCJ=1
CJJJCCJ.close : set CJJJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCC=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJJJCCJ.close : set CJJJCCJ=nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJCC("!$*0|6DD286"),server.URLEncode(CCJCJJC)):Response.Redirect CCJJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CCJCJCJ):Application.Contents.Remove CCJCJCJ
End Sub::Class jTree:Private CJCJCJ, CJJJCCC, CJJCJJJ, CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Private Sub Class_Initialize():CJJCJJJ = 0:CJJCJJC = 0:CJJCCJC=10:End Sub:Public Property Let Table(CCJCJCC):if CCJCJCC="" then Call RedirectMessage(CCJJJCC("????????,;%C66????????????????????@??????????,"))
CJJCJCJ=CCJCJCC:CJJCJCC=CCJJJCC("!$*0") & UCase(CJJCJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJCJ:End Property:::Private Sub GetTreeArray():Dim CCCCCJ, CJJJJCJ, CJJCCCJ,CJJCCCC:CJJJCCC = Application(CJJCJCC):If Not IsArray(CJJJCCC) Then
CJCJCJ = CCJJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJCJ:if CJJCCJJ<>"" then CJCJCJ=CJCJCJ & CCJJJCC(" ,H96C6 ,") & CJJCCJJ
set CJJCCCJ=CJJCCJ.execute(CJCJCJ):CJJCCCC=CJJCCCJ(0):if CJJCCCC=0 then Call RedirectMessage(CCJJJCC("????W") & CJJCJCJ & CCJJJCC("^") & CJJCCJJ & CCJJJCC("X????????????"))
CJJCJJC=CJJCCCC+CJJCCJC:ReDim CJJJCCC(CJJCJJC, 4):CJCJCJ = CCJJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CCJJJCC(" ,H:E9 ,W?@=@4<X"):if CJJCCJJ<>"" then CJCJCJ=CJCJCJ & CCJJJCC(" ,H96C6 ,") & CJJCCJJ
CJCJCJ=CJCJCJ & CCJJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJJCCCJ=CJJCCJ.execute(CJCJCJ):For CCCCCJ = 1 To CJJCCCC:For CJJJJCJ = 0 To 4:CJJJCCC(CCCCCJ, CJJJJCJ) = CJJCCCJ(CJJJJCJ):if IsNull(CJJJCCC(CCCCCJ,4)) then CJJJCCC(CCCCCJ,4)=0
If CJJJCCC(CCCCCJ,2)="" then CJJJCCC(CCCCCJ,2)=CCJJJCC(",??.")
Next:CJJCCCJ.MoveNext:Next:CJJCCCJ.Close: Set CJJCCCJ = Nothing:for CCCCCJ=CJJCJJC-(CJJCCJC-1) to CJJCJJC:CJJJCCC(CCCCCJ,0)=CCCCCJ:next:Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock()
else
CJJCJJC=Ubound(CJJJCCC)
End If:End Sub:::::Private Function CJCCCJJ(CCJJJJJ):dim CCCCCJ,CJCJJJJ:CJCCCJJ=0:CJCJJJJ=CStr(CCJJJJJ):if CJCJJJJ<>"0" then
for CCCCCJ=1 to CJJCJJC:If CStr(CJJJCCC(CCCCCJ, 0))=CJCJJJJ Then
CJCCCJJ = CCCCCJ:Exit For
End If:Next
end if:End Function:Public Function CJCCCJC(CCJJJJJ):if Cstr(CCJJJJJ)="0" then
CJCCCJC=CCJJJCC("??")
else
Dim CCCCCJ,CJJCCCJ:CCCCCJ=CJCCCJJ(CCJJJJJ):if CCCCCJ>0 then
CJCCCJC=CJJJCCC(CCCCCJ,2):if CJCCCJC="" then
set CJJCCCJ=CJJCCJ.execute(CCJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CCJJJCC(" ,H96C6 ,:5l") & CCJJJJJ):if CJJCCCJ.eof then Call RedirectMessage(CCJJJCC("xs??,") & CCJJJJJ & CCJJJCC("??,??????"))
CJCCCJC=CJJCCCJ(1):Call UpdateCache(CCJJJJJ,CJJCCCJ(0),CJCCCJC,CJJCCCJ(2),CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing
end if
else
set CJJCCCJ=CJJCCJ.execute(CCJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CCJJJCC(" ,H96C6 ,:5l") & CCJJJJJ):if CJJCCCJ.eof then Call RedirectMessage(CCJJJCC("xs??,") & CCJJJJJ & CCJJJCC("??,??????"))
CJCCCJC=CJJCCCJ(1):Call UpdateCache(CCJJJJJ,CJJCCCJ(0),CJCCCJC,CJJCCCJ(2),CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing
end if
end if:End Function:::Public Function CJCCCCJ(CCJJJJJ):Dim CCCCCJ,CJCJJJC:CCCCCJ=CJCCCJJ(CCJJJJJ):if CCCCCJ=0 then
CJCJJJC=CJCCCCC(CCJJJJJ)
else
CJCJJJC=CJJJCCC(CCCCCJ,3):if isnull(CJCJJJC) or CJCJJJC="" then
CJCJJJC=CJCCCCC(CCJJJJJ)
elseif Mid(CJCJJJC,instrrev(CJCJJJC,CCJJJCC("["))+1)<>CStr(CCJJJJJ) then
CJCJJJC=CJCCCCC(CCJJJJJ)
elseif Left(CJCJJJC,1)=CCJJJCC("[") then
CJCJJJC=CJCCCCC(CCJJJJJ)
end if
end if:CJCCCCJ=CJCJJJC:End Function:Private Function CJCCCCC(CCJJJJJ):dim CJCJJJJ:CJCJJJJ=CStr(CCJJJJJ):if CJCJJJJ="0" then
CJCCCCC=""
else
dim CJJCCCJ:set CJJCCCJ=CJJCCJ.execute(CCJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CCJJJCC(" ,H96C6 ,:5l") & CCJJJJJ):if CJJCCCJ.eof then
Call UpdateCache(CCJJJJJ,"","","",""):Call RedirectMessage(CCJJJCC("??????,xs??,") & CCJJJJJ & CCJJJCC("??,????????,????????????????????,"))
else
if CJJCCCJ(0)=0 then
CJCCCCC="0," & CCJJJJJ
else
CJCCCCC=CJCCCCJ(CJJCCCJ(0)) & CCJJJCC("[") & CCJJJJJ
end if:if CJJCCCJ(2)<>CJCCCCC then
CJJCCJ.execute CCJJJCC("FA52E6 ,") & CJJCJCJ & CCJJJCC(" ,D6E ,A2E9lV") & CJCCCCC & CCJJJCC("V ,H96C6 ,:5l") & CCJJJJJ
else
CJCCCCC=CJJCCCJ(2)
end if
end if:Call UpdateCache(CCJJJJJ,CJJCCCJ(0),CJJCCCJ(1),CJCCCCC,CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CCJJJJJ,ByVal CCJCCJJ):Dim Str, CCCCCJ:CCJJJJJ=CLng(CCJJJJJ):if isnumeric(CCJCCJJ) then CCJCCJJ=CLng(CCJCCJJ) else CCJCCJJ=0
if CCJJJJJ>0 then str=CCJJJCC("k@AE:@? ,G2=F6lV") & CCJJJJJ & CCJJJCC("V ,52E2\A:5lV_Vm") & CJCCCJC(CCJJJJJ) & CCJJJCC("k^@AE:@?m")
For CCCCCJ = 1 To CJJCJJC:If CCJJJJJ=0 or (CCJJJJJ>0 and InStr(CJJJCCC(CCCCCJ, 3), CCJJJCC("[") & CCJJJJJ & CCJJJCC("[")) > 0) Then
str=str & CCJJJCC("k@AE:@?"):if CJJJCCC(CCCCCJ,0)=CCJCCJJ then str=str & CCJJJCC(" ,D6=64E65")
str=str & CCJJJCC(" ,G2=F6lV") & CJJJCCC(CCCCCJ,0) & CCJJJCC("V ,52E2\A:5lV") & CJJJCCC(CCCCCJ,1) & CCJJJCC("Vm") & CJJJCCC(CCCCCJ,2) & CCJJJCC("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJCC
End Sub:Public Sub UpdateCache(CCJJJJJ,CCJCCJC,CCJCCCJ,CJCJJJC,CCJCCCC):dim CCCCCJ,CJJJJCJ:CCJJJJJ=CLng(CCJJJJJ):CCCCCJ=CJCCCJJ(CCJJJJJ):if CCJCCJC="" and CCJCCCJ="" and CJCJJJC="" and CCJCCCC="" then
if CCCCCJ>0 then
for CJJJJCJ=1 to 4:CJJJCCC(CCCCCJ,CJJJJCJ)=Null:next
end if
else
if CCCCCJ=0 then
for CJJJJCJ=1 to CJJCJJC:if CJJJCCC(CJJJJCJ,1) & ""="" then
CCCCCJ=CJJJJCJ:exit for
end if:next
end if:if CCCCCJ=0 then
Call ClearCache
else
CJJJCCC(CCCCCJ,0)=CLng(CCJJJJJ):if CCJCCJC<>"" then CJJJCCC(CCCCCJ,1)=CLng(CCJCCJC)
if CCJCCCJ<>"" then CJJJCCC(CCCCCJ,2)=CCJCCCJ
if CJCJJJC<>"" then CJJJCCC(CCCCCJ,3)=CJCJJJC
if CCJCCCC<>"" then CJJJCCC(CCCCCJ,4)=CLng(CCJCCCC)
end if
end if:if CCCCCJ>0 then
Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCJJC):Call ConnClose:Response.Write CCJCJJC:Response.End:End Sub:Private Function CJCJCCJ():CJCJCCJ=CCJJJJC+1:End Function:Private Function CCJJJJC():dim CJJJCCJ:set CJJJCCJ=CJJCCJ.execute(CCJJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJCJ & CCJJJCC(" ,@C56C ,3J ,:5 ,56D4")):CCJJJJC=CJJJCCJ(0):CJJJCCJ.Close: Set CJJJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(2):If Request.ServerVariables(CCJJJCC("#t""&t$%0|t%w~s"))=CCJJJCC("!~$%") Then
CJCJCJ=CCJJJCC("FA52E6 ,2CE:4=6 ,D6E ,EJA6l") & Trim(Request.Form(CCJJJCC("D6=64Ea"))) & CCJJJCC(" ,H96C6 ,EJA6l") & Trim(Request.Form(CCJJJCC("D6=64E"))):CJJCCJ.execute CJCJCJ:Call RedirectMessage(CCJJJCC("????????M??????????????????????????????,"))
End If:dim CJJJCCC:set CJJJCCC =new jtree:CJJJCCC.Table=CCJJJCC("2CE:4=60EJA6"):Response.Write(vbCrLf):Response.Write(CCJJJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJJJCC("k9E>=m") & vbCrLf):Response.Write(CCJJJCC("k9625m") & vbCrLf):Response.Write(CCJJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJJJCC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCC("kD4C:AEm") & vbCrLf):Response.Write(CCJJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJJCC(" ,SWQRD6=64EQX];%C66$6=64EWXj") & vbCrLf):Response.Write(CCJJJCC("NXj") & vbCrLf):Response.Write(CCJJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCJJJCC("k^9625m") & vbCrLf):Response.Write(CCJJJCC("k3@5Jm") & vbCrLf):Response.Write(CCJJJCC("????????????") & vbCrLf):Response.Write(CCJJJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQ ,@?$F3>:ElQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV????????????????????????????,????????????????,??????????????,VXQm") & vbCrLf):Response.Write(CCJJJCC(" ,kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQC:89EQm??????????????,k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5mkD6=64E ,?2>6lQD6=64EQ ,:5lQD6=64EQm") & vbCrLf):Response.Write(CCJJJCC(" ,")):call CJJJCCC.ShowTree_Select(0,0):Response.Write(vbCrLf):Response.Write(CCJJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQC:89EQm??????????????,k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5mkD6=64E ,?2>6lQD6=64EaQ ,:5lQD6=64EaQm") & vbCrLf):Response.Write(CCJJJCC(" ,")):call CJJJCCC.ShowTree_Select(0,0):Response.Write(vbCrLf):Response.Write(CCJJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5mk:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ3E`Q ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJJCC("k^7@C>m") & vbCrLf):Response.Write(CCJJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCJJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCC=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=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 CCJJJCC(ByVal CCJJJCJ)
Dim CJCJJCC, CCCCCJ, CJJJCJJ
CCJJJCJ = Replace(CCJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCJ = 1 To Len(CCJJJCJ)
If CCCCCJ <> CJJJCJJ Then
CJCJJCC = AscW(Mid(CCJJJCJ, CCCCCJ, 1))
If CJCJJCC >= 33 And CJCJJCC <= 79 Then
CCJJJCC = CCJJJCC & Chr(CJCJJCC + 47)
ElseIf CJCJJCC >= 80 And CJCJJCC <= 126 Then
CCJJJCC = CCJJJCC & Chr(CJCJJCC - 47)
Else
CJJJCJJ = CCCCCJ + 1
If Mid(CCJJJCJ, CJJJCJJ, 1) = Chr(64) Then CCJJJCC = CCJJJCC & ChrW(CJCJJCC + 5) Else CCJJJCC = CCJJJCC & Mid(CCJJJCJ, 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