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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJ, CJJJJC,CJJJCJ, CJJJCC, CJJCJJ:Set CJJJJJ = server.CreateObject(CCJJCJJ("ps~sq]r@??64E:@?")):CJJJJJ.open Application(CCJJCJJ("r@??64E:@?$EC:?8")):Set CJJJJC=CJJJJJ:::Function IIf(CCJJCJC, CCJJCCJ, CCJJCCC):if isnull(CCJJCJC) or isempty(CCJJCJC) then
IIf = CCJJCCC
elseif CCJJCJC Then
IIf = CCJJCCJ
Else
IIf = CCJJCCC
end if:End Function: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=CCJJCJJ("FE7\g"):dim CJJCJC,CJJCCJ,CJJCCC:if isarray(str) then
on error resume next:CJJCJC=ubound(str,2):CJJCCC=err.number:err.clear:on error goto 0:if CJJCCC<>0 then
for CJJCJC=0 to ubound(str):if CJJCJC>0 then response.Write CCJJCJJ("k3C ,^m")
response.Write CJJCJC & CCJJCJJ("i ,") & str(CJJCJC):next
else
response.Write CCJJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJC=0 to ubound(str,2):response.Write CCJJCJJ("kE9 ,2=:8?lV=67EVm") & CJJCJC & CCJJCJJ("k^E9m")
next:response.Write CCJJCJJ("k^ECm"):for CJJCJC=0 to ubound(str):response.Write CCJJCJJ("kECmkE9m") & CJJCJC & CCJJCJJ("k^E9m"):for CJJCCJ=0 to ubound(str,2):response.Write CCJJCJJ("kE5m") & str(CJJCJC,CJJCCJ) & CCJJCJJ("k^E5m"):next:response.Write CCJJCJJ("k^ECm"):next:response.Write CCJJCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJJCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJJCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJCJJJ,CCJCJJC):dim CJCJJJ:CJCJJJ=CCJCJJJ & CCJJCJJ("l") & CCJCJJC & CCJJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJJ("$6E\r@@<:6"),CJCJJJ):End Sub::::::sub ShowMessage(CCJCJCJ):response.Charset=CCJJCJJ("FE7\g"):Response.Write CCJJCJJ("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") & CCJCJCJ & CCJJCJJ("k^5:Gmk^5:Gmk3Cm")
end sub::Function CJCJCCJ(CCJCJCC):dim CJCJJC,CJCJCJ:CJCJJC=CCJJCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJCC & CCJJCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJ=CJJJJJ.execute(CJCJJC):CJCJCCJ = CJCJCJ(0):if isnull(CJCJCCJ) then CJCJCCJ=1
CJCJCJ.close : set CJCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJJJC=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJCJCJ.close : set CJCJCJ=nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJJJJJ.Close : Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJJ("!$*0|6DD286"),server.URLEncode(CCJCJCJ)):Response.Redirect CCJJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::Sub StringDown(CCJCCJJ, str):Call ConnClose:Response.Charset="utf-8":Response.Buffer = True:Response.Clear:if right(CCJCCJJ,4)=CCJJCJJ("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CCJJCJJ("r@?E6?E\s:DA@D:E:@?"), CCJJCJJ("2EE249>6?Ej ,7:=6?2>6l") & CCJCCJJ:Response.ContentType = CCJJCJJ("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub:::::::::::::::::::::::::::::::::::Sub ClearCache(CCJCCJC):Application.Contents.Remove CCJCCJC
End Sub::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(CCJJCJJ("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
CJJCJJ=CCJJCJJ("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 & CCJJCJJ("V ,2?5 ,:5l") & CJCJCC
set CJJJCJ=CJJJJJ.execute(CJJCJJ):If CJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJCCJC=CJJJCJ(2) & "":CJCCCJ=CJJJCJ(3):CJCCCC=CJJJCJ(5):CCJJJJ=CJJJCJ(6):CCJJJC=CJJJCJ(9):CCJJCJ=CJJJCJ(15):CCJCJJ=CJJJCJ(0):CCCJCC=CJJJCJ(1):CCCJCJ=CJJJCJ(11) & "":CCJCJC=CJJJCJ(10) & "":CCJJCC=CJJJCJ(12):CCJCCJ=CJJJCJ(14):CCJCCC=CJJJCJ(13):CCCJJJ=CJJJCJ(7) & "":CCCJJC=CJJJCJ(4):CCCCJJ=CJJJCJ(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(CCJJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CCJJCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:Sub CheckRight(CCJCCCJ):dim CJJCJC,CCCCCJ:if CJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJJ("??????????????,????????????,"))
elseIf not CJCCJCC(CCJCCCJ) then
Call RedirectMessage(CCJJCJJ("????W") & CCJCCCJ & CCJJCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJCCJCC(CCJCCCJ):dim CJJCJC,CCCCCJ:CCCCCJ=split(CCJCCCJ,CCJJCJJ("[")):CJCCJCC=False:for CJJCJC=0 to ubound(CCCCCJ):If Mid(CJCCJC,CCCCCJ(CJJCJC),1)="1" then
CJCCJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJJCJJ("!$*|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 CJCJJJ,CCCCCC,CJJCJC,CJJCCJ,CJJJJJJ:CJCJJJ=split(CCCCJC,CCJJCJJ("]")):if ubound(CJCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJJ(0)) or len(CJCJJJ(1))<>32 or len(CJCJJJ(2))<>32 then
Call ClearMemberCookie
else
CCCCCC=CJCJJJ(1):for CJJCJC=1 to len(CCCCCC):CJJCCJ=mid(CCCCCC,CJJCJC,1):if isnumeric(CJJCCJ) then CJJJJJJ=CJJJJJJ & CJJCCJ
if len(CJJJJJJ)=7 then exit for
next:CCCCCC=CJCJJJ(2):if CJJJJJJ<>mid(CCCCCC,6,7) then
Call ClearMemberCookie
else
CJJCCJ=mid(CCCCCC,18,10)/2:if CJJCCJ<DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCC=Clng(CJCJJJ(0)):CJCCJJ=CJCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJC,CCJCCCC):dim CJJCJC,CJJCCJ,CJJJJJJ:for CJJCJC=1 to len(CCJCCCC):CJJCCJ=mid(CCJCCCC,CJJCJC,1):if isnumeric(CJJCCJ) then CJJJJJJ=CJJJJJJ & CJJCCJ
if len(CJJJJJJ)=7 then exit for
next:CJJJJJJ=CCJJJJC & CCJJCJJ("]") & CCJCCCC & CCJJCJJ("]") & Fix(10000*(Rnd+1)) & CJJJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJJ("!$*|t|qt#"))=CJJJJJJ:End Sub::Class jTree:Private CJJCJJ, CJJJJJC, CJJJJCJ, CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Private Sub Class_Initialize():CJJJJCJ = 0:CJJJJCC = 0:CJJJCCC=10:End Sub:Public Property Let Table(CCCJJJJ):if CCCJJJJ="" then Call RedirectMessage(CCJJCJJ("????????,;%C66????????????????????@??????????,"))
CJJJCJJ=CCCJJJJ:CJJJCJC=CCJJCJJ("!$*0") & UCase(CJJJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJCJJ:End Property:::Private Sub GetTreeArray():Dim CJJCJC, CJJCCJ, CJJCJJJ,CJJCJJC:CJJJJJC = Application(CJJJCJC):If Not IsArray(CJJJJJC) Then
CJJCJJ = CCJJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJCJJ:if CJJJCCJ<>"" then CJJCJJ=CJJCJJ & CCJJCJJ(" ,H96C6 ,") & CJJJCCJ
set CJJCJJJ=CJJJJJ.execute(CJJCJJ):CJJCJJC=CJJCJJJ(0):if CJJCJJC=0 then Call RedirectMessage(CCJJCJJ("????W") & CJJJCJJ & CCJJCJJ("^") & CJJJCCJ & CCJJCJJ("X????????????"))
CJJJJCC=CJJCJJC+CJJJCCC:ReDim CJJJJJC(CJJJJCC, 4):CJJCJJ = CCJJCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCJJ & CCJJCJJ(" ,H:E9 ,W?@=@4<X"):if CJJJCCJ<>"" then CJJCJJ=CJJCJJ & CCJJCJJ(" ,H96C6 ,") & CJJJCCJ
CJJCJJ=CJJCJJ & CCJJCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCJJJ=CJJJJJ.execute(CJJCJJ):For CJJCJC = 1 To CJJCJJC:For CJJCCJ = 0 To 4:CJJJJJC(CJJCJC, CJJCCJ) = CJJCJJJ(CJJCCJ):if IsNull(CJJJJJC(CJJCJC,4)) then CJJJJJC(CJJCJC,4)=0
If CJJJJJC(CJJCJC,2)="" then CJJJJJC(CJJCJC,2)=CCJJCJJ(",??.")
Next:CJJCJJJ.MoveNext:Next:CJJCJJJ.Close: Set CJJCJJJ = Nothing:for CJJCJC=CJJJJCC-(CJJJCCC-1) to CJJJJCC:CJJJJJC(CJJCJC,0)=CJJCJC:next:Application.Lock():Application(CJJJCJC) = CJJJJJC:Application.UnLock()
else
CJJJJCC=Ubound(CJJJJJC)
End If:End Sub:::::Private Function CJCCCJC(CCJJJJC):dim CJJCJC,CJJCJCJ:CJCCCJC=0:CJJCJCJ=CStr(CCJJJJC):if CJJCJCJ<>"0" then
for CJJCJC=1 to CJJJJCC:If CStr(CJJJJJC(CJJCJC, 0))=CJJCJCJ Then
CJCCCJC = CJJCJC:Exit For
End If:Next
end if:End Function::::Public Function CJCCCCJ(CCJJJJC):Dim CJJCJC,CJJCJCC:CJJCJC=CJCCCJC(CCJJJJC):if CJJCJC=0 then
CJJCJCC=CJCCCCC(CCJJJJC)
else
CJJCJCC=CJJJJJC(CJJCJC,3):if isnull(CJJCJCC) or CJJCJCC="" then
CJJCJCC=CJCCCCC(CCJJJJC)
elseif Mid(CJJCJCC,instrrev(CJJCJCC,CCJJCJJ("["))+1)<>CStr(CCJJJJC) then
CJJCJCC=CJCCCCC(CCJJJJC)
elseif Left(CJJCJCC,1)=CCJJCJJ("[") then
CJJCJCC=CJCCCCC(CCJJJJC)
end if
end if:CJCCCCJ=CJJCJCC:End Function:Private Function CJCCCCC(CCJJJJC):dim CJJCJCJ:CJJCJCJ=CStr(CCJJJJC):if CJJCJCJ="0" then
CJCCCCC=""
else
dim CJJCJJJ:set CJJCJJJ=CJJJJJ.execute(CCJJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCJJ & CCJJCJJ(" ,H96C6 ,:5l") & CCJJJJC):if CJJCJJJ.eof then
Call UpdateCache(CCJJJJC,"","","",""):Call RedirectMessage(CCJJCJJ("??????,xs??,") & CCJJJJC & CCJJCJJ("??,????????,????????????????????,"))
else
if CJJCJJJ(0)=0 then
CJCCCCC="0," & CCJJJJC
else
CJCCCCC=CJCCCCJ(CJJCJJJ(0)) & CCJJCJJ("[") & CCJJJJC
end if:if CJJCJJJ(2)<>CJCCCCC then
CJJJJJ.execute CCJJCJJ("FA52E6 ,") & CJJJCJJ & CCJJCJJ(" ,D6E ,A2E9lV") & CJCCCCC & CCJJCJJ("V ,H96C6 ,:5l") & CCJJJJC
else
CJCCCCC=CJJCJJJ(2)
end if
end if:Call UpdateCache(CCJJJJC,CJJCJJJ(0),CJJCJJJ(1),CJCCCCC,CJJCJJJ(3)):CJJCJJJ.Close: Set CJJCJJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCJJJJC):dim CJJCJCC:CJJCJCC=CJCCCCJ(CCJJJJC):Sql_GetChildren = CJJJCJJ & CCJJCJJ("0A2E9ZV[V ,=:<6 ,V") & CJJCJCC & CCJJCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJCJC
End Sub:Public Sub UpdateCache(CCJJJJC,CCCJJJC,CCCJJCJ,CJJCJCC,CCCJJCC):dim CJJCJC,CJJCCJ:CCJJJJC=CLng(CCJJJJC):CJJCJC=CJCCCJC(CCJJJJC):if CCCJJJC="" and CCCJJCJ="" and CJJCJCC="" and CCCJJCC="" then
if CJJCJC>0 then
for CJJCCJ=1 to 4:CJJJJJC(CJJCJC,CJJCCJ)=Null:next
end if
else
if CJJCJC=0 then
for CJJCCJ=1 to CJJJJCC:if CJJJJJC(CJJCCJ,1) & ""="" then
CJJCJC=CJJCCJ:exit for
end if:next
end if:if CJJCJC=0 then
Call ClearCache
else
CJJJJJC(CJJCJC,0)=CLng(CCJJJJC):if CCCJJJC<>"" then CJJJJJC(CJJCJC,1)=CLng(CCCJJJC)
if CCCJJCJ<>"" then CJJJJJC(CJJCJC,2)=CCCJJCJ
if CJJCJCC<>"" then CJJJJJC(CJJCJC,3)=CJJCJCC
if CCCJJCC<>"" then CJJJJJC(CJJCJC,4)=CLng(CCCJJCC)
end if
end if:if CJJCJC>0 then
Application.Lock():Application(CJJJCJC) = CJJJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCJCJ):Call ConnClose:Response.Write CCJCJCJ:Response.End:End Sub:Private Function CJCJCCJ():CJCJCCJ=CCJJJCJ+1:End Function:Private Function CCJJJCJ():dim CJCJCJ:set CJCJCJ=CJJJJJ.execute(CCJJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJCJJ & CCJJCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJJJCJ=CJCJCJ(0):CJCJCJ.Close: Set CJCJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(5):dim CJJCCJJ,CJJCCJC,CJJCJC:CJJCCJJ=Request.QueryString(CCJJCJJ("24E")):CJJCCJC=request.querystring(CCJJCJJ("BFI:2?")):if CJJCCJJ=CCJJCJJ("6IA@CE") then
CJJCJJ=Session(CCJJCJJ("!$*0$B=")):if CJJCJJ="" then Call ShowMessage(CCJJCJJ("????????,??????????????????,"))
set CJJJCJ=CJJJJJ.execute(CJJCJJ):if CJJJCJ.eof then
Call ShowMessage(CCJJCJJ("????????,??????????????????,"))
else
dim CJJCCCJ,str:CJJCCCJ=CCJJCJJ("k^E5mkE5m"):str=CCJJCJJ("k>6E2 ,9EEA\6BF:GlVr@?E6?E\%JA6V ,4@?E6?ElVE6IE^9E>=j ,492CD6ElFE7\gV ,^mkE23=6 ,3@C56ClV`VmkECmkE9m????????k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????k^E9mkE9m????k^E9mkE9m????k^E9mkE9m????????k^E9mk^ECm")
while not CJJJCJ.eof:str=str & CCJJCJJ("kECmkE5m") & CJJJCJ(1):for CJJCJC=2 to 10:str=str & CJJCCCJ & CJJJCJ(CJJCJC):next:str=str & CCJJCJJ("k^E5mk^ECm"):CJJJCJ.movenext:wend:str=str & CCJJCJJ("k^E23=6m"):Call StringDown(CCJJCJJ("$49@@=]I=D"),str)
end if:response.end
end if:Response.Write(vbCrLf):Response.Write(CCJJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJJ("k9625m") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCJJ("kE:E=6m??????k^E:E=6m") & vbCrLf):Response.Write(CCJJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("k^9625m") & vbCrLf):Response.Write(CCJJCJJ("k3@5Jm") & vbCrLf)::dim CJJJJJC:set CJJJJJC=new jtree:CJJJJJC.table=CCJJCJJ(">6>36C0EJA6"):dim CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:CJJCJJ=CCJJCJJ("D6=64E ,>6>36C0EJA60?2>6[DF>0DEF56?E[DF>0E6DE ,7C@> ,G0D49@@= ,H96C6 ,") & CJJJJJC.Sql_GetChildren(CJJCCJC):set CJJJCJ=CJJJJJ.execute(CJJCJJ):CJJCJC=0:CJCJJCJ=CCJJCJJ("LV?2>6ViV????????V[V52E2Vi,")
CJCJJCC=CCJJCJJ("LV?2>6ViV????????V[V52E2Vi,")
while not CJJJCJ.eof:CJCJJJJ=CJCJJJJ & CCJJCJJ("M") & CJJJCJ(0):if CJJCJC>0 then
CJCJJCJ=CJCJJCJ & CCJJCJJ("["):CJCJJCC=CJCJJCC & CCJJCJJ("[")
end if:CJCJJCJ=CJCJJCJ & IIf(isnull(CJJJCJ(1)),0,CJJJCJ(1)):CJCJJCC=CJCJJCC & IIf(isnull(CJJJCJ(2)),0,CJJJCJ(2)):CJJJCJ.movenext:CJJCJC=CJJCJC+1:wend:CJCJJCJ=CJCJJCJ & CCJJCJJ(".N"):CJCJJCC=CJCJJCC & CCJJCJJ(".N"):CJCJJJC=CCJJCJJ(",") & CJCJJCJ & CCJJCJJ("[") & CJCJJCC & CCJJCJJ("."):CJCJJJJ=mid(CJCJJJJ,2):Response.Write(vbCrLf):Response.Write(CCJJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CJCJJJJ:Response.Write(CCJJCJJ("Qm") & vbCrLf):Response.Write(CCJJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQGQ ,G2=F6lQ")):Response.Write  CJCJJJC:Response.Write(CCJJCJJ("Qm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^492CE06492CED];Dn4l4@=F>?UEl??????????????????????????????U9lbh_UCl\cdQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJJ("NXj") & vbCrLf):Response.Write(CCJJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJJC=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:CJJJJJ.Close:Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCJJ(ByVal CCJJJCC)
Dim CJCJJJC, CJJCJC, CJJCCC
CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJC = 1 To Len(CCJJJCC)
If CJJCJC <> CJJCCC Then
CJCJJJC = AscW(Mid(CCJJJCC, CJJCJC, 1))
If CJCJJJC >= 33 And CJCJJJC <= 79 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJC + 47)
ElseIf CJCJJJC >= 80 And CJCJJJC <= 126 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJC - 47)
Else
CJJCCC = CJJCJC + 1
If Mid(CCJJJCC, CJJCCC, 1) = Chr(64) Then CCJJCJJ = CCJJCJJ & ChrW(CJCJJJC + 5) Else CCJJCJJ = CCJJCJJ & Mid(CCJJJCC, CJJCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de