Edit D:\xinhaisoft\crisis_new\school\admin\student_dept

Edit D:\xinhaisoft\crisis_new\school\admin\student_dept_export.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJJ, CCCCJC,CCCCCJ, CCCCCC, CJJJJJJ:Set CCCCJJ = server.CreateObject(CCCCCJC("ps~sq]r@??64E:@?")):CCCCJJ.open Application(CCCCCJC("r@??64E:@?$EC:?8")):Set CCCCJC=CCCCJJ::Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC:CJCJJCC=Trim(Request.Cookies(CCCCCJC("!$*|t|qt#"))):if CJCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJC>0 then
CJJJJJJ=CCCCCJC("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") & CJJJJCJ & CCCCCJC("V ,2?5 ,:5l") & CJJJJJC
set CCCCCJ=CCCCJJ.execute(CJJJJJJ):If CCCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJJCC=CCCCCJ(2) & "":CJJJCJJ=CCCCCJ(3):CJJJCJC=CCCCCJ(5):CJJJCCJ=CCCCCJ(6):CJJJCCC=CCCCCJ(9):CJJCJJJ=CCCCCJ(15):CJJCJCJ=CCCCCJ(0):CJCJJJC=CCCCCJ(1):CJCJJJJ=CCCCCJ(11) & "":CJJCJCC=CCCCCJ(10) & "":CJJCJJC=CCCCCJ(12):CJJCCJJ=CCCCCJ(14):CJJCCJC=CCCCCJ(13):CJJCCCJ=CCCCCJ(7) & "":CJJCCCC=CCCCCJ(4):CJCJJCJ=CCCCCJ(8):if isnull(CJJCJJJ) then CJJCJJJ=0
if isnull(CJJJCCC) or CJJJCCC=0 then CJJJCCC=CJJJCJJ
if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJJCJC) then CJJJCJC=0
if instr(CCCCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCJ)>0 then Call RedirectMessage(CCCCCJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJC,CJJJJCJ)
End IF
end if:Sub CheckRight(CCCCCCJ):dim CJCJCJJ,CJCJCJC:if CJJJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCCJC("??????????????,????????????,"))
elseIf not CCJCCJC(CCCCCCJ) then
Call RedirectMessage(CCCCCJC("????W") & CCCCCCJ & CCCCCJC("X????????,????????????????????,"))
end if:End Sub:Function CCJCCJC(CCCCCCJ):dim CJCJCJJ,CJCJCJC:CJCJCJC=split(CCCCCCJ,CCCCCJC("[")):CCJCCJC=False:for CJCJCJJ=0 to ubound(CJCJCJC):If Mid(CJJJJCC,CJCJCJC(CJCJCJJ),1)="1" then
CCJCCJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCCCJC("!$*|t|qt#"))="":CJJJJJC=0:CJJJCCJ=0:CJJJJCJ=Empty:CJJJCJC=0:CJJCJJJ=0:CJJJCCC=0:CJJJCJJ=0:CJJCJCJ=False:CJCJJJC=False:CJCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCCJ,CJCJCCC,CJCJCJJ,CJCCJJJ,CJCCJJC:CJCJCCJ=split(CJCJJCC,CCCCCJC("]")):if ubound(CJCJCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCCJ(0)) or len(CJCJCCJ(1))<>32 or len(CJCJCCJ(2))<>32 then
Call ClearMemberCookie
else
CJCJCCC=CJCJCCJ(1):for CJCJCJJ=1 to len(CJCJCCC):CJCCJJJ=mid(CJCJCCC,CJCJCJJ,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCJCCC=CJCJCCJ(2):if CJCCJJC<>mid(CJCJCCC,6,7) then
Call ClearMemberCookie
else
CJCCJJJ=mid(CJCJCCC,18,10)/2:if CJCCJJJ<DateDiff(CCCCCJC("D"), CCCCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJC=Clng(CJCJCCJ(0)):CJJJJCJ=CJCJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJCJ,CCCCCCC):dim CJCJCJJ,CJCCJJJ,CJCCJJC:for CJCJCJJ=1 to len(CCCCCCC):CJCCJJJ=mid(CCCCCCC,CJCJCJJ,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJC=CCJCJCJ & CCCCCJC("]") & CCCCCCC & CCCCCJC("]") & Fix(10000*(Rnd+1)) & CJCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CCCCCJC("D"), CCCCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCJC("!$*|t|qt#"))=CJCCJJC:End Sub::::Const CCJCCJJ="^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 CJCJCJJ,CJCCJJJ,CJCCJCJ:if isarray(str) then
on error resume next:CJCJCJJ=ubound(str,2):CJCCJCJ=err.number:err.clear:on error goto 0:if CJCCJCJ<>0 then
for CJCJCJJ=0 to ubound(str):if CJCJCJJ>0 then response.Write CCCCCJC("k3C ,^m")
response.Write CJCJCJJ & CCCCCJC("i ,") & str(CJCJCJJ):next
else
response.Write CCCCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCJJ=0 to ubound(str,2):response.Write CCCCCJC("kE9 ,2=:8?lV=67EVm") & CJCJCJJ & CCCCCJC("k^E9m")
next:response.Write CCCCCJC("k^ECm"):for CJCJCJJ=0 to ubound(str):response.Write CCCCCJC("kECmkE9m") & CJCJCJJ & CCCCCJC("k^E9m"):for CJCCJJJ=0 to ubound(str,2):response.Write CCCCCJC("kE5m") & str(CJCJCJJ,CJCCJJJ) & CCCCCJC("k^E5m"):next:response.Write CCCCCJC("k^ECm"):next:response.Write CCCCCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJJJJ,CJJJJJJC):dim CJCJCCJ:CJCJCCJ=CJJJJJJJ & CCCCCJC("l") & CJJJJJJC & CCCCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCJC("$6E\r@@<:6"),CJCJCCJ):End Sub:::::::Function CCJCCCJ(CJCCJCJ):if isnull(CJCCJCJ) or trim(CJCCJCJ)="" or not isnumeric(CJCCJCJ) then
CCJCCCJ=false
else
Dim CJCCJCC:Set CJCCJCC = New RegExp:CJCCJCC.Pattern = CCCCCJC("/-5ZS"):CJCCJCC.IgnoreCase = True:CCJCCCJ = CJCCJCC.test(CJCCJCJ):set CJCCJCC=nothing
end if:End Function:Function CCJCCCC(CJJJJJCJ):dim CJCCCJJ,CJCCCJC:CJCCCJJ=CCCCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJJCJ & CCCCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJC=CCCCJJ.execute(CJCCCJJ):CCJCCCC = CJCCCJC(0):if isnull(CCJCCCC) then CCJCCCC=1
CJCCCJC.close : set CJCCCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCCJ=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:CJCCCJC.close : set CJCCCJC=nothing:CCCCCC.Close : Set CCCCCC=Nothing:CCCCCJ.Close : Set CCCCCJ=Nothing:CCCJJCC.Close : Set CCCJJCC = Nothing:CCCCJJ.Close : Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCJC("!$*0|6DD286"),server.URLEncode(CJJJJJCC)):Response.Redirect CCCCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJJJCJJ):Application.Contents.Remove CJJJJCJJ
End Sub::Class jTree:Private CJJJJJJ, CJCCCCJ, CJCCCCC, CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:Private Sub Class_Initialize():CJCCCCC = 0:CCJJJJJ = 0:CCJJCJJ=10:End Sub:Public Property Let Table(CJJJJCJC):if CJJJJCJC="" then Call RedirectMessage(CCCCCJC("????????,;%C66????????????????????@??????????,"))
CCJJJJC=CJJJJCJC:CCJJJCJ=CCCCCJC("!$*0") & UCase(CCJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJC:End Property:::Private Sub GetTreeArray():Dim CJCJCJJ, CJCCJJJ, CCJJCJC,CCJJCCJ:CJCCCCJ = Application(CCJJJCJ):If Not IsArray(CJCCCCJ) Then
CJJJJJJ = CCCCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJC:if CCJJJCC<>"" then CJJJJJJ=CJJJJJJ & CCCCCJC(" ,H96C6 ,") & CCJJJCC
set CCJJCJC=CCCCJJ.execute(CJJJJJJ):CCJJCCJ=CCJJCJC(0):if CCJJCCJ=0 then Call RedirectMessage(CCCCCJC("????W") & CCJJJJC & CCCCCJC("^") & CCJJJCC & CCCCCJC("X????????????"))
CCJJJJJ=CCJJCCJ+CCJJCJJ:ReDim CJCCCCJ(CCJJJJJ, 4):CJJJJJJ = CCCCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CCCCCJC(" ,H:E9 ,W?@=@4<X"):if CCJJJCC<>"" then CJJJJJJ=CJJJJJJ & CCCCCJC(" ,H96C6 ,") & CCJJJCC
CJJJJJJ=CJJJJJJ & CCCCCJC(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=CCCCJJ.execute(CJJJJJJ):For CJCJCJJ = 1 To CCJJCCJ:For CJCCJJJ = 0 To 4:CJCCCCJ(CJCJCJJ, CJCCJJJ) = CCJJCJC(CJCCJJJ):if IsNull(CJCCCCJ(CJCJCJJ,4)) then CJCCCCJ(CJCJCJJ,4)=0
If CJCCCCJ(CJCJCJJ,2)="" then CJCCCCJ(CJCJCJJ,2)=CCCCCJC(",??.")
Next:CCJJCJC.MoveNext:Next:CCJJCJC.Close: Set CCJJCJC = Nothing:for CJCJCJJ=CCJJJJJ-(CCJJCJJ-1) to CCJJJJJ:CJCCCCJ(CJCJCJJ,0)=CJCJCJJ:next:Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
else
CCJJJJJ=Ubound(CJCCCCJ)
End If:End Sub:::::Private Function CCCJCJC(CCJCJCJ):dim CJCJCJJ,CCJJCCC:CCCJCJC=0:CCJJCCC=CStr(CCJCJCJ):if CCJJCCC<>"0" then
for CJCJCJJ=1 to CCJJJJJ:If CStr(CJCCCCJ(CJCJCJJ, 0))=CCJJCCC Then
CCCJCJC = CJCJCJJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCJCJCJ):if Cstr(CCJCJCJ)="0" then
GetCurName=CCCCCJC("??")
else
Dim CJCJCJJ,CCJJCJC:CJCJCJJ=CCCJCJC(CCJCJCJ):if CJCJCJJ>0 then
GetCurName=CJCCCCJ(CJCJCJJ,2):if GetCurName="" then
set CCJJCJC=CCCCJJ.execute(CCCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CCCCCJC(" ,H96C6 ,:5l") & CCJCJCJ):if CCJJCJC.eof then Call RedirectMessage(CCCCCJC("xs??,") & CCJCJCJ & CCCCCJC("??,??????"))
GetCurName=CCJJCJC(1):Call UpdateCache(CCJCJCJ,CCJJCJC(0),GetCurName,CCJJCJC(2),CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if
else
set CCJJCJC=CCCCJJ.execute(CCCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CCCCCJC(" ,H96C6 ,:5l") & CCJCJCJ):if CCJJCJC.eof then Call RedirectMessage(CCCCCJC("xs??,") & CCJCJCJ & CCCCCJC("??,??????"))
GetCurName=CCJJCJC(1):Call UpdateCache(CCJCJCJ,CCJJCJC(0),GetCurName,CCJJCJC(2),CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if
end if:End Function:::Public Function CCCJCCC(CCJCJCJ):Dim CJCJCJJ,CCJCJJJ:CJCJCJJ=CCCJCJC(CCJCJCJ):if CJCJCJJ=0 then
CCJCJJJ=CCCCJJJ(CCJCJCJ)
else
CCJCJJJ=CJCCCCJ(CJCJCJJ,3):if isnull(CCJCJJJ) or CCJCJJJ="" then
CCJCJJJ=CCCCJJJ(CCJCJCJ)
elseif Mid(CCJCJJJ,instrrev(CCJCJJJ,CCCCCJC("["))+1)<>CStr(CCJCJCJ) then
CCJCJJJ=CCCCJJJ(CCJCJCJ)
elseif Left(CCJCJJJ,1)=CCCCCJC("[") then
CCJCJJJ=CCCCJJJ(CCJCJCJ)
end if
end if:CCCJCCC=CCJCJJJ:End Function:Private Function CCCCJJJ(CCJCJCJ):dim CCJJCCC:CCJJCCC=CStr(CCJCJCJ):if CCJJCCC="0" then
CCCCJJJ=""
else
dim CCJJCJC:set CCJJCJC=CCCCJJ.execute(CCCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CCCCCJC(" ,H96C6 ,:5l") & CCJCJCJ):if CCJJCJC.eof then
Call UpdateCache(CCJCJCJ,"","","",""):Call RedirectMessage(CCCCCJC("??????,xs??,") & CCJCJCJ & CCCCCJC("??,????????,????????????????????,"))
else
if CCJJCJC(0)=0 then
CCCCJJJ="0," & CCJCJCJ
else
CCCCJJJ=CCCJCCC(CCJJCJC(0)) & CCCCCJC("[") & CCJCJCJ
end if:if CCJJCJC(2)<>CCCCJJJ then
CCCCJJ.execute CCCCCJC("FA52E6 ,") & CCJJJJC & CCCCCJC(" ,D6E ,A2E9lV") & CCCCJJJ & CCCCCJC("V ,H96C6 ,:5l") & CCJCJCJ
else
CCCCJJJ=CCJJCJC(2)
end if
end if:Call UpdateCache(CCJCJCJ,CCJJCJC(0),CCJJCJC(1),CCCCJJJ,CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if:End Function::::::::Public Function GetAllChildID(CCJCJCJ):Dim Str, CJCJCJJ:if CCCCJCJ(CCJCJCJ) then
For CJCJCJJ = 1 To CCJJJJJ:If InStr(CJCCCCJ(CJCJCJJ, 3) & CCCCCJC("["), CCCCCJC("[") & CCJCJCJ & CCCCCJC("[")) > 0 Then
Str = Str & CCCCCJC("[") & CJCCCCJ(CJCJCJJ, 0)
End If:Next:Str = Mid(Str, 2)
else
str=CCJCJCJ
end if:GetAllChildID = Str:End Function:::::Public Function CCCCJCJ(CCJCJCJ):Dim CJCJCJJ:CCCCJCJ = False:CCJCJCJ=CLng(CCJCJCJ):For CJCJCJJ = 1 To CCJJJJJ:If CJCCCCJ(CJCJCJJ, 1) = CCJCJCJ Then
CCCCJCJ = True:Exit For
End If:Next:End Function:::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCJ
End Sub:Public Sub UpdateCache(CCJCJCJ,CJJJJCCJ,CJJJJCCC,CCJCJJJ,CJJJCJJJ):dim CJCJCJJ,CJCCJJJ:CCJCJCJ=CLng(CCJCJCJ):CJCJCJJ=CCCJCJC(CCJCJCJ):if CJJJJCCJ="" and CJJJJCCC="" and CCJCJJJ="" and CJJJCJJJ="" then
if CJCJCJJ>0 then
for CJCCJJJ=1 to 4:CJCCCCJ(CJCJCJJ,CJCCJJJ)=Null:next
end if
else
if CJCJCJJ=0 then
for CJCCJJJ=1 to CCJJJJJ:if CJCCCCJ(CJCCJJJ,1) & ""="" then
CJCJCJJ=CJCCJJJ:exit for
end if:next
end if:if CJCJCJJ=0 then
Call ClearCache
else
CJCCCCJ(CJCJCJJ,0)=CLng(CCJCJCJ):if CJJJJCCJ<>"" then CJCCCCJ(CJCJCJJ,1)=CLng(CJJJJCCJ)
if CJJJJCCC<>"" then CJCCCCJ(CJCJCJJ,2)=CJJJJCCC
if CCJCJJJ<>"" then CJCCCCJ(CJCJCJJ,3)=CCJCJJJ
if CJJJCJJJ<>"" then CJCCCCJ(CJCJCJJ,4)=CLng(CJJJCJJJ)
end if
end if:if CJCJCJJ>0 then
Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJCC):Call ConnClose:Response.Write CJJJJJCC:Response.End:End Sub:Private Function CCJCCCC():CCJCCCC=CCCCJCC+1:End Function:Private Function CCCCJCC():dim CJCCCJC:set CJCCCJC=CCCCJJ.execute(CCCCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJC & CCCCCJC(" ,@C56C ,3J ,:5 ,56D4")):CCCCJCC=CJCCCJC(0):CJCCCJC.Close: Set CJCCCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(61):dim CCJCJCJ:CCJCJCJ=request.QueryString(CCCCCJC(":5")):if not CCJCCCJ(CCJCJCJ) then Call RedirectMessage(CCCCCJC("????????,??????????????,"))
dim CJCCCCJ:set CJCCCCJ=new jtree:CJCCCCJ.table=CCCCCJC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCCCCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCJC("k9625m") & vbCrLf):Response.Write(CCCCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCCCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCCCJC("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CCCCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^^=:3]32@>:EF]4@>^2>2K6F:^a]f]a^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCCCJC("kDEJ=6m") & vbCrLf):Response.Write(CCCCCJC("3@5J ,L ,>2C8:?i ,`_AIj ,N") & vbCrLf):Response.Write(CCCCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCJC("k^9625m") & vbCrLf):Response.Write(CCCCCJC("k3@5Jm") & vbCrLf):Response.Write(CCCCCJC("k3FEE@? ,:5lQ3E?\H@C5Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\ID ,2>\C25:FDQmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,?????? ,(@C5k^3FEE@?m") & vbCrLf):Response.Write(CCCCCJC("k3FEE@? ,:5lQ3E?\6I46=Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\ID ,2>\C25:FDQmk: ,4=2DDlQ2>\:4@?\7:=6\6I46=\@Qmk^:m ,?????? ,tI46=k^3FEE@?m") & vbCrLf):Response.Write(CCCCCJC("k5:G ,DEJ=6lQ>2C8:?\E@AidAIjQm") & vbCrLf):Response.Write(CCCCCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\3@C56C65 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E6IE\D> ,2>\E23=6\C25:FD ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CCCCCJC(" ,kE9625m") & vbCrLf):Response.Write(CCCCCJC(" ,kECm") & vbCrLf):Response.Write(CCCCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCCCCJC(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CCCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJC(" ,k^E9625m") & vbCrLf):Response.Write(CCCCCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCCJC(" ,kEC ,52E2\EE\:5lQ")):Response.Write  CCJCJCJ:Response.Write(CCCCCJC("Qm") & vbCrLf):Response.Write(CCCCCJC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJCCCCJ.GetCurName(CCJCJCJ):Response.Write(CCCCCJC("k^E5m") & vbCrLf):Response.Write(CCCCCJC(" ,kE5m")):Response.Write  CCJCJCJ:Response.Write(CCCCCJC("k^E5m") & vbCrLf):Response.Write(CCCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJC(" ,")):set CCCCCJ=CCCCJC.execute(CCCCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9 ,7C@> ,>6>36C0EJA6 ,H:E9 ,W?@=@4<X ,H96C6 ,:5 ,:? ,W") & CJCCCCJ.GetAllChildID(CCJCJCJ) & CCCCCJC("X ,2?5 ,:5km") & CCJCJCJ & CCCCCJC(" ,@C56C ,3J ,A2E9")):while not CCCCCJ.eof:Response.Write(vbCrLf):Response.Write(CCCCCJC(" ,kEC ,52E2\EE\:5lQ")):Response.Write  CCCCCJ(0):Response.Write(CCCCCJC("Q ,52E2\EE\A2C6?E\:5lQ")):Response.Write  CCCCCJ(1):Response.Write(CCCCCJC("Qm") & vbCrLf):Response.Write(CCCCCJC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCCCJ(2):Response.Write(CCCCCJC("k^E5m") & vbCrLf):Response.Write(CCCCCJC(" ,kE5 ,E:E=6lQ!2C6?Exsi ,")):Response.Write  CCCCCJ(1):Response.Write(CCCCCJC("Qm")):Response.Write  CCCCCJ(0):Response.Write(CCCCCJC("k^E5m") & vbCrLf):Response.Write(CCCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJC(" ,")):CCCCCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCCJC("k^5:Gm") & vbCrLf):Response.Write(CCCCCJC("kP\\????????\\m") & vbCrLf):Response.Write(CCCCCJC("k5:G ,52E2\2>\H:586ElQ8@E@AQ ,4=2DDlQ2>\8@E@A ,2>\8@E@A\7:I65Qmk2 ,9C67lQRE@AQ ,E:E=6lQ????????QmkDA2? ,4=2DDlQ2>\8@E@A\E:E=6Qm????????k^DA2?mk: ,4=2DDlQ2>\8@E@A\:4@? ,2>\:4@?\496GC@?\FAQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CCCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]EC66E23=6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJC("kD4C:AEm") & vbCrLf):Response.Write(CCCCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCJC(" ,SWVE23=6VX]EC66E23=6WL:?56?Ei`cNX") & vbCrLf):Response.Write(CCCCCJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6VX]A2C6?EWX]9E>=a5@4IWV????VXNX") & vbCrLf):Response.Write(CCCCCJC(" ,SWVR3E?\6I46=VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6VX]E23=6a6I46=WV????VXNX") & vbCrLf):Response.Write(CCCCCJC("NX") & vbCrLf):Response.Write(CCCCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCJC("k^3@5Jm") & vbCrLf):Response.Write(CCCCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCCJ=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCCJ.Close:Set CCCCCJ=Nothing:CCCCJJ.Close:Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCJC(ByVal CCCCCJJ)
Dim CCJCJCC, CJCJCJJ, CJCCJCJ
CCCCCJJ = Replace(CCCCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJJ = 1 To Len(CCCCCJJ)
If CJCJCJJ <> CJCCJCJ Then
CCJCJCC = AscW(Mid(CCCCCJJ, CJCJCJJ, 1))
If CCJCJCC >= 33 And CCJCJCC <= 79 Then
CCCCCJC = CCCCCJC & Chr(CCJCJCC + 47)
ElseIf CCJCJCC >= 80 And CCJCJCC <= 126 Then
CCCCCJC = CCCCCJC & Chr(CCJCJCC - 47)
Else
CJCCJCJ = CJCJCJJ + 1
If Mid(CCCCCJJ, CJCCJCJ, 1) = Chr(64) Then CCCCCJC = CCCCCJC & ChrW(CCJCJCC + 5) Else CCCCCJC = CCCCCJC & Mid(CCCCCJJ, CJCJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de