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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJ, CJJJCC,CJJCJJ, CJJCJC, CJJCCJ:Set CJJJCJ = server.CreateObject(CCJJJJJ("ps~sq]r@??64E:@?")):CJJJCJ.open Application(CCJJJJJ("r@??64E:@?$EC:?8")):Set CJJJCC=CJJJCJ::Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC:CCCJJC=Trim(Request.Cookies(CCJJJJJ("!$*|t|qt#"))):if CCCJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCCC>0 then
CJJCCJ=CCJJJJJ("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") & CJCJJJ & CCJJJJJ("V ,2?5 ,:5l") & CJJCCC
set CJJCJJ=CJJJCJ.execute(CJJCCJ):If CJJCJJ.EOF Then
Call ClearMemberCookie
Else
CJCJJC=CJJCJJ(2) & "":CJCJCJ=CJJCJJ(3):CJCJCC=CJJCJJ(5):CJCCJJ=CJJCJJ(6):CJCCJC=CJJCJJ(9):CJCCCJ=CJJCJJ(15):CCJJJJ=CJJCJJ(0):CCJCCC=CJJCJJ(1):CCJCCJ=CJJCJJ(11) & "":CCJJJC=CJJCJJ(10) & "":CJCCCC=CJJCJJ(12):CCJJCJ=CJJCJJ(14):CCJJCC=CJJCJJ(13):CCJCJJ=CJJCJJ(7) & "":CCJCJC=CJJCJJ(4):CCCJJJ=CJJCJJ(8):if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJCCJC) or CJCCJC=0 then CJCCJC=CJCJCJ
if isnull(CCJCJC) then CCJCJC=0
if isnull(CJCJCC) then CJCJCC=0
if instr(CCJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJJJ)>0 then Call RedirectMessage(CCJJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCCC,CJCJJJ)
End IF
end if:Sub CheckRight(CCJJJJC):dim CCCJCJ,CCCJCC:if CJJCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJJJJ("??????????????,????????????,"))
elseIf not CJCJCJJ(CCJJJJC) then
Call RedirectMessage(CCJJJJJ("????W") & CCJJJJC & CCJJJJJ("X????????,????????????????????,"))
end if:End Sub:Function CJCJCJJ(CCJJJJC):dim CCCJCJ,CCCJCC:CCCJCC=split(CCJJJJC,CCJJJJJ("[")):CJCJCJJ=False:for CCCJCJ=0 to ubound(CCCJCC):If Mid(CJCJJC,CCCJCC(CCCJCJ),1)="1" then
CJCJCJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCCJJ:CCCCJJ=trim(request.QueryString(CCJJJJJ("D49@@="))):if isnumeric(CCCCJJ) then
response.Redirect CCJJJJJ("^>^G2?E^R^D49@@=^") & CCCCJJ & CCJJJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJJJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJJJJ("!$*|t|qt#"))="":CJJCCC=0:CJCCJJ=0:CJCJJJ=Empty:CJCJCC=0:CJCCCJ=0:CJCCJC=0:CJCJCJ=0:CCJJJJ=False:CCJCCC=False:CCCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJC,CCCCCJ,CCCJCJ,CCCCCC,CJJJJJJ:CCCCJC=split(CCCJJC,CCJJJJJ("]")):if ubound(CCCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCJC(0)) or len(CCCCJC(1))<>32 or len(CCCCJC(2))<>32 then
Call ClearMemberCookie
else
CCCCCJ=CCCCJC(1):for CCCJCJ=1 to len(CCCCCJ):CCCCCC=mid(CCCCCJ,CCCJCJ,1):if isnumeric(CCCCCC) then CJJJJJJ=CJJJJJJ & CCCCCC
if len(CJJJJJJ)=7 then exit for
next:CCCCCJ=CCCCJC(2):if CJJJJJJ<>mid(CCCCCJ,6,7) then
Call ClearMemberCookie
else
CCCCCC=mid(CCCCCJ,18,10)/2:if CCCCCC<DateDiff(CCJJJJJ("D"), CCJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCCC=Clng(CCCCJC(0)):CJCJJJ=CCCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCCJ,CCJJJCJ):dim CCCJCJ,CCCCCC,CJJJJJJ:for CCCJCJ=1 to len(CCJJJCJ):CCCCCC=mid(CCJJJCJ,CCCJCJ,1):if isnumeric(CCCCCC) then CJJJJJJ=CJJJJJJ & CCCCCC
if len(CJJJJJJ)=7 then exit for
next:CJJJJJJ=CJJCCCJ & CCJJJJJ("]") & CCJJJCJ & CCJJJJJ("]") & Fix(10000*(Rnd+1)) & CJJJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJJJJJ("D"), CCJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJJJ("!$*|t|qt#"))=CJJJJJJ:End Sub:::Function IIf(CCJJJCC, CCJJCJJ, CCJJCJC):if isnull(CCJJJCC) or isempty(CCJJJCC) then
IIf = CCJJCJC
elseif CCJJJCC Then
IIf = CCJJCJJ
Else
IIf = CCJJCJC
end if:End Function:Const CJCJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJJCCJ,CCJJCCC):dim CCCCJC:CCCCJC=CCJJCCJ & "=" & CCJJCCC & CCJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJJJ("$6E\r@@<:6"),CCCCJC):End Sub::Function CJCJCCJ():CJCJCCJ = Request.Cookies(CCJJJJJ("!$*"))(CCJJJJJ("&#{")):End Function:::Sub CheckValidPost():dim CJJJJJC:CJJJJJC=false:Dim CJJJJCJ : CJJJJCJ=lcase(Request.ServerVariables(CCJJJJJ("w%%!0#tut#t#"))):if(instr(CJJJJCJ,Application(CCJJJJJ("s@>2:?(9:E6{:DE")))>0) then
CJJJJJC=true
else
Dim CJJJJCC : CJJJJCC=lcase(Request.ServerVariables(CCJJJJJ("$t#'t#0}p|t"))):Dim CJJJCJJ : CJJJCJJ=Request.ServerVariables(CCJJJJJ("{~rp{0pss#")):if Mid(CJJJJCJ,8,Len(CJJJJCC))=CJJJJCC or Mid(CJJJJCJ,9,Len(CJJJJCC))=CJJJJCC or CJJJJCC=CJJJCJJ then CJJJJJC=true
end if:if not CJJJJJC then Call RedirectMessage(CCJJJJJ("????????,??????????????????????????,"))
end sub::Function CJCJCCC(CJCJJCJ):if isnull(CJCJJCJ) or trim(CJCJJCJ)="" or not isnumeric(CJCJJCJ) then
CJCJCCC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CCJJJJJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CJCJCCC = CJJJCJC.test(CJCJJCJ):set CJJJCJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCCJJJ=nothing:set CJCCJJC=nothing:set CJCCJCJ=nothing:set CJCCJCC=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJJCJC.Close : Set CJJCJC=Nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJCCCJJ.Close : Set CJCCCJJ = Nothing:CJJJCJ.Close : Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJJJ("!$*0|6DD286"),server.URLEncode(CCJCJJJ)):Response.Redirect CCJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCCCJC(ByVal CJCCCCJ,style):if not isdate(CJCCCCJ) then
CJCCCJC=CJCCCCJ:exit function
end if:dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:CJCCCCJ=cdate(CJCCCCJ):CJJJCCJ=Year(CJCCCCJ):CJJJCCC=Month(CJCCCCJ):CJJCJJJ=Day(CJCCCCJ):select case style:case 0:CJCCCJC=CJJJCCJ & CCJJJJJ("\") & right(0 & CJJJCCC,2) & CCJJJJJ("\") & right(0 & CJJCJJJ,2):case 1:CJCCCJC=CJJJCCJ & right(0 & CJJJCCC,2) & right(0 & CJJCJJJ,2):case 2:CJCCCJC=right(CJJJCCJ,2) & CCJJJJJ("\") & right(0 & CJJJCCC,2) & CCJJJJJ("\") & right(0 & CJJCJJJ,2):case 3:CJCCCJC=CJJJCCJ & CCJJJJJ("\") & right(0 & CJJJCCC,2):case 4:CJCCCJC=right(0 & CJJJCCC,2) & CCJJJJJ("\") & right(0 & CJJCJJJ,2):case 5:CJCCCJC=right(0 & CJJCJJJ,2):case 6:CJCCCJC=CJJJCCJ & CCJJJJJ("??") & right(0 & CJJJCCC,2) & CCJJJJJ("??") & right(0 & CJJCJJJ,2) & CCJJJJJ("??"):case else
CJCCCJC=CJCCCCJ:end select:End Function::::::::::::::::::::::dim CCCCJJ:CJJCCJ=Request.ServerVariables(CCJJJJJ("!p%w0x}u~")):if instr(CJJCCJ,CCJJJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCJJJJ and not CCJCCC then Call RedirectMessage(CCJJJJJ("????????,????????????????????????,"))
CCCCJJ=CJCCJC
elseif instr(CJJCCJ,CCJJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCCJ,CCJJJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCCJJ=CJCCJC
elseif instr(CJJCCJ,CCJJJJJ("^D49@@="))>0 then
CCCCJJ=Request.QueryString(CCJJJJJ("D49@@=")):if not CJCJCCC(CCCCJJ) then CCCCJJ=Request.QueryString(CCJJJJJ("F"))
if not CJCJCCC(CCCCJJ) then CCCCJJ=Request.QueryString(CCJJJJJ("D4"))
if not CJCJCCC(CCCCJJ) then Call RedirectMessage(CCJJJJJ("????????W$49@@=X??@??????????,"))
CCCCJJ=csng(CCCCJJ)
end if:if CCCCJJ=0 then Call RedirectMessage(CCJJJJJ("????????W$49@@=X????W_X??,"))
Dim CJJCJCJ:Call SetConfig:Sub SetConfig():dim CCCJCC,CJJCJCC:CJJCCJ=CCJJJJJ("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") & CCCCJJ:set CJJCJCC=CJJJCJ.execute(CJJCCJ):if CJJCJCC.eof then Call RedirectMessage(CCJJJJJ("??W") & CJJCCC & CCJJJJJ("X??????????W") & CCCCJJ & CCJJJJJ("X????????,"))
ReDim CCCJCC(61):CCCJCC(0)=CJJCJCC(CCJJJJJ(";:2@H6:")) & "":CCCJCC(1)=CJJCJCC(CCJJJJJ("EJA6")):CCCJCC(2)=CJJCJCC(CCJJJJJ("D>D")):CCCJCC(3)=CJJCJCC(CCJJJJJ("4FDE@>8C@FA")) & "":CCCJCC(4)=CJJCJCC(CCJJJJJ("D:5632C0@E96C")) & "":CCCJCC(5)=IIf(isnull(CJJCJCC(CCJJJJJ("E6DEC6DF=EG:6H"))),0,CJJCJCC(CCJJJJJ("E6DEC6DF=EG:6H"))):CCCJCC(6)=CJJCJCC(CCJJJJJ("K:IF?E:>6")):CCCJCC(7)=CJJCJCC(CCJJJJJ("766")):CCCJCC(8)=CJJCJCC(CCJJJJJ("C6E6DE52J")):CCCJCC(9)=CJJCJCC(CCJJJJJ("6IA:C652E6")):CCCJCC(10)=CJJCJCC(CCJJJJJ("E:E=6")):CCCJCC(11)=CJJCJCC(CCJJJJJ(":?EC@")) & "":CCCJCC(12)=CJJCJCC(CCJJJJJ("A:4EFC6")) & "":CCCJCC(13)=CJJCJCC(CCJJJJJ("72>:=J")):CCCJCC(14)=CJJCJCC(CCJJJJJ("4@AJC:89E")) & "":CCCJCC(15)=IIf(isnull(CJJCJCC(CCJJJJJ("D6>6DE6C0DE2CE052E6"))),CCJJJJJ("`h__\`\`"),CJJCJCC(CCJJJJJ("D6>6DE6C0DE2CE052E6"))):CCCJCC(16)=IIf(isnull(CJJCJCC(CCJJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJCJCC(CCJJJJJ("K:IF?0E:>6D09:89=:89E"))):CCCJCC(17)=CJJCJCC(CCJJJJJ("4@?E24E")) & "":CCCJCC(18)=CJJCJCC(CCJJJJJ("D2?5E23=6")):CCCJCC(19)=CJJCJCC(CCJJJJJ("4C:D:D")):CCCJCC(20)=CJJCJCC(CCJJJJJ("JJ52E6")):CCCJCC(21)=CJJCJCC(CCJJJJJ("BB")):CCCJCC(22)=CJJCJCC(CCJJJJJ("JFJF60D>D0EA=")) & "":CCCJCC(23)=CJJCJCC(CCJJJJJ("JFJF60E6DE0=3")) & "":CCCJCC(25)=CJJCJCC(CCJJJJJ("6IA6CE")):CCCJCC(26)=CJJCJCC(CCJJJJJ(">@5:?7@")):CCCJCC(27)=CJJCJCC(CCJJJJJ("9@>6A286E@AA:4EFC6")) & "":CCCJCC(28)=CJJCJCC(CCJJJJJ("4C:D:D=3")):CCCJCC(29)=IIf(CJJCJCC(CCJJJJJ("4C:D:D@=5")),False,True):CCCJCC(30)=CJJCJCC(CCJJJJJ("8C@FA8F:52?46")):CCCJCC(31)=CJJCJCC(CCJJJJJ("3:@7665324<")):CCCJCC(32)=CJJCJCC(CCJJJJJ("<6JDEC")):CCCJCC(33)=CJJCJCC(CCJJJJJ("=@8@")) & "":CCCJCC(34)=CJJCJCC(CCJJJJJ("K:46")):CCCJCC(35)=IIf(CJJCJCC(CCJJJJJ(":D?6H")),True,False):CCCJCC(36)=121:CCCJCC(37)=111:CCCJCC(38)=160:CCCJCC(39)=CJJCJCC(CCJJJJJ("8F6DE3@@<")):CCCJCC(40)=CJJCJCC(CCJJJJJ("75D")):CCCJCC(42)=CJJCJCC(CCJJJJJ("9@>6=@8:?")):CCCJCC(43)=CJJCJCC(CCJJJJJ("K:IF?0?6657665324<")):CCCJCC(44)=CJJCJCC(CCJJJJJ("K:IF?0E:>6D0=:>:E")):CCCJCC(45)=CJJCJCC(CCJJJJJ("4@>A=6E60:?7@")):CCCJCC(46)=CJJCJCC(CCJJJJJ("E6DE:?EC@")) & "":CCCJCC(47)=IIf(isnull(CJJCJCC(CCJJJJJ("JFJF60367@C60E:>6"))),0,CJJCJCC(CCJJJJJ("JFJF60367@C60E:>6"))):CCCJCC(49)=CJJCJCC(CCJJJJJ("D>D0C646:G6C")):CCCJCC(50)=CJJCJCC(CCJJJJJ("D>D0D:8?")) & "":CCCJCC(52)=CJJCJCC(CCJJJJJ("JFJF602CC2?86")):CCCJCC(53)=IIf(isnull(CJJCJCC(CCJJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCJCC(CCJJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJCC(54)=CJJCJCC(CCJJJJJ("9:560=30@FE@7286")):CCCJCC(55)=CJJCJCC(CCJJJJJ("JFJF60E6DE052JD")):CCCJCC(56)=CJJCJCC(CCJJJJJ("JFJF60H66<0=:>:E")):CCCJCC(57)=CJJCJCC(CCJJJJJ("JFJF604964<65")):CCCJCC(58)=CJJCJCC(CCJJJJJ("K:IF?0?6657665324<0?6IE")):CCCJCC(59)=CJJCJCC(CCJJJJJ("4964<?6HDEF56?E")):CCCJCC(60)=CJJCJCC(CCJJJJJ("K:IF?04=@D6052E6")):CJJCJCC.close : set CJJCJCC=nothing:if isNull(CCCJCC(8)) or CCCJCC(8)="" then CCCJCC(8)=0
if isdate(CCCJCC(9)) then
CCCJCC(9)=cdate(CCCJCC(9)):if CCCJCC(9)<Date then Call RedirectMessage(CCJJJJJ("????????,????????????????W") & CCCJCC(9) & CCJJJJJ("X??????,"))
end if:if not CJCJCCC(CCCJCC(20)) then CCCJCC(20)=7
select case CCCJCC(1):case 1,2,16:CCCJCC(36)=159:case 4,5,6,10,11:CCCJCC(36)=190:CCCJCC(37)=178:CCCJCC(38)=191:case 7,13:CCCJCC(36)=164:CCCJCC(37)=178:CCCJCC(38)=179:end select:CJJCJCJ=CCCJCC:End Sub:Function CJCCJCC(CCJCJJC):dim CCCJCC(7,1),CCCJCJ,CJJCCJJ,CJJCCJC:CJJCCJJ=Array(CCJJJJJ("$49@@="),CCJJJJJ("$EF56?E"),CCJJJJJ("s6AE"),CCJJJJJ("vC256"),CCJJJJJ("r=2DD>2E6"),CCJJJJJ("}F>36C"),CCJJJJJ("%62496C"),CCJJJJJ("!2C6?E")):select case CJJCJCJ(1):case 1,2 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 3,16 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 4 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("??????@"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 5 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 6 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("??????@"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 7 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 8 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("??????@"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 9 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 10 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 11 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 12 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 13 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 14 : CJJCCJC=Array(CCJJJJJ("??????"),CCJJJJJ("??@??"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 15 : CJJCCJC=Array(CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case else : CJJCCJC=CJJCCJJ
end select:for CCCJCJ=0 to Ubound(CCCJCC):CCCJCC(CCCJCJ,0)=CJJCCJJ(CCCJCJ):CCCJCC(CCCJCJ,1)=CJJCCJC(CCCJCJ):next:for CCCJCJ=0 to Ubound(CCCJCC):if CCCJCC(CCCJCJ,0)=CCJCJJC then
CJCCJCC=CCCJCC(CCCJCJ,1):exit for
end if:next:End Function::Call CheckRight(64):if CJJCJCJ(7)<3 then Call RedirectMessage(CCJJJJJ("????????M????????,??????????????????????,"))
dim CJJCCCJ,CJJCCCC:CJJCCCC=Request.QueryString(CCJJJJJ("24E")):CJJCCCJ=Request.QueryString(CCJJJJJ(":5")):if not CJCJCCC(CJJCCCJ) then Call RedirectMessage(CCJJJJJ("??????????????????,??????????????????"))
if CJJCCCC=CCJJJJJ("56=32E49") then
Call CheckValidPost:dim CJCJJJJ:CJCJJJJ=Trim(Request.Form(CCJJJJJ(":5=:DE"))):if CJCJJJJ<>"" then CJJJCJ.execute CCJJJJJ("56=6E6 ,7C@> ,8C@HC6A@CE ,H96C6 ,:5 ,:? ,W") & CJCJJJJ & CCJJJJJ("X")
response.redirect CJCJCCJ
end if:Response.Write(vbCrLf):Response.Write(CCJJJJJ("k9E>=m") & vbCrLf):Response.Write(CCJJJJJ("k9625m") & vbCrLf):Response.Write(CCJJJJJ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CCJJJJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJJJJ(" ,SWV:?AFE,G2=F6l-V????????-V.VX]4=:4<W7F?4E:@?W6XLD6=7]4=@D6WXNX") & vbCrLf):Response.Write(CCJJJJJ("NX") & vbCrLf):Response.Write(CCJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJJJJ("k^9625m") & vbCrLf):Response.Write(CCJJJJJ("k3@5Jm") & vbCrLf)::if CJJCCCC=CCJJJJJ("G:6H") then
set CJJCJJ=CJJJCJ.execute(CCJJJJJ("D6=64E ,E@A ,` ,52E6E:>6[2FE@3:@8C2A9J[72>:=J[>60D6=7[>60@E96C[>60E6DE[8C@H[42C66C ,7C@> ,8C@HC6A@CE ,H96C6 ,:5l") & CJJCCCJ):if CJJCJJ.eof then Call RedirectMessage(CCJJJJJ("????????M????????,????????????????@????,"))
Response.Write(vbCrLf):Response.Write(CCJJJJJ("kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQdQm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,H:5E9lQc_QmU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQmk:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,^mk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm??????????,")):Response.Write  CJCCCJC(CJJCJJ(0),0):Response.Write(CCJJJJJ("k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQm??,??,k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5m")):Response.Write  replace(CJJCJJ(1) & "",vbcrlf,CCJJJJJ("k3Cm")):Response.Write(CCJJJJJ("k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQm????,k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm??????????????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5m")):Response.Write  replace(CJJCJJ(2) & "",vbcrlf,CCJJJJJ("k3Cm")):Response.Write(CCJJJJJ("k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQm????,k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm????????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQm`]k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm??????????????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5m")):Response.Write  replace(CJJCJJ(3) & "",vbcrlf,CCJJJJJ("k3Cm")):Response.Write(CCJJJJJ("k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQma]k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm??????????????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5m")):Response.Write  replace(CJJCJJ(4) & "",vbcrlf,CCJJJJJ("k3Cm")):Response.Write(CCJJJJJ("k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQmb]k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm??????,??????????@??????????????????????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5m")):Response.Write  replace(CJJCJJ(5) & "",vbcrlf,CCJJJJJ("k3Cm")):Response.Write(CCJJJJJ("k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQm????,k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm????????????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5m")):Response.Write  replace(CJJCJJ(6) & "",vbcrlf,CCJJJJJ("k3Cm")):Response.Write(CCJJJJJ("k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQm????,k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE9 ,2=:8?lQ=67EQm????????????????k^E9m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5m")):Response.Write  replace(CJJCJJ(7) & "",vbcrlf,CCJJJJJ("k3Cm")):Response.Write(CCJJJJJ("k^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,kE5 ,2=:8?lQC:89EQmk:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,^mk^E5m") & vbCrLf):Response.Write(CCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJJJ("k^E23=6m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJJJ=nothing:set CJCCJJC=nothing:set CJCCJCJ=nothing:set CJCCJCC=nothing:CJJCJC.Close:Set CJJCJC=Nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCJ.Close:Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJJJJ(ByVal CJCCCCC)
Dim CJCJJJC, CCCJCJ, CJCJJCJ
CJCCCCC = Replace(CJCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJCJ = 1 To Len(CJCCCCC)
If CCCJCJ <> CJCJJCJ Then
CJCJJJC = AscW(Mid(CJCCCCC, CCCJCJ, 1))
If CJCJJJC >= 33 And CJCJJJC <= 79 Then
CCJJJJJ = CCJJJJJ & Chr(CJCJJJC + 47)
ElseIf CJCJJJC >= 80 And CJCJJJC <= 126 Then
CCJJJJJ = CCJJJJJ & Chr(CJCJJJC - 47)
Else
CJCJJCJ = CCCJCJ + 1
If Mid(CJCCCCC, CJCJJCJ, 1) = Chr(64) Then CCJJJJJ = CCJJJJJ & ChrW(CJCJJJC + 5) Else CCJJJJJ = CCJJJJJ & Mid(CJCCCCC, CCCJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de