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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJJ, CCJCJC,CCJCCJ, CCJCCC, CCCJJJ:Set CCJCJJ = server.CreateObject(CCCCJCJ("ps~sq]r@??64E:@?")):CCJCJJ.open Application(CCCCJCJ("r@??64E:@?$EC:?8")):Set CCJCJC=CCJCJJ::Dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC:CJJCJCC=Trim(Request.Cookies(CCCCJCJ("!$*|t|qt#"))):if CJJCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJC>0 then
CCCJJJ=CCCCJCJ("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") & CCCJCJ & CCCCJCJ("V ,2?5 ,:5l") & CCCJJC
set CCJCCJ=CCJCJJ.execute(CCCJJJ):If CCJCCJ.EOF Then
Call ClearMemberCookie
Else
CCCJCC=CCJCCJ(2) & "":CCCCJJ=CCJCCJ(3):CCCCJC=CCJCCJ(5):CCCCCJ=CCJCCJ(6):CCCCCC=CCJCCJ(9):CJJJJJJ=CCJCCJ(15):CJJJJCJ=CCJCCJ(0):CJJCJJC=CCJCCJ(1):CJJCJJJ=CCJCCJ(11) & "":CJJJJCC=CCJCCJ(10) & "":CJJJJJC=CCJCCJ(12):CJJJCJJ=CCJCCJ(14):CJJJCJC=CCJCCJ(13):CJJJCCJ=CCJCCJ(7) & "":CJJJCCC=CCJCCJ(4):CJJCJCJ=CCJCCJ(8):if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCCCCC) or CCCCCC=0 then CCCCCC=CCCCJJ
if isnull(CJJJCCC) then CJJJCCC=0
if isnull(CCCCJC) then CCCCJC=0
if instr(CCCCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJCJ)>0 then Call RedirectMessage(CCCCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJC,CCCJCJ)
End IF
end if:::Sub CheckLogined():if CCCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCJJ:CJJCCJJ=trim(request.QueryString(CCCCJCJ("D49@@="))):if isnumeric(CJJCCJJ) then
response.Redirect CCCCJCJ("^>^G2?E^R^D49@@=^") & CJJCCJJ & CCCCJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCJCJ("!$*|t|qt#"))="":CCCJJC=0:CCCCCJ=0:CCCJCJ=Empty:CCCCJC=0:CJJJJJJ=0:CCCCCC=0:CCCCJJ=0:CJJJJCJ=False:CJJCJJC=False:CJJCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:CJJCCJC=split(CJJCJCC,CCCCJCJ("]")):if ubound(CJJCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJC(0)) or len(CJJCCJC(1))<>32 or len(CJJCCJC(2))<>32 then
Call ClearMemberCookie
else
CJJCCCJ=CJJCCJC(1):for CJJCCCC=1 to len(CJJCCCJ):CJCJJJJ=mid(CJJCCCJ,CJJCCCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ
if len(CJCJJJC)=7 then exit for
next:CJJCCCJ=CJJCCJC(2):if CJCJJJC<>mid(CJJCCCJ,6,7) then
Call ClearMemberCookie
else
CJCJJJJ=mid(CJJCCCJ,18,10)/2:if CJCJJJJ<DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJC=Clng(CJJCCJC(0)):CCCJCJ=CJJCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCCC,CCCCJCC):dim CJJCCCC,CJCJJJJ,CJCJJJC:for CJJCCCC=1 to len(CCCCJCC):CJCJJJJ=mid(CCCCJCC,CJJCCCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ
if len(CJCJJJC)=7 then exit for
next:CJCJJJC=CCCJCCC & CCCCJCJ("]") & CCCCJCC & CCCCJCJ("]") & Fix(10000*(Rnd+1)) & CJCJJJC & Fix(10000*(Rnd+1)) & DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJCJ("!$*|t|qt#"))=CJCJJJC:End Sub:::Function IIf(CCCCCJJ, CCCCCJC, CCCCCCJ):if isnull(CCCCCJJ) or isempty(CCCCCJJ) then
IIf = CCCCCCJ
elseif CCCCCJJ Then
IIf = CCCCCJC
Else
IIf = CCCCCCJ
end if:End Function:Const CCJCJCJ="^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 CJJCCCC,CJCJJJJ,CJCJJCJ:if isarray(str) then
on error resume next:CJJCCCC=ubound(str,2):CJCJJCJ=err.number:err.clear:on error goto 0:if CJCJJCJ<>0 then
for CJJCCCC=0 to ubound(str):if CJJCCCC>0 then response.Write CCCCJCJ("k3C ,^m")
response.Write CJJCCCC & CCCCJCJ("i ,") & str(CJJCCCC):next
else
response.Write CCCCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCCC=0 to ubound(str,2):response.Write CCCCJCJ("kE9 ,2=:8?lV=67EVm") & CJJCCCC & CCCCJCJ("k^E9m")
next:response.Write CCCCJCJ("k^ECm"):for CJJCCCC=0 to ubound(str):response.Write CCCCJCJ("kECmkE9m") & CJJCCCC & CCCCJCJ("k^E9m"):for CJCJJJJ=0 to ubound(str,2):response.Write CCCCJCJ("kE5m") & str(CJJCCCC,CJCJJJJ) & CCCCJCJ("k^E5m"):next:response.Write CCCCJCJ("k^ECm"):next:response.Write CCCCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJJJJ,CJJJJJJC):dim CJJCCJC:CJJCCJC=CJJJJJJJ & CCCCJCJ("l") & CJJJJJJC & CCCCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJCJ("$6E\r@@<:6"),CJJCCJC):End Sub:::::::Function CCJCCJJ(CJCJJCJ):if isnull(CJCJJCJ) or trim(CJCJJCJ)="" or not isnumeric(CJCJJCJ) then
CCJCCJJ=false
else
Dim CJCJJCC:Set CJCJJCC = New RegExp:CJCJJCC.Pattern = CCCCJCJ("/-5ZS"):CJCJJCC.IgnoreCase = True:CCJCCJJ = CJCJJCC.test(CJCJJCJ):set CJCJJCC=nothing
end if:End Function:Function CCJCCJC(CJJJJJCJ):dim CJCJCJJ,CJCJCJC:CJCJCJJ=CCCCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJJCJ & CCCCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJC=CCJCJJ.execute(CJCJCJJ):CCJCCJC = CJCJCJC(0):if isnull(CCJCCJC) then CCJCCJC=1
CJCJCJC.close : set CJCJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJCJCJC.close : set CJCJCJC=nothing:CCJCCC.Close : Set CCJCCC=Nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CCJCJJ.Close : Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJCJ("!$*0|6DD286"),server.URLEncode(CJJJJJCC)):Response.Redirect CCCCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJJJCJJ):Application.Contents.Remove CJJJJCJJ
End Sub::Class jTree:Private CCCJJJ, CJCJCCJ, CJCJCCC, CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:Private Sub Class_Initialize():CJCJCCC = 0:CJCCJJJ = 0:CJCCCJJ=10:End Sub:Public Property Let Table(CJJJJCJC):if CJJJJCJC="" then Call RedirectMessage(CCCCJCJ("????????,;%C66????????????????????@??????????,"))
CJCCJJC=CJJJJCJC:CJCCJCJ=CCCCJCJ("!$*0") & UCase(CJCCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJJC:End Property:::Private Sub GetTreeArray():Dim CJJCCCC, CJCJJJJ, CJCCCJC,CJCCCCJ:CJCJCCJ = Application(CJCCJCJ):If Not IsArray(CJCJCCJ) Then
CCCJJJ = CCCCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJJC:if CJCCJCC<>"" then CCCJJJ=CCCJJJ & CCCCJCJ(" ,H96C6 ,") & CJCCJCC
set CJCCCJC=CCJCJJ.execute(CCCJJJ):CJCCCCJ=CJCCCJC(0):if CJCCCCJ=0 then Call RedirectMessage(CCCCJCJ("????W") & CJCCJJC & CCCCJCJ("^") & CJCCJCC & CCCCJCJ("X????????????"))
CJCCJJJ=CJCCCCJ+CJCCCJJ:ReDim CJCJCCJ(CJCCJJJ, 4):CCCJJJ = CCCCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CCCCJCJ(" ,H:E9 ,W?@=@4<X"):if CJCCJCC<>"" then CCCJJJ=CCCJJJ & CCCCJCJ(" ,H96C6 ,") & CJCCJCC
CCCJJJ=CCCJJJ & CCCCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCCJC=CCJCJJ.execute(CCCJJJ):For CJJCCCC = 1 To CJCCCCJ:For CJCJJJJ = 0 To 4:CJCJCCJ(CJJCCCC, CJCJJJJ) = CJCCCJC(CJCJJJJ):if IsNull(CJCJCCJ(CJJCCCC,4)) then CJCJCCJ(CJJCCCC,4)=0
If CJCJCCJ(CJJCCCC,2)="" then CJCJCCJ(CJJCCCC,2)=CCCCJCJ(",??.")
Next:CJCCCJC.MoveNext:Next:CJCCCJC.Close: Set CJCCCJC = Nothing:for CJJCCCC=CJCCJJJ-(CJCCCJJ-1) to CJCCJJJ:CJCJCCJ(CJJCCCC,0)=CJJCCCC:next:Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
else
CJCCJJJ=Ubound(CJCJCCJ)
End If:End Sub:::::Private Function CCCJJCC(CCCJCCC):dim CJJCCCC,CJCCCCC:CCCJJCC=0:CJCCCCC=CStr(CCCJCCC):if CJCCCCC<>"0" then
for CJJCCCC=1 to CJCCJJJ:If CStr(CJCJCCJ(CJJCCCC, 0))=CJCCCCC Then
CCCJJCC = CJJCCCC:Exit For
End If:Next
end if:End Function::::Public Function CCCJCJJ(CCCJCCC):Dim CJJCCCC,CCJJJJJ:CJJCCCC=CCCJJCC(CCCJCCC):if CJJCCCC=0 then
CCJJJJJ=CCCJCJC(CCCJCCC)
else
CCJJJJJ=CJCJCCJ(CJJCCCC,3):if isnull(CCJJJJJ) or CCJJJJJ="" then
CCJJJJJ=CCCJCJC(CCCJCCC)
elseif Mid(CCJJJJJ,instrrev(CCJJJJJ,CCCCJCJ("["))+1)<>CStr(CCCJCCC) then
CCJJJJJ=CCCJCJC(CCCJCCC)
elseif Left(CCJJJJJ,1)=CCCCJCJ("[") then
CCJJJJJ=CCCJCJC(CCCJCCC)
end if
end if:CCCJCJJ=CCJJJJJ:End Function:Private Function CCCJCJC(CCCJCCC):dim CJCCCCC:CJCCCCC=CStr(CCCJCCC):if CJCCCCC="0" then
CCCJCJC=""
else
dim CJCCCJC:set CJCCCJC=CCJCJJ.execute(CCCCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CCCCJCJ(" ,H96C6 ,:5l") & CCCJCCC):if CJCCCJC.eof then
Call UpdateCache(CCCJCCC,"","","",""):Call RedirectMessage(CCCCJCJ("??????,xs??,") & CCCJCCC & CCCCJCJ("??,????????,????????????????????,"))
else
if CJCCCJC(0)=0 then
CCCJCJC="0," & CCCJCCC
else
CCCJCJC=CCCJCJJ(CJCCCJC(0)) & CCCCJCJ("[") & CCCJCCC
end if:if CJCCCJC(2)<>CCCJCJC then
CCJCJJ.execute CCCCJCJ("FA52E6 ,") & CJCCJJC & CCCCJCJ(" ,D6E ,A2E9lV") & CCCJCJC & CCCCJCJ("V ,H96C6 ,:5l") & CCCJCCC
else
CCCJCJC=CJCCCJC(2)
end if
end if:Call UpdateCache(CCCJCCC,CJCCCJC(0),CJCCCJC(1),CCCJCJC,CJCCCJC(3)):CJCCCJC.Close: Set CJCCCJC = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCCJCCC):dim CCJJJJJ:CCJJJJJ=CCCJCJJ(CCCJCCC):Sql_GetChildren = CJCCJJC & CCCCJCJ("0A2E9ZV[V ,=:<6 ,V") & CCJJJJJ & CCCCJCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCJCJ
End Sub:Public Sub UpdateCache(CCCJCCC,CJJJJCCJ,CJJJJCCC,CCJJJJJ,CJJJCJJJ):dim CJJCCCC,CJCJJJJ:CCCJCCC=CLng(CCCJCCC):CJJCCCC=CCCJJCC(CCCJCCC):if CJJJJCCJ="" and CJJJJCCC="" and CCJJJJJ="" and CJJJCJJJ="" then
if CJJCCCC>0 then
for CJCJJJJ=1 to 4:CJCJCCJ(CJJCCCC,CJCJJJJ)=Null:next
end if
else
if CJJCCCC=0 then
for CJCJJJJ=1 to CJCCJJJ:if CJCJCCJ(CJCJJJJ,1) & ""="" then
CJJCCCC=CJCJJJJ:exit for
end if:next
end if:if CJJCCCC=0 then
Call ClearCache
else
CJCJCCJ(CJJCCCC,0)=CLng(CCCJCCC):if CJJJJCCJ<>"" then CJCJCCJ(CJJCCCC,1)=CLng(CJJJJCCJ)
if CJJJJCCC<>"" then CJCJCCJ(CJJCCCC,2)=CJJJJCCC
if CCJJJJJ<>"" then CJCJCCJ(CJJCCCC,3)=CCJJJJJ
if CJJJCJJJ<>"" then CJCJCCJ(CJJCCCC,4)=CLng(CJJJCJJJ)
end if
end if:if CJJCCCC>0 then
Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJCC):Call ConnClose:Response.Write CJJJJJCC:Response.End:End Sub:Private Function CCJCCJC():CCJCCJC=CCCCJJJ+1:End Function:Private Function CCCCJJJ():dim CJCJCJC:set CJCJCJC=CCJCJJ.execute(CCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJJC & CCCCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCJJJ=CJCJCJC(0):CJCJCJC.Close: Set CJCJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCCJJ:CCCJJJ=Request.ServerVariables(CCCCJCJ("!p%w0x}u~")):if instr(CCCJJJ,CCCCJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJCJ and not CJJCJJC then Call RedirectMessage(CCCCJCJ("????????,????????????????????????,"))
CJJCCJJ=CCCCCC
elseif instr(CCCJJJ,CCCCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJJJ,CCCCJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCJJ=CCCCCC
elseif instr(CCCJJJ,CCCCJCJ("^D49@@="))>0 then
CJJCCJJ=Request.QueryString(CCCCJCJ("D49@@=")):if not CCJCCJJ(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCCCJCJ("F"))
if not CCJCCJJ(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCCCJCJ("D4"))
if not CCJCCJJ(CJJCCJJ) then Call RedirectMessage(CCCCJCJ("????????W$49@@=X??@??????????,"))
CJJCCJJ=csng(CJJCCJJ)
end if:if CJJCCJJ=0 then Call RedirectMessage(CCCCJCJ("????????W$49@@=X????W_X??,"))
Dim CCJJJJC:Call SetConfig:Sub SetConfig():dim CCJJJCJ,CJCJCJC:CCCJJJ=CCCCJCJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJJCCJJ:set CJCJCJC=CCJCJJ.execute(CCCJJJ):if CJCJCJC.eof then Call RedirectMessage(CCCCJCJ("??W") & CCCJJC & CCCCJCJ("X??????????W") & CJJCCJJ & CCCCJCJ("X????????,"))
ReDim CCJJJCJ(61):CCJJJCJ(0)=CJCJCJC(CCCCJCJ(";:2@H6:")) & "":CCJJJCJ(1)=CJCJCJC(CCCCJCJ("EJA6")):CCJJJCJ(2)=CJCJCJC(CCCCJCJ("D>D")):CCJJJCJ(3)=CJCJCJC(CCCCJCJ("4FDE@>8C@FA")) & "":CCJJJCJ(4)=CJCJCJC(CCCCJCJ("D:5632C0@E96C")) & "":CCJJJCJ(5)=IIf(isnull(CJCJCJC(CCCCJCJ("E6DEC6DF=EG:6H"))),0,CJCJCJC(CCCCJCJ("E6DEC6DF=EG:6H"))):CCJJJCJ(6)=CJCJCJC(CCCCJCJ("K:IF?E:>6")):CCJJJCJ(7)=CJCJCJC(CCCCJCJ("766")):CCJJJCJ(8)=CJCJCJC(CCCCJCJ("C6E6DE52J")):CCJJJCJ(9)=CJCJCJC(CCCCJCJ("6IA:C652E6")):CCJJJCJ(10)=CJCJCJC(CCCCJCJ("E:E=6")):CCJJJCJ(11)=CJCJCJC(CCCCJCJ(":?EC@")) & "":CCJJJCJ(12)=CJCJCJC(CCCCJCJ("A:4EFC6")) & "":CCJJJCJ(13)=CJCJCJC(CCCCJCJ("72>:=J")):CCJJJCJ(14)=CJCJCJC(CCCCJCJ("4@AJC:89E")) & "":CCJJJCJ(15)=IIf(isnull(CJCJCJC(CCCCJCJ("D6>6DE6C0DE2CE052E6"))),CCCCJCJ("`h__\`\`"),CJCJCJC(CCCCJCJ("D6>6DE6C0DE2CE052E6"))):CCJJJCJ(16)=IIf(isnull(CJCJCJC(CCCCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJC(CCCCJCJ("K:IF?0E:>6D09:89=:89E"))):CCJJJCJ(17)=CJCJCJC(CCCCJCJ("4@?E24E")) & "":CCJJJCJ(18)=CJCJCJC(CCCCJCJ("D2?5E23=6")):CCJJJCJ(19)=CJCJCJC(CCCCJCJ("4C:D:D")):CCJJJCJ(20)=CJCJCJC(CCCCJCJ("JJ52E6")):CCJJJCJ(21)=CJCJCJC(CCCCJCJ("BB")):CCJJJCJ(22)=CJCJCJC(CCCCJCJ("JFJF60D>D0EA=")) & "":CCJJJCJ(23)=CJCJCJC(CCCCJCJ("JFJF60E6DE0=3")) & "":CCJJJCJ(25)=CJCJCJC(CCCCJCJ("6IA6CE")):CCJJJCJ(26)=CJCJCJC(CCCCJCJ(">@5:?7@")):CCJJJCJ(27)=CJCJCJC(CCCCJCJ("9@>6A286E@AA:4EFC6")) & "":CCJJJCJ(28)=CJCJCJC(CCCCJCJ("4C:D:D=3")):CCJJJCJ(29)=IIf(CJCJCJC(CCCCJCJ("4C:D:D@=5")),False,True):CCJJJCJ(30)=CJCJCJC(CCCCJCJ("8C@FA8F:52?46")):CCJJJCJ(31)=CJCJCJC(CCCCJCJ("3:@7665324<")):CCJJJCJ(32)=CJCJCJC(CCCCJCJ("<6JDEC")):CCJJJCJ(33)=CJCJCJC(CCCCJCJ("=@8@")) & "":CCJJJCJ(34)=CJCJCJC(CCCCJCJ("K:46")):CCJJJCJ(35)=IIf(CJCJCJC(CCCCJCJ(":D?6H")),True,False):CCJJJCJ(36)=121:CCJJJCJ(37)=111:CCJJJCJ(38)=160:CCJJJCJ(39)=CJCJCJC(CCCCJCJ("8F6DE3@@<")):CCJJJCJ(40)=CJCJCJC(CCCCJCJ("75D")):CCJJJCJ(42)=CJCJCJC(CCCCJCJ("9@>6=@8:?")):CCJJJCJ(43)=CJCJCJC(CCCCJCJ("K:IF?0?6657665324<")):CCJJJCJ(44)=CJCJCJC(CCCCJCJ("K:IF?0E:>6D0=:>:E")):CCJJJCJ(45)=CJCJCJC(CCCCJCJ("4@>A=6E60:?7@")):CCJJJCJ(46)=CJCJCJC(CCCCJCJ("E6DE:?EC@")) & "":CCJJJCJ(47)=IIf(isnull(CJCJCJC(CCCCJCJ("JFJF60367@C60E:>6"))),0,CJCJCJC(CCCCJCJ("JFJF60367@C60E:>6"))):CCJJJCJ(49)=CJCJCJC(CCCCJCJ("D>D0C646:G6C")):CCJJJCJ(50)=CJCJCJC(CCCCJCJ("D>D0D:8?")) & "":CCJJJCJ(52)=CJCJCJC(CCCCJCJ("JFJF602CC2?86")):CCJJJCJ(53)=IIf(isnull(CJCJCJC(CCCCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJC(CCCCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJJCJ(54)=CJCJCJC(CCCCJCJ("9:560=30@FE@7286")):CCJJJCJ(55)=CJCJCJC(CCCCJCJ("JFJF60E6DE052JD")):CCJJJCJ(56)=CJCJCJC(CCCCJCJ("JFJF60H66<0=:>:E")):CCJJJCJ(57)=CJCJCJC(CCCCJCJ("JFJF604964<65")):CCJJJCJ(58)=CJCJCJC(CCCCJCJ("K:IF?0?6657665324<0?6IE")):CCJJJCJ(59)=CJCJCJC(CCCCJCJ("4964<?6HDEF56?E")):CCJJJCJ(60)=CJCJCJC(CCCCJCJ("K:IF?04=@D6052E6")):CJCJCJC.close : set CJCJCJC=nothing:if isNull(CCJJJCJ(8)) or CCJJJCJ(8)="" then CCJJJCJ(8)=0
if isdate(CCJJJCJ(9)) then
CCJJJCJ(9)=cdate(CCJJJCJ(9)):if CCJJJCJ(9)<Date then Call RedirectMessage(CCCCJCJ("????????,????????????????W") & CCJJJCJ(9) & CCCCJCJ("X??????,"))
end if:if not CCJCCJJ(CCJJJCJ(20)) then CCJJJCJ(20)=7
select case CCJJJCJ(1):case 1,2,16:CCJJJCJ(36)=159:case 4,5,6,10,11:CCJJJCJ(36)=190:CCJJJCJ(37)=178:CCJJJCJ(38)=191:case 7,13:CCJJJCJ(36)=164:CCJJJCJ(37)=178:CCJJJCJ(38)=179:end select:CCJJJJC=CCJJJCJ:End Sub:Function CCCJJJJ(CJJJCJJC):dim CCJJJCJ(7,1),CJJCCCC,CCJJJCC,CCJJCJJ:CCJJJCC=Array(CCCCJCJ("$49@@="),CCCCJCJ("$EF56?E"),CCCCJCJ("s6AE"),CCCCJCJ("vC256"),CCCCJCJ("r=2DD>2E6"),CCCCJCJ("}F>36C"),CCCCJCJ("%62496C"),CCCCJCJ("!2C6?E")):select case CCJJJJC(1):case 1,2 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????")):case 3,16 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????")):case 4 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("??????@"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????")):case 5 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????")):case 6 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("??????@"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 7 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 8 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("??????@"),CCCCJCJ("????"),CCCCJCJ("????????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 9 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 10 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 11 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 12 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 13 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????")):case 14 : CCJJCJJ=Array(CCCCJCJ("??????"),CCCCJCJ("??@??"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case 15 : CCJJCJJ=Array(CCCCJCJ("????"),CCCCJCJ("????????"),CCCCJCJ("????"),CCCCJCJ("????????"),CCCCJCJ("????"),CCCCJCJ("????"),CCCCJCJ("??????"),CCCCJCJ("????")):case else : CCJJCJJ=CCJJJCC
end select:for CJJCCCC=0 to Ubound(CCJJJCJ):CCJJJCJ(CJJCCCC,0)=CCJJJCC(CJJCCCC):CCJJJCJ(CJJCCCC,1)=CCJJCJJ(CJJCCCC):next:for CJJCCCC=0 to Ubound(CCJJJCJ):if CCJJJCJ(CJJCCCC,0)=CJJJCJJC then
CCCJJJJ=CCJJJCJ(CJJCCCC,1):exit for
end if:next:End Function::dim CCJJCJC,CCJJCCJ:CCJJCCJ=false:if CJJCCJJ>1 then
set CCJCCJ=CCJCJJ.execute(CCCCJCJ("D6=64E ,E@A ,` ,DF>0=2DEE:>6 ,7C@> ,D49@@= ,H96C6 ,:5l") & CJJCCJJ):CCJJCJC=CCJCCJ(0):if not isdate(CCJJCJC) then
CCJJCCJ=true
elseif DateDiff(CCCCJCJ("9"),CCJJCJC,now)>24 then
CCJJCCJ=true
end if:if CCJJCCJ then
dim CJCJCCJ:set CJCJCCJ=new jtree:CJCJCCJ.table=CCCCJCJ(">6>36C0EJA6"):dim CCJJCCC,CCJCJJJ:CCJCJJJ=CJCJCCJ.Sql_GetChildren(CJJCCJJ):CCCJJJ=CCCCJCJ("FA52E6 ,D49@@= ,D6E") & CCCCJCJ(" ,DF>0DEF56?ElWD6=64E ,4@F?EW:5X ,7C@> ,G0>6>36C ,H96C6 ,>6>36C0EJA60E@Al") & CJJCCJJ & CCCCJCJ("X") & CCCCJCJ("[DF>0E6DElWD6=64E ,4@F?EW:5X ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,G2=:5l` ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ & CCCCJCJ("X") & CCCCJCJ("[DF>04C:D:D0`lWD6=64E ,4@F?EW:5X ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,G2=:5l` ,2?5 ,=3l") & CCJJJJC(36) & CCCCJCJ(" ,2?5 ,WC6DF=ElVbV ,@C ,C6DF=ElVcVX ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ & CCCCJCJ("X") & CCCCJCJ("[DF>04C:D:D0alWD6=64E ,4@F?EW:5X ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,G2=:5l` ,2?5 ,=3l") & CCJJJJC(37) & CCCCJCJ(" ,2?5 ,WC6DF=ElVbV ,@C ,C6DF=ElVcVX ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ & CCCCJCJ("X") & CCCCJCJ("[DF>04C:D:D0blWD6=64E ,4@F?EW:5X ,7C@> ,G04C:D:D06G2=F2E6 ,H96C6 ,W,=6G6=.lVbV ,@C ,,=6G6=.lVcVX ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ & CCCCJCJ("X") & CCCCJCJ("[DF>04C:D:D0clWD6=64E ,4@F?EW:5X ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,G2=:5l` ,2?5 ,=3l") & CCJJJJC(38) & CCCCJCJ(" ,2?5 ,WC6DF=ElVbV ,@C ,C6DF=ElVcVX ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ & CCCCJCJ("X") & CCCCJCJ("[DF>0K:IF?lWD6=64E ,4@F?EW:5X ,7C@> ,G0KI ,H96C6 ,DE2EFDmlc ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ & CCCCJCJ("X") & CCCCJCJ("[DF>0=2DEE:>6l86E52E6WX") & CCCCJCJ(" ,H96C6 ,:5l") & CJJCCJJ
CCJCJJ.execute CCCJJJ
end if
end if:Response.Write CCCCJCJ("FA52E6i ,") & CCJJCCJ::On Error Resume Next:set CJCJCCJ=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCJCCC.Close:Set CCJCCC=Nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJJ.Close:Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCJCJ(ByVal CCCCJJC)
Dim CCJCJJC, CJJCCCC, CJCJJCJ
CCCCJJC = Replace(CCCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCCC = 1 To Len(CCCCJJC)
If CJJCCCC <> CJCJJCJ Then
CCJCJJC = AscW(Mid(CCCCJJC, CJJCCCC, 1))
If CCJCJJC >= 33 And CCJCJJC <= 79 Then
CCCCJCJ = CCCCJCJ & Chr(CCJCJJC + 47)
ElseIf CCJCJJC >= 80 And CCJCJJC <= 126 Then
CCCCJCJ = CCCCJCJ & Chr(CCJCJJC - 47)
Else
CJCJJCJ = CJJCCCC + 1
If Mid(CCCCJJC, CJCJJCJ, 1) = Chr(64) Then CCCCJCJ = CCCCJCJ & ChrW(CCJCJJC + 5) Else CCCCJCJ = CCCCJCJ & Mid(CCCCJJC, CJJCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de