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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCCJ, CCJCCC,CCCJJJ, CCCJJC, CCCJCJ:Set CCJCCJ = server.CreateObject(CCCJJCC("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CCCJJCC("r@??64E:@?$EC:?8")):Set CCJCCC=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CCCJJCC("!$*|t|qt#"))):if CJJCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJCC>0 then
CCCJCJ=CCCJJCC("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") & CCCCJJ & CCCJJCC("V ,2?5 ,:5l") & CCCJCC
set CCCJJJ=CCJCCJ.execute(CCCJCJ):If CCCJJJ.EOF Then
Call ClearMemberCookie
Else
CCCCJC=CCCJJJ(2) & "":CCCCCJ=CCCJJJ(3):CCCCCC=CCCJJJ(5):CJJJJJJ=CCCJJJ(6):CJJJJJC=CCCJJJ(9):CJJJJCJ=CCCJJJ(15):CJJJCJJ=CCCJJJ(0):CJJCJCC=CCCJJJ(1):CJJCJCJ=CCCJJJ(11) & "":CJJJCJC=CCCJJJ(10) & "":CJJJJCC=CCCJJJ(12):CJJJCCJ=CCCJJJ(14):CJJJCCC=CCCJJJ(13):CJJCJJJ=CCCJJJ(7) & "":CJJCJJC=CCCJJJ(4):CJJCCJJ=CCCJJJ(8):if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CJJJJJC) or CJJJJJC=0 then CJJJJJC=CCCCCJ
if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CCCCCC) then CCCCCC=0
if instr(CCCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJJ)>0 then Call RedirectMessage(CCCJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJCC,CCCCJJ)
End IF
end if:Sub CheckRight(CCCJCJJ):dim CJJCCCJ,CJJCCCC:if CCCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJCC("??????????????,????????????,"))
elseIf not CCJJCJJ(CCCJCJJ) then
Call RedirectMessage(CCCJJCC("????W") & CCCJCJJ & CCCJJCC("X????????,????????????????????,"))
end if:End Sub:Function CCJJCJJ(CCCJCJJ):dim CJJCCCJ,CJJCCCC:CJJCCCC=split(CCCJCJJ,CCCJJCC("[")):CCJJCJJ=False:for CJJCCCJ=0 to ubound(CJJCCCC):If Mid(CCCCJC,CJJCCCC(CJJCCCJ),1)="1" then
CCJJCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCJJCC("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJJ,CJCJJJC,CJJCCCJ,CJCJJCJ,CJCJJCC:CJCJJJJ=split(CJJCCJC,CCCJJCC("]")):if ubound(CJCJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJJJ(0)) or len(CJCJJJJ(1))<>32 or len(CJCJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJCJJJC=CJCJJJJ(1):for CJJCCCJ=1 to len(CJCJJJC):CJCJJCJ=mid(CJCJJJC,CJJCCCJ,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJJC=CJCJJJJ(2):if CJCJJCC<>mid(CJCJJJC,6,7) then
Call ClearMemberCookie
else
CJCJJCJ=mid(CJCJJJC,18,10)/2:if CJCJJCJ<DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJCC=Clng(CJCJJJJ(0)):CCCCJJ=CJCJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJJJ,CCCJCJC):dim CJJCCCJ,CJCJJCJ,CJCJJCC:for CJJCCCJ=1 to len(CCCJCJC):CJCJJCJ=mid(CCCJCJC,CJJCCCJ,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJCC=CCCJJJJ & CCCJJCC("]") & CCCJCJC & CCCJJCC("]") & Fix(10000*(Rnd+1)) & CJCJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJCC("!$*|t|qt#"))=CJCJJCC:End Sub::::Const CCJJJCC="^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 CJJCCCJ,CJCJJCJ,CJCJCJJ:if isarray(str) then
on error resume next:CJJCCCJ=ubound(str,2):CJCJCJJ=err.number:err.clear:on error goto 0:if CJCJCJJ<>0 then
for CJJCCCJ=0 to ubound(str):if CJJCCCJ>0 then response.Write CCCJJCC("k3C ,^m")
response.Write CJJCCCJ & CCCJJCC("i ,") & str(CJJCCCJ):next
else
response.Write CCCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCCJ=0 to ubound(str,2):response.Write CCCJJCC("kE9 ,2=:8?lV=67EVm") & CJJCCCJ & CCCJJCC("k^E9m")
next:response.Write CCCJJCC("k^ECm"):for CJJCCCJ=0 to ubound(str):response.Write CCCJJCC("kECmkE9m") & CJJCCCJ & CCCJJCC("k^E9m"):for CJCJJCJ=0 to ubound(str,2):response.Write CCCJJCC("kE5m") & str(CJJCCCJ,CJCJJCJ) & CCCJJCC("k^E5m"):next:response.Write CCCJJCC("k^ECm"):next:response.Write CCCJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCJCCC,CCCCJJJ):dim CJCJJJJ:CJCJJJJ=CCCJCCC & CCCJJCC("l") & CCCCJJJ & CCCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCC("$6E\r@@<:6"),CJCJJJJ):End Sub::::::::Function CCJJCJC(CCCCJJC):dim CJCJCJC,CJCJCCJ:CJCJCJC=CCCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCJJC & CCCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCCJ=CCJCCJ.execute(CJCJCJC):CCJJCJC = CJCJCCJ(0):if isnull(CCJJCJC) then CCJJCJC=1
CJCJCCJ.close : set CJCJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCCC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:CJCJCCJ.close : set CJCJCCJ=nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:CCJCJJC.Close : Set CCJCJJC = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCC("!$*0|6DD286"),server.URLEncode(CCCCJCJ)):Response.Redirect CCCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CCJCJCJ(CCCCJCC):CCJCJCJ=CCCCJCC:End Function:::::::::::::::::::::::::Sub ClearCache(CCCCCJJ):Application.Contents.Remove CCCCCJJ
End Sub::Class jTree:Private CCCJCJ, CJCJCCC, CJCCJJJ, CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:Private Sub Class_Initialize():CJCCJJJ = 0:CJCCJJC = 0:CJCCCJC=10:End Sub:Public Property Let Table(CCCCCJC):if CCCCCJC="" then Call RedirectMessage(CCCJJCC("????????,;%C66????????????????????@??????????,"))
CJCCJCJ=CCCCCJC:CJCCJCC=CCCJJCC("!$*0") & UCase(CJCCJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJCJ:End Property:::Private Sub GetTreeArray():Dim CJJCCCJ, CJCJJCJ, CJCCCCJ,CJCCCCC:CJCJCCC = Application(CJCCJCC):If Not IsArray(CJCJCCC) Then
CCCJCJ = CCCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJCJ:if CJCCCJJ<>"" then CCCJCJ=CCCJCJ & CCCJJCC(" ,H96C6 ,") & CJCCCJJ
set CJCCCCJ=CCJCCJ.execute(CCCJCJ):CJCCCCC=CJCCCCJ(0):if CJCCCCC=0 then Call RedirectMessage(CCCJJCC("????W") & CJCCJCJ & CCCJJCC("^") & CJCCCJJ & CCCJJCC("X????????????"))
CJCCJJC=CJCCCCC+CJCCCJC:ReDim CJCJCCC(CJCCJJC, 4):CCCJCJ = CCCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCJ & CCCJJCC(" ,H:E9 ,W?@=@4<X"):if CJCCCJJ<>"" then CCCJCJ=CCCJCJ & CCCJJCC(" ,H96C6 ,") & CJCCCJJ
CCCJCJ=CCCJCJ & CCCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCCCCJ=CCJCCJ.execute(CCCJCJ):For CJJCCCJ = 1 To CJCCCCC:For CJCJJCJ = 0 To 4:CJCJCCC(CJJCCCJ, CJCJJCJ) = CJCCCCJ(CJCJJCJ):if IsNull(CJCJCCC(CJJCCCJ,4)) then CJCJCCC(CJJCCCJ,4)=0
If CJCJCCC(CJJCCCJ,2)="" then CJCJCCC(CJJCCCJ,2)=CCCJJCC(",??.")
Next:CJCCCCJ.MoveNext:Next:CJCCCCJ.Close: Set CJCCCCJ = Nothing:for CJJCCCJ=CJCCJJC-(CJCCCJC-1) to CJCCJJC:CJCJCCC(CJJCCCJ,0)=CJJCCCJ:next:Application.Lock():Application(CJCCJCC) = CJCJCCC:Application.UnLock()
else
CJCCJJC=Ubound(CJCJCCC)
End If:End Sub:::::Private Function CCJCCJJ(CCCJJJJ):dim CJJCCCJ,CCJJJJJ:CCJCCJJ=0:CCJJJJJ=CStr(CCCJJJJ):if CCJJJJJ<>"0" then
for CJJCCCJ=1 to CJCCJJC:If CStr(CJCJCCC(CJJCCCJ, 0))=CCJJJJJ Then
CCJCCJJ = CJJCCCJ:Exit For
End If:Next
end if:End Function::::Public Function CCJCCJC(CCCJJJJ):Dim CJJCCCJ,CCJJJJC:CJJCCCJ=CCJCCJJ(CCCJJJJ):if CJJCCCJ=0 then
CCJJJJC=CCJCCCJ(CCCJJJJ)
else
CCJJJJC=CJCJCCC(CJJCCCJ,3):if isnull(CCJJJJC) or CCJJJJC="" then
CCJJJJC=CCJCCCJ(CCCJJJJ)
elseif Mid(CCJJJJC,instrrev(CCJJJJC,CCCJJCC("["))+1)<>CStr(CCCJJJJ) then
CCJJJJC=CCJCCCJ(CCCJJJJ)
elseif Left(CCJJJJC,1)=CCCJJCC("[") then
CCJJJJC=CCJCCCJ(CCCJJJJ)
end if
end if:CCJCCJC=CCJJJJC:End Function:Private Function CCJCCCJ(CCCJJJJ):dim CCJJJJJ:CCJJJJJ=CStr(CCCJJJJ):if CCJJJJJ="0" then
CCJCCCJ=""
else
dim CJCCCCJ:set CJCCCCJ=CCJCCJ.execute(CCCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCJ & CCCJJCC(" ,H96C6 ,:5l") & CCCJJJJ):if CJCCCCJ.eof then
Call UpdateCache(CCCJJJJ,"","","",""):Call RedirectMessage(CCCJJCC("??????,xs??,") & CCCJJJJ & CCCJJCC("??,????????,????????????????????,"))
else
if CJCCCCJ(0)=0 then
CCJCCCJ="0," & CCCJJJJ
else
CCJCCCJ=CCJCCJC(CJCCCCJ(0)) & CCCJJCC("[") & CCCJJJJ
end if:if CJCCCCJ(2)<>CCJCCCJ then
CCJCCJ.execute CCCJJCC("FA52E6 ,") & CJCCJCJ & CCCJJCC(" ,D6E ,A2E9lV") & CCJCCCJ & CCCJJCC("V ,H96C6 ,:5l") & CCCJJJJ
else
CCJCCCJ=CJCCCCJ(2)
end if
end if:Call UpdateCache(CCCJJJJ,CJCCCCJ(0),CJCCCCJ(1),CCJCCCJ,CJCCCCJ(3)):CJCCCCJ.Close: Set CJCCCCJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCCJJJJ):dim CCJJJJC:CCJJJJC=CCJCCJC(CCCJJJJ):Sql_GetChildren = CJCCJCJ & CCCJJCC("0A2E9ZV[V ,=:<6 ,V") & CCJJJJC & CCCJJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCJCC
End Sub:Public Sub UpdateCache(CCCJJJJ,CCCCCCJ,CCCCCCC,CCJJJJC,CJJJJJJJ):dim CJJCCCJ,CJCJJCJ:CCCJJJJ=CLng(CCCJJJJ):CJJCCCJ=CCJCCJJ(CCCJJJJ):if CCCCCCJ="" and CCCCCCC="" and CCJJJJC="" and CJJJJJJJ="" then
if CJJCCCJ>0 then
for CJCJJCJ=1 to 4:CJCJCCC(CJJCCCJ,CJCJJCJ)=Null:next
end if
else
if CJJCCCJ=0 then
for CJCJJCJ=1 to CJCCJJC:if CJCJCCC(CJCJJCJ,1) & ""="" then
CJJCCCJ=CJCJJCJ:exit for
end if:next
end if:if CJJCCCJ=0 then
Call ClearCache
else
CJCJCCC(CJJCCCJ,0)=CLng(CCCJJJJ):if CCCCCCJ<>"" then CJCJCCC(CJJCCCJ,1)=CLng(CCCCCCJ)
if CCCCCCC<>"" then CJCJCCC(CJJCCCJ,2)=CCCCCCC
if CCJJJJC<>"" then CJCJCCC(CJJCCCJ,3)=CCJJJJC
if CJJJJJJJ<>"" then CJCJCCC(CJJCCCJ,4)=CLng(CJJJJJJJ)
end if
end if:if CJJCCCJ>0 then
Application.Lock():Application(CJCCJCC) = CJCJCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJCJ):Call ConnClose:Response.Write CCCCJCJ:Response.End:End Sub:Private Function CCJJCJC():CCJJCJC=CCCJJJC+1:End Function:Private Function CCCJJJC():dim CJCJCCJ:set CJCJCCJ=CCJCCJ.execute(CCCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJCJ & CCCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CCCJJJC=CJCJCCJ(0):CJCJCCJ.Close: Set CJCJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(5):dim CJCJCCC:set CJCJCCC=new jtree:CJCJCCC.table=CCCJJCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCCJJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9625m") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCCJJCC("k^9625m") & vbCrLf):Response.Write(CCCJJCC("k3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCCJJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCJJCC(" ,k=686?5m??????????????????k^=686?5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9mt>2:=k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):dim CJJCCCJ:CCCJCJ=CCCJJCC("D6=64E ,:5[FD6C?2>6[?:4<?2>6[=2DEE:>6[=2DE:A[EJA6[>@3:=6[6>2:=[EJA6?2>6 ,7C@> ,G0>6>36C ,H96C6 ,:5m` ,2?5 ,") & CJCJCCC.Sql_GetChildren(CCCCCJ) & CCCJJCC(" ,2?5 ,:DD49@@=25>:?l` ,@C56C ,3J ,EJA6"):set CCCJJJ=CCJCCJ.execute(CCCJCJ):CJJCCCJ=1:while not CCCJJJ.eof:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJCCCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(0):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCJCJCJ(CCCJJJ(4)):Response.Write(CCCJJCC(" ,M ,")):Response.Write  CCCJJJ(3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(8):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(6):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(7):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CCCJJJ.movenext:CJJCCCJ=CJJCCCJ+1:wend:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCJJCC("k^7@C>m") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CCCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CCCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CCCJJCC("NXj") & vbCrLf):Response.Write(CCCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCCC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0
Function CCCJJCC(ByVal CCCJJCJ)
Dim CCJJJCJ, CJJCCCJ, CJCJCJJ
CCCJJCJ = Replace(CCCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCCJ = 1 To Len(CCCJJCJ)
If CJJCCCJ <> CJCJCJJ Then
CCJJJCJ = AscW(Mid(CCCJJCJ, CJJCCCJ, 1))
If CCJJJCJ >= 33 And CCJJJCJ <= 79 Then
CCCJJCC = CCCJJCC & Chr(CCJJJCJ + 47)
ElseIf CCJJJCJ >= 80 And CCJJJCJ <= 126 Then
CCCJJCC = CCCJJCC & Chr(CCJJJCJ - 47)
Else
CJCJCJJ = CJJCCCJ + 1
If Mid(CCCJJCJ, CJCJCJJ, 1) = Chr(64) Then CCCJJCC = CCCJJCC & ChrW(CCJJJCJ + 5) Else CCCJJCC = CCCJJCC & Mid(CCCJJCJ, CJJCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de