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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJ, CJJJJC,CJJJCJ, CJJJCC, CJJCJJ:Set CJJJJJ = server.CreateObject(CCJCJCJ("ps~sq]r@??64E:@?")):CJJJJJ.open Application(CCJCJCJ("r@??64E:@?$EC:?8")):Set CJJJJC=CJJJJJ::Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC:CCJCCC=Trim(Request.Cookies(CCJCJCJ("!$*|t|qt#"))):if CCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJC>0 then
CJJCJJ=CCJCJCJ("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") & CJJCCJ & CCJCJCJ("V ,2?5 ,:5l") & CJJCJC
set CJJJCJ=CJJJJJ.execute(CJJCJJ):If CJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJJCCC=CJJJCJ(2) & "":CJCJJJ=CJJJCJ(3):CJCJJC=CJJJCJ(5):CJCJCJ=CJJJCJ(6):CJCJCC=CJJJCJ(9):CJCCJJ=CJJJCJ(15):CJCCCJ=CJJJCJ(0):CCJCJC=CJJJCJ(1):CCJCJJ=CJJJCJ(11) & "":CJCCCC=CJJJCJ(10) & "":CJCCJC=CJJJCJ(12):CCJJJJ=CJJJCJ(14):CCJJJC=CJJJCJ(13):CCJJCJ=CJJJCJ(7) & "":CCJJCC=CJJJCJ(4):CCJCCJ=CJJJCJ(8):if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJCJCC) or CJCJCC=0 then CJCJCC=CJCJJJ
if isnull(CCJJCC) then CCJJCC=0
if isnull(CJCJJC) then CJCJJC=0
if instr(CCJCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCJ)>0 then Call RedirectMessage(CCJCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJC,CJJCCJ)
End IF
end if:Sub CheckRight(CCJCJCC):dim CCCJJJ,CCCJJC:if CJJCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCJCJ("??????????????,????????????,"))
elseIf not CJCCJJJ(CCJCJCC) then
Call RedirectMessage(CCJCJCJ("????W") & CCJCJCC & CCJCJCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCCJJJ(CCJCJCC):dim CCCJJJ,CCCJJC:CCCJJC=split(CCJCJCC,CCJCJCJ("[")):CJCCJJJ=False:for CCCJJJ=0 to ubound(CCCJJC):If Mid(CJJCCC,CCCJJC(CCCJJJ),1)="1" then
CJCCJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJCJ:CCCJCJ=trim(request.QueryString(CCJCJCJ("D49@@="))):if isnumeric(CCCJCJ) then
response.Redirect CCJCJCJ("^>^G2?E^R^D49@@=^") & CCCJCJ & CCJCJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJCJ("!$*|t|qt#"))="":CJJCJC=0:CJCJCJ=0:CJJCCJ=Empty:CJCJJC=0:CJCCJJ=0:CJCJCC=0:CJCJJJ=0:CJCCCJ=False:CCJCJC=False:CCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCC,CCCCJJ,CCCJJJ,CCCCJC,CCCCCJ:CCCJCC=split(CCJCCC,CCJCJCJ("]")):if ubound(CCCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJCC(0)) or len(CCCJCC(1))<>32 or len(CCCJCC(2))<>32 then
Call ClearMemberCookie
else
CCCCJJ=CCCJCC(1):for CCCJJJ=1 to len(CCCCJJ):CCCCJC=mid(CCCCJJ,CCCJJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCCJJ=CCCJCC(2):if CCCCCJ<>mid(CCCCJJ,6,7) then
Call ClearMemberCookie
else
CCCCJC=mid(CCCCJJ,18,10)/2:if CCCCJC<DateDiff(CCJCJCJ("D"), CCJCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJC=Clng(CCCJCC(0)):CJJCCJ=CCCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJCC,CCJCCJJ):dim CCCJJJ,CCCCJC,CCCCCJ:for CCCJJJ=1 to len(CCJCCJJ):CCCCJC=mid(CCJCCJJ,CCCJJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCCCJ=CCJJJCC & CCJCJCJ("]") & CCJCCJJ & CCJCJCJ("]") & Fix(10000*(Rnd+1)) & CCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCJCJ("D"), CCJCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJCJ("!$*|t|qt#"))=CCCCCJ:End Sub:::Function IIf(CCJCCJC, CCJCCCJ, CCJCCCC):if isnull(CCJCCJC) or isempty(CCJCCJC) then
IIf = CCJCCCC
elseif CCJCCJC Then
IIf = CCJCCCJ
Else
IIf = CCJCCCC
end if:End Function:Const CJCJCCC="^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 CCCJJJ,CCCCJC,CCCCCC:if isarray(str) then
on error resume next:CCCJJJ=ubound(str,2):CCCCCC=err.number:err.clear:on error goto 0:if CCCCCC<>0 then
for CCCJJJ=0 to ubound(str):if CCCJJJ>0 then response.Write CCJCJCJ("k3C ,^m")
response.Write CCCJJJ & CCJCJCJ("i ,") & str(CCCJJJ):next
else
response.Write CCJCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCJJJ=0 to ubound(str,2):response.Write CCJCJCJ("kE9 ,2=:8?lV=67EVm") & CCCJJJ & CCJCJCJ("k^E9m")
next:response.Write CCJCJCJ("k^ECm"):for CCCJJJ=0 to ubound(str):response.Write CCJCJCJ("kECmkE9m") & CCCJJJ & CCJCJCJ("k^E9m"):for CCCCJC=0 to ubound(str,2):response.Write CCJCJCJ("kE5m") & str(CCCJJJ,CCCCJC) & CCJCJCJ("k^E5m"):next:response.Write CCJCJCJ("k^ECm"):next:response.Write CCJCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCJJJC,CCCJJCJ):dim CCCJCC:CCCJCC=CCCJJJC & CCJCJCJ("l") & CCCJJCJ & CCJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJCJ("$6E\r@@<:6"),CCCJCC):End Sub:::::::Function CJCCJCJ(CCCCCC):if isnull(CCCCCC) or trim(CCCCCC)="" or not isnumeric(CCCCCC) then
CJCCJCJ=false
else
Dim CJJJJJJ:Set CJJJJJJ = New RegExp:CJJJJJJ.Pattern = CCJCJCJ("/-5ZS"):CJJJJJJ.IgnoreCase = True:CJCCJCJ = CJJJJJJ.test(CCCCCC):set CJJJJJJ=nothing
end if:End Function:Function CJCCJCC(CCCJJCC):dim CJJJJJC,CJJJJCJ:CJJJJJC=CCJCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJJCC & CCJCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCJ=CJJJJJ.execute(CJJJJJC):CJCCJCC = CJJJJCJ(0):if isnull(CJCCJCC) then CJCCJCC=1
CJJJJCJ.close : set CJJJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCC=nothing:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:CJJJJCJ.close : set CJJJJCJ=nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CJCCCCC.Close : Set CJCCCCC = Nothing:CJJJJJ.Close : Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJCJ("!$*0|6DD286"),server.URLEncode(CCCJCJJ)):Response.Redirect CCJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCJJJJJ(ByVal CCJJJJC,style):if not isdate(CCJJJJC) then
CCJJJJJ=CCJJJJC:exit function
end if:dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:CCJJJJC=cdate(CCJJJJC):CJJJJCC=Year(CCJJJJC):CJJJCJJ=Month(CCJJJJC):CJJJCJC=Day(CCJJJJC):select case style:case 0:CCJJJJJ=CJJJJCC & CCJCJCJ("\") & right(0 & CJJJCJJ,2) & CCJCJCJ("\") & right(0 & CJJJCJC,2):case 1:CCJJJJJ=CJJJJCC & right(0 & CJJJCJJ,2) & right(0 & CJJJCJC,2):case 2:CCJJJJJ=right(CJJJJCC,2) & CCJCJCJ("\") & right(0 & CJJJCJJ,2) & CCJCJCJ("\") & right(0 & CJJJCJC,2):case 3:CCJJJJJ=CJJJJCC & CCJCJCJ("\") & right(0 & CJJJCJJ,2):case 4:CCJJJJJ=right(0 & CJJJCJJ,2) & CCJCJCJ("\") & right(0 & CJJJCJC,2):case 5:CCJJJJJ=right(0 & CJJJCJC,2):case 6:CCJJJJJ=CJJJJCC & CCJCJCJ("??") & right(0 & CJJJCJJ,2) & CCJCJCJ("??") & right(0 & CJJJCJC,2) & CCJCJCJ("??"):case else
CCJJJJJ=CCJJJJC:end select:End Function::::::::::::::::::::Sub ClearCache(CCCJCJC):Application.Contents.Remove CCCJCJC
End Sub::Class jTree:Private CJJCJJ, CJJJCCC, CJJCJJJ, CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Private Sub Class_Initialize():CJJCJJJ = 0:CJJCJJC = 0:CJJCCJC=10:End Sub:Public Property Let Table(CCCJCCJ):if CCCJCCJ="" then Call RedirectMessage(CCJCJCJ("????????,;%C66????????????????????@??????????,"))
CJJCJCJ=CCCJCCJ:CJJCJCC=CCJCJCJ("!$*0") & UCase(CJJCJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJCJ:End Property:::Private Sub GetTreeArray():Dim CCCJJJ, CCCCJC, CJJCCCJ,CJJCCCC:CJJJCCC = Application(CJJCJCC):If Not IsArray(CJJJCCC) Then
CJJCJJ = CCJCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJCJ:if CJJCCJJ<>"" then CJJCJJ=CJJCJJ & CCJCJCJ(" ,H96C6 ,") & CJJCCJJ
set CJJCCCJ=CJJJJJ.execute(CJJCJJ):CJJCCCC=CJJCCCJ(0):if CJJCCCC=0 then Call RedirectMessage(CCJCJCJ("????W") & CJJCJCJ & CCJCJCJ("^") & CJJCCJJ & CCJCJCJ("X????????????"))
CJJCJJC=CJJCCCC+CJJCCJC:ReDim CJJJCCC(CJJCJJC, 4):CJJCJJ = CCJCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CCJCJCJ(" ,H:E9 ,W?@=@4<X"):if CJJCCJJ<>"" then CJJCJJ=CJJCJJ & CCJCJCJ(" ,H96C6 ,") & CJJCCJJ
CJJCJJ=CJJCJJ & CCJCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCCCJ=CJJJJJ.execute(CJJCJJ):For CCCJJJ = 1 To CJJCCCC:For CCCCJC = 0 To 4:CJJJCCC(CCCJJJ, CCCCJC) = CJJCCCJ(CCCCJC):if IsNull(CJJJCCC(CCCJJJ,4)) then CJJJCCC(CCCJJJ,4)=0
If CJJJCCC(CCCJJJ,2)="" then CJJJCCC(CCCJJJ,2)=CCJCJCJ(",??.")
Next:CJJCCCJ.MoveNext:Next:CJJCCCJ.Close: Set CJJCCCJ = Nothing:for CCCJJJ=CJJCJJC-(CJJCCJC-1) to CJJCJJC:CJJJCCC(CCCJJJ,0)=CCCJJJ:next:Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock()
else
CJJCJJC=Ubound(CJJJCCC)
End If:End Sub:Public Sub ShowChild_Select(CCJJJCC, CCJJCJJ):Dim CCCJJJ:CCJJJCC=CLng(CCJJJCC):CCJJCJJ=Cstr(CCJJCJJ):For CCCJJJ = 1 To CJJCJJC:If CJJJCCC(CCCJJJ, 1) = CCJJJCC Then
Response.Write CCJCJCJ("k@AE:@? ,G2=F6lV") & CJJJCCC(CCCJJJ, 0) & CCJCJCJ("V")
If Instr(CCJCJCJ("[") & CCJJCJJ & CCJCJCJ("["),CCJCJCJ("[") & CJJJCCC(CCCJJJ, 0) & CCJCJCJ("["))>0 Then Response.Write CCJCJCJ(" ,D6=64E65")
Response.Write CCJCJCJ("m\ ,") & CJJJCCC(CCCJJJ, 2) & CCJCJCJ("k^@AE:@?m")
End If:Next:End Sub::::Private Function CCJJCJC(CCJJJCC):dim CCCJJJ,CJCJJJJ:CCJJCJC=0:CJCJJJJ=CStr(CCJJJCC):if CJCJJJJ<>"0" then
for CCCJJJ=1 to CJJCJJC:If CStr(CJJJCCC(CCCJJJ, 0))=CJCJJJJ Then
CCJJCJC = CCCJJJ:Exit For
End If:Next
end if:End Function::::Public Function CCJJCCJ(CCJJJCC):Dim CCCJJJ,CJCJJJC:CCCJJJ=CCJJCJC(CCJJJCC):if CCCJJJ=0 then
CJCJJJC=CCJJCCC(CCJJJCC)
else
CJCJJJC=CJJJCCC(CCCJJJ,3):if isnull(CJCJJJC) or CJCJJJC="" then
CJCJJJC=CCJJCCC(CCJJJCC)
elseif Mid(CJCJJJC,instrrev(CJCJJJC,CCJCJCJ("["))+1)<>CStr(CCJJJCC) then
CJCJJJC=CCJJCCC(CCJJJCC)
elseif Left(CJCJJJC,1)=CCJCJCJ("[") then
CJCJJJC=CCJJCCC(CCJJJCC)
end if
end if:CCJJCCJ=CJCJJJC:End Function:Private Function CCJJCCC(CCJJJCC):dim CJCJJJJ:CJCJJJJ=CStr(CCJJJCC):if CJCJJJJ="0" then
CCJJCCC=""
else
dim CJJCCCJ:set CJJCCCJ=CJJJJJ.execute(CCJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CCJCJCJ(" ,H96C6 ,:5l") & CCJJJCC):if CJJCCCJ.eof then
Call UpdateCache(CCJJJCC,"","","",""):Call RedirectMessage(CCJCJCJ("??????,xs??,") & CCJJJCC & CCJCJCJ("??,????????,????????????????????,"))
else
if CJJCCCJ(0)=0 then
CCJJCCC="0," & CCJJJCC
else
CCJJCCC=CCJJCCJ(CJJCCCJ(0)) & CCJCJCJ("[") & CCJJJCC
end if:if CJJCCCJ(2)<>CCJJCCC then
CJJJJJ.execute CCJCJCJ("FA52E6 ,") & CJJCJCJ & CCJCJCJ(" ,D6E ,A2E9lV") & CCJJCCC & CCJCJCJ("V ,H96C6 ,:5l") & CCJJJCC
else
CCJJCCC=CJJCCCJ(2)
end if
end if:Call UpdateCache(CCJJJCC,CJJCCCJ(0),CJJCCCJ(1),CCJJCCC,CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJCC
End Sub:Public Sub UpdateCache(CCJJJCC,CCCJCCC,CCCCJJJ,CJCJJJC,CCCCJJC):dim CCCJJJ,CCCCJC:CCJJJCC=CLng(CCJJJCC):CCCJJJ=CCJJCJC(CCJJJCC):if CCCJCCC="" and CCCCJJJ="" and CJCJJJC="" and CCCCJJC="" then
if CCCJJJ>0 then
for CCCCJC=1 to 4:CJJJCCC(CCCJJJ,CCCCJC)=Null:next
end if
else
if CCCJJJ=0 then
for CCCCJC=1 to CJJCJJC:if CJJJCCC(CCCCJC,1) & ""="" then
CCCJJJ=CCCCJC:exit for
end if:next
end if:if CCCJJJ=0 then
Call ClearCache
else
CJJJCCC(CCCJJJ,0)=CLng(CCJJJCC):if CCCJCCC<>"" then CJJJCCC(CCCJJJ,1)=CLng(CCCJCCC)
if CCCCJJJ<>"" then CJJJCCC(CCCJJJ,2)=CCCCJJJ
if CJCJJJC<>"" then CJJJCCC(CCCJJJ,3)=CJCJJJC
if CCCCJJC<>"" then CJJJCCC(CCCJJJ,4)=CLng(CCCCJJC)
end if
end if:if CCCJJJ>0 then
Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJCJJ):Call ConnClose:Response.Write CCCJCJJ:Response.End:End Sub:Private Function CJCCJCC():CJCCJCC=CCJCJJJ+1:End Function:Private Function CCJCJJJ():dim CJJJJCJ:set CJJJJCJ=CJJJJJ.execute(CCJCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJCJ & CCJCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJJJ=CJJJJCJ(0):CJJJJCJ.Close: Set CJJJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCCJCJ:CJJCJJ=Request.ServerVariables(CCJCJCJ("!p%w0x}u~")):if instr(CJJCJJ,CCJCJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCCJ and not CCJCJC then Call RedirectMessage(CCJCJCJ("????????,????????????????????????,"))
CCCJCJ=CJCJCC
elseif instr(CJJCJJ,CCJCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJ,CCJCJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCJCJ=CJCJCC
elseif instr(CJJCJJ,CCJCJCJ("^D49@@="))>0 then
CCCJCJ=Request.QueryString(CCJCJCJ("D49@@=")):if not CJCCJCJ(CCCJCJ) then CCCJCJ=Request.QueryString(CCJCJCJ("F"))
if not CJCCJCJ(CCCJCJ) then CCCJCJ=Request.QueryString(CCJCJCJ("D4"))
if not CJCCJCJ(CCCJCJ) then Call RedirectMessage(CCJCJCJ("????????W$49@@=X??@??????????,"))
CCCJCJ=csng(CCCJCJ)
end if:if CCCJCJ=0 then Call RedirectMessage(CCJCJCJ("????????W$49@@=X????W_X??,"))
Dim CJCJJCJ:Call SetConfig:Sub SetConfig():dim CCCJJC,CJJJJCJ:CJJCJJ=CCJCJCJ("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") & CCCJCJ:set CJJJJCJ=CJJJJJ.execute(CJJCJJ):if CJJJJCJ.eof then Call RedirectMessage(CCJCJCJ("??W") & CJJCJC & CCJCJCJ("X??????????W") & CCCJCJ & CCJCJCJ("X????????,"))
ReDim CCCJJC(61):CCCJJC(0)=CJJJJCJ(CCJCJCJ(";:2@H6:")) & "":CCCJJC(1)=CJJJJCJ(CCJCJCJ("EJA6")):CCCJJC(2)=CJJJJCJ(CCJCJCJ("D>D")):CCCJJC(3)=CJJJJCJ(CCJCJCJ("4FDE@>8C@FA")) & "":CCCJJC(4)=CJJJJCJ(CCJCJCJ("D:5632C0@E96C")) & "":CCCJJC(5)=IIf(isnull(CJJJJCJ(CCJCJCJ("E6DEC6DF=EG:6H"))),0,CJJJJCJ(CCJCJCJ("E6DEC6DF=EG:6H"))):CCCJJC(6)=CJJJJCJ(CCJCJCJ("K:IF?E:>6")):CCCJJC(7)=CJJJJCJ(CCJCJCJ("766")):CCCJJC(8)=CJJJJCJ(CCJCJCJ("C6E6DE52J")):CCCJJC(9)=CJJJJCJ(CCJCJCJ("6IA:C652E6")):CCCJJC(10)=CJJJJCJ(CCJCJCJ("E:E=6")):CCCJJC(11)=CJJJJCJ(CCJCJCJ(":?EC@")) & "":CCCJJC(12)=CJJJJCJ(CCJCJCJ("A:4EFC6")) & "":CCCJJC(13)=CJJJJCJ(CCJCJCJ("72>:=J")):CCCJJC(14)=CJJJJCJ(CCJCJCJ("4@AJC:89E")) & "":CCCJJC(15)=IIf(isnull(CJJJJCJ(CCJCJCJ("D6>6DE6C0DE2CE052E6"))),CCJCJCJ("`h__\`\`"),CJJJJCJ(CCJCJCJ("D6>6DE6C0DE2CE052E6"))):CCCJJC(16)=IIf(isnull(CJJJJCJ(CCJCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJCJ(CCJCJCJ("K:IF?0E:>6D09:89=:89E"))):CCCJJC(17)=CJJJJCJ(CCJCJCJ("4@?E24E")) & "":CCCJJC(18)=CJJJJCJ(CCJCJCJ("D2?5E23=6")):CCCJJC(19)=CJJJJCJ(CCJCJCJ("4C:D:D")):CCCJJC(20)=CJJJJCJ(CCJCJCJ("JJ52E6")):CCCJJC(21)=CJJJJCJ(CCJCJCJ("BB")):CCCJJC(22)=CJJJJCJ(CCJCJCJ("JFJF60D>D0EA=")) & "":CCCJJC(23)=CJJJJCJ(CCJCJCJ("JFJF60E6DE0=3")) & "":CCCJJC(25)=CJJJJCJ(CCJCJCJ("6IA6CE")):CCCJJC(26)=CJJJJCJ(CCJCJCJ(">@5:?7@")):CCCJJC(27)=CJJJJCJ(CCJCJCJ("9@>6A286E@AA:4EFC6")) & "":CCCJJC(28)=CJJJJCJ(CCJCJCJ("4C:D:D=3")):CCCJJC(29)=IIf(CJJJJCJ(CCJCJCJ("4C:D:D@=5")),False,True):CCCJJC(30)=CJJJJCJ(CCJCJCJ("8C@FA8F:52?46")):CCCJJC(31)=CJJJJCJ(CCJCJCJ("3:@7665324<")):CCCJJC(32)=CJJJJCJ(CCJCJCJ("<6JDEC")):CCCJJC(33)=CJJJJCJ(CCJCJCJ("=@8@")) & "":CCCJJC(34)=CJJJJCJ(CCJCJCJ("K:46")):CCCJJC(35)=IIf(CJJJJCJ(CCJCJCJ(":D?6H")),True,False):CCCJJC(36)=121:CCCJJC(37)=111:CCCJJC(38)=160:CCCJJC(39)=CJJJJCJ(CCJCJCJ("8F6DE3@@<")):CCCJJC(40)=CJJJJCJ(CCJCJCJ("75D")):CCCJJC(42)=CJJJJCJ(CCJCJCJ("9@>6=@8:?")):CCCJJC(43)=CJJJJCJ(CCJCJCJ("K:IF?0?6657665324<")):CCCJJC(44)=CJJJJCJ(CCJCJCJ("K:IF?0E:>6D0=:>:E")):CCCJJC(45)=CJJJJCJ(CCJCJCJ("4@>A=6E60:?7@")):CCCJJC(46)=CJJJJCJ(CCJCJCJ("E6DE:?EC@")) & "":CCCJJC(47)=IIf(isnull(CJJJJCJ(CCJCJCJ("JFJF60367@C60E:>6"))),0,CJJJJCJ(CCJCJCJ("JFJF60367@C60E:>6"))):CCCJJC(49)=CJJJJCJ(CCJCJCJ("D>D0C646:G6C")):CCCJJC(50)=CJJJJCJ(CCJCJCJ("D>D0D:8?")) & "":CCCJJC(52)=CJJJJCJ(CCJCJCJ("JFJF602CC2?86")):CCCJJC(53)=IIf(isnull(CJJJJCJ(CCJCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJCJ(CCJCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJJC(54)=CJJJJCJ(CCJCJCJ("9:560=30@FE@7286")):CCCJJC(55)=CJJJJCJ(CCJCJCJ("JFJF60E6DE052JD")):CCCJJC(56)=CJJJJCJ(CCJCJCJ("JFJF60H66<0=:>:E")):CCCJJC(57)=CJJJJCJ(CCJCJCJ("JFJF604964<65")):CCCJJC(58)=CJJJJCJ(CCJCJCJ("K:IF?0?6657665324<0?6IE")):CCCJJC(59)=CJJJJCJ(CCJCJCJ("4964<?6HDEF56?E")):CCCJJC(60)=CJJJJCJ(CCJCJCJ("K:IF?04=@D6052E6")):CJJJJCJ.close : set CJJJJCJ=nothing:if isNull(CCCJJC(8)) or CCCJJC(8)="" then CCCJJC(8)=0
if isdate(CCCJJC(9)) then
CCCJJC(9)=cdate(CCCJJC(9)):if CCCJJC(9)<Date then Call RedirectMessage(CCJCJCJ("????????,????????????????W") & CCCJJC(9) & CCJCJCJ("X??????,"))
end if:if not CJCCJCJ(CCCJJC(20)) then CCCJJC(20)=7
select case CCCJJC(1):case 1,2,16:CCCJJC(36)=159:case 4,5,6,10,11:CCCJJC(36)=190:CCCJJC(37)=178:CCCJJC(38)=191:case 7,13:CCCJJC(36)=164:CCCJJC(37)=178:CCCJJC(38)=179:end select:CJCJJCJ=CCCJJC:End Sub:Function CJCCCCJ(CCCCJCJ):dim CCCJJC(7,1),CCCJJJ,CJCJJCC,CJCJCJJ:CJCJJCC=Array(CCJCJCJ("$49@@="),CCJCJCJ("$EF56?E"),CCJCJCJ("s6AE"),CCJCJCJ("vC256"),CCJCJCJ("r=2DD>2E6"),CCJCJCJ("}F>36C"),CCJCJCJ("%62496C"),CCJCJCJ("!2C6?E")):select case CJCJJCJ(1):case 1,2 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 3,16 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 4 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("??????@"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 5 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 6 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("??????@"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 7 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 8 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("??????@"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 9 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 10 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 11 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 12 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 13 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 14 : CJCJCJJ=Array(CCJCJCJ("??????"),CCJCJCJ("??@??"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 15 : CJCJCJJ=Array(CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case else : CJCJCJJ=CJCJJCC
end select:for CCCJJJ=0 to Ubound(CCCJJC):CCCJJC(CCCJJJ,0)=CJCJJCC(CCCJJJ):CCCJJC(CCCJJJ,1)=CJCJCJJ(CCCJJJ):next:for CCCJJJ=0 to Ubound(CCCJJC):if CCCJJC(CCCJJJ,0)=CCCCJCJ then
CJCCCCJ=CCCJJC(CCCJJJ,1):exit for
end if:next:End Function::Call CheckRight(19):dim CJCJCJC:CJCJCJC=Date:dim CJJJCCC:set CJJJCCC=new jtree:CJJJCCC.table=CCJCJCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCJCJ("k9625m") & vbCrLf):Response.Write(CCJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCJCJ("kE:E=6m??????k^E:E=6m") & vbCrLf):Response.Write(CCJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCJCJ("kDEJ=6mk^DEJ=6m") & vbCrLf):Response.Write(CCJCJCJ("k^9625m") & vbCrLf):Response.Write(CCJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CCJCJCJ("k3C ,^m") & vbCrLf):Response.Write(CCJCJCJ("k7@C> ,24E:@?lQJ62C=J0G:6H]2DAQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,E2C86ElQ03=2?<Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,kE23=6 ,H:5E9lQ`__TQ ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJCJCJ(" ,kE9m??????????k^E9m") & vbCrLf):Response.Write(CCJCJCJ(" ,")):If CJCJCC=CJCJJJ Then
Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CCJCJCJ(" ,kE5mkD6=64E ,?2>6lQ56AEQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k@AE:@? ,G2=F6lQ")):Response.Write  CJCJJJ:Response.Write(CCJCJCJ("Qm")):Response.Write  CCJJJJ:Response.Write(CCJCJCJ("k^@AE:@?m") & vbCrLf):Response.Write(CCJCJCJ(" ,")):Call CJJJCCC.ShowChild_Select(CJCJCC,0):Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CCJCJCJ(" ,kE5mk:?AFE ,?2>6lQ5`Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJJJJ(DateAdd(CCJCJCJ(">"),-12,CJCJCJC),3):Response.Write(CCJCJCJ("Q ,52E2\2>\52E6A:4<6ClQL7@C>2Ei ,VJJJJ\>>V[ ,G:6H|@56i ,V>@?E9DV[ ,>:?':6H|@56i ,V>@?E9DVNQ ,^mk^E5m") & vbCrLf):Response.Write(CCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CCJCJCJ(" ,kE5mk:?AFE ,?2>6lQ5aQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJJJJ(DateAdd(CCJCJCJ(">"),-1,CJCJCJC),3):Response.Write(CCJCJCJ("Q ,52E2\2>\52E6A:4<6ClQL7@C>2Ei ,VJJJJ\>>V[ ,G:6H|@56i ,V>@?E9DV[ ,>:?':6H|@56i ,V>@?E9DVNQ ,^mk^E5m") & vbCrLf):Response.Write(CCJCJCJ(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJCJ("k^7@C>m") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJCJ("NXj") & vbCrLf):Response.Write(CCJCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCC=nothing:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=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 CCJCJCJ(ByVal CCJCJJC)
Dim CJCJCCJ, CCCJJJ, CCCCCC
CCJCJJC = Replace(CCJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJJ = 1 To Len(CCJCJJC)
If CCCJJJ <> CCCCCC Then
CJCJCCJ = AscW(Mid(CCJCJJC, CCCJJJ, 1))
If CJCJCCJ >= 33 And CJCJCCJ <= 79 Then
CCJCJCJ = CCJCJCJ & Chr(CJCJCCJ + 47)
ElseIf CJCJCCJ >= 80 And CJCJCCJ <= 126 Then
CCJCJCJ = CCJCJCJ & Chr(CJCJCCJ - 47)
Else
CCCCCC = CCCJJJ + 1
If Mid(CCJCJJC, CCCCCC, 1) = Chr(64) Then CCJCJCJ = CCJCJCJ & ChrW(CJCJCCJ + 5) Else CCJCJCJ = CCJCJCJ & Mid(CCJCJJC, CCCJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de