Edit D:\xinhaisoft\crisis_new\m\school\admin\index.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCJJ, CCCJC,CCCCJ, CCCCC, CJJJJJ:Set CCCJJ = server.CreateObject(CJCCJJC("ps~sq]r@??64E:@?")):CCCJJ.open Application(CJCCJJC("r@??64E:@?$EC:?8")):Set CCCJC=CCCJJ::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJCCJJC("!$*|t|qt#"))):if CCJJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJJC>0 then CJJJJJ=CJCCJJC("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") & CJJJCJ & CJCCJJC("V ,2?5 ,:5l") & CJJJJC set CCCCJ=CCCJJ.execute(CJJJJJ):If CCCCJ.EOF Then Call ClearMemberCookie Else CJJJCC=CCCCJ(2) & "":CJJCJJ=CCCCJ(3):CJJCJC=CCCCJ(5):CJJCCJ=CCCCJ(6):CJJCCC=CCCCJ(9):CJCJJJ=CCCCJ(15):CJCJCJ=CCCCJ(0):CCJJJC=CCCCJ(1):CCJJJJ=CCCCJ(11) & "":CJCJCC=CCCCJ(10) & "":CJCJJC=CCCCJ(12):CJCCJJ=CCCCJ(14):CJCCJC=CCCCJ(13):CJCCCJ=CCCCJ(7) & "":CJCCCC=CCCCJ(4):CCJJCJ=CCCCJ(8):if isnull(CJCJJJ) then CJCJJJ=0 if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ if isnull(CJCCCC) then CJCCCC=0 if isnull(CJJCJC) then CJJCJC=0 if instr(CJCCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CJCCJJC("????????,????????????????????????????????,")) Call SetMemberCookie(CJJJJC,CJJJCJ) End IF end if:::Sub CheckLogined():if CJJJJC=0 then Call ClearMemberCookie:Call ConnClose:dim CCJCJJ:CCJCJJ=trim(request.QueryString(CJCCJJC("D49@@="))):if isnumeric(CCJCJJ) then response.Redirect CJCCJJC("^>^G2?E^R^D49@@=^") & CCJCJJ & CJCCJJC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJCCJJC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJJC("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:CCJCJC=split(CCJJCC,CJCCJJC("]")):if ubound(CCJCJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then Call ClearMemberCookie else CCJCCJ=CCJCJC(1):for CCJCCC=1 to len(CCJCCJ):CCCJJJ=mid(CCJCCJ,CCJCCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ if len(CCCJJC)=7 then exit for next:CCJCCJ=CCJCJC(2):if CCCJJC<>mid(CCJCCJ,6,7) then Call ClearMemberCookie else CCCJJJ=mid(CCJCCJ,18,10)/2:if CCCJJJ<DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJJJC=Clng(CCJCJC(0)):CJJJCJ=CCJCJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CJCCJCJ,CJCCJCC):dim CCJCCC,CCCJJJ,CCCJJC:for CCJCCC=1 to len(CJCCJCC):CCCJJJ=mid(CJCCJCC,CCJCCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ if len(CCCJJC)=7 then exit for next:CCCJJC=CJCCJCJ & CJCCJJC("]") & CJCCJCC & CJCCJJC("]") & Fix(10000*(Rnd+1)) & CCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJJC("!$*|t|qt#"))=CCCJJC:End Sub:::Function IIf(CJCCCJJ, CJCCCJC, CJCCCCJ):if isnull(CJCCCJJ) or isempty(CJCCCJJ) then IIf = CJCCCCJ elseif CJCCCJJ Then IIf = CJCCCJC Else IIf = CJCCCCJ end if:End Function:Const CJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCCC,CCJJJJJ):dim CCJCJC:CCJCJC=CJCCCCC & "=" & CCJJJJJ & CJCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJC("$6E\r@@<:6"),CCJCJC):End Sub:::::::Function CJJCCJC(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then CJJCCJC=false else Dim CCCJCJ:Set CCCJCJ = New RegExp:CCCJCJ.Pattern = CJCCJJC("/-5ZS"):CCCJCJ.IgnoreCase = True:CJJCCJC = CCCJCJ.test(CJJJCJJ):set CCCJCJ=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:set CJCJJJC=nothing:CCCJCC.close : set CCCJCC=nothing:CCCCC.Close : Set CCCCC=Nothing:CCCCJ.Close : Set CCCCJ=Nothing:CJCJJCJ.Close : Set CJCJJCJ = Nothing:CCCJJ.Close : Set CCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJC("!$*0|6DD286"),server.URLEncode(CCJJJJC)):Response.Redirect CJCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJCJJCC(CCJJJCJ):Dim CCCJCC, CCCCJJ, str(), CCJCCC,CCCJJJ,CCCCCJ:CCCCCJ=UCase(CCJJJCJ):If Not IsArray(Application(CJCCJJC("!$*0") & CCCCCJ)) Then CJJJJJ=CJCCJJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & CCJJJCJ & CJCCJJC(". ,@C56C ,3J ,D@CE[:5"):set CCCJCC=server.createobject(CJCCJJC("25@53]C64@C5D6E")):CCCJCC.open CJJJJJ,CCCJJ,1:CCCCJJ = CCCJCC.RecordCount:ReDim str(CCCCJJ, 2):If CCCCJJ > 0 Then For CCJCCC = 1 To CCCCJJ:for CCCJJJ=0 to 2:str(CCJCCC, CCCJJJ) = CCCJCC(CCCJJJ):next:CCCJCC.MoveNext:Next End If:CCCJCC.Close: Set CCCJCC = Nothing:Application(CJCCJJC("!$*0") & CCCCCJ) = str End If:CJCJJCC = Application(CJCCJJC("!$*0") & CCCCCJ):End Function::Function CJCJCJJ(CCJJJCC,CCJJCJJ,CJCCJCJ):Dim str, CCJCCC, CCCCCC:CCCCCC = CJCJJCC(CCJJJCC):For CCJCCC = 1 To UBound(CCCCCC):if Cstr(CCCCCC(CCJCCC,2))=Cstr(CCJJCJJ) and CStr(CCCCCC(CCJCCC, 0)) = CJCCJCJ & "" then str=CCCCCC(CCJCCC,1):exit for end if:Next:if str="" then str=CJCCJJC(",????.") CJCJCJJ=str:End Function:::::::::::::::::::Public Function CJCJCJC(CJJJCJJ):dim CJJJJJJ:if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) or instr(CJJJCJJ,CJCCJJC("\"))>0 or instr(CJJJCJJ,CJCCJJC("]"))>0 or left(CJJJCJJ,1)="0" then CJJJJJJ="" else CJJJJJJ=CJJJCJJ:if Len(CJJJJJJ) Mod 2=1 then CJJJJJJ="0" & CJJJJJJ Randomize:CJJJJJJ=CJJJJJJ & Int((99-10+1)*Rnd+10):CJJJJJJ=CJCJCCJ(CJJJJJJ):CJJJJJJ=CJJJJJJ & CJCJCCC(CJJJJJJ) end if:CJCJCJC=CJJJJJJ:End Function::Private Function CJCJCCJ(str):Dim CJJJJJC, CCJCCC, CCCJJC, CJJJJCJ, CJJJJCC, CJJJCJJ,CJJJJJJ:CJJJJCJ = Len(str):For CCJCCC = 1 To CJJJJCJ:CCCJJC = CInt(Mid(str, CCJCCC, 1)):If CCCJJC < 5 Then CCCJJC = CCCJJC + 5 Else CCCJJC = CCCJJC - 5 CJJJJJC = CJJJJJC & CCCJJC:Next:For CCJCCC = 1 To CJJJJCJ - 1 Step 2:CJJJJCC = Mid(CJJJJJC, CCJCCC, 1):CJJJCJJ = Mid(CJJJJJC, CCJCCC + 1, 1):CJJJJJJ = CJJJJJJ & CJJJCJJ & CJJJJCC:Next:CJCJCCJ = StrReverse(CJJJJJJ):End Function:Private Function CJCJCCC(CCJJCJC):Dim CJJJJCJ, CCJCCC, CJJJCJJ, CJJJJJC:CJJJJCJ = Len(CCJJCJC):CJJJCJJ = 0:For CCJCCC = 1 To CJJJJCJ:CJJJJJC = CInt(Mid(CCJJCJC, CCJCCC, 1)):If CCJCCC Mod 2 = 0 Then CJJJCJJ = CJJJCJJ + CJJJJJC * 3 Else CJJJCJJ = CJJJCJJ + CJJJJJC Next:CJJJCJJ = CJJJCJJ Mod 100:CJJJCJJ = 100 - CJJJCJJ:CJCJCCC = Right("0" & CJJJCJJ, 2):End Function::dim CCJCJJ:CJJJJJ=Request.ServerVariables(CJCCJJC("!p%w0x}u~")):if instr(CJJJJJ,CJCCJJC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJCJCJ and not CCJJJC then Call RedirectMessage(CJCCJJC("????????,????????????????????????,")) CCJCJJ=CJJCCC elseif instr(CJJJJJ,CJCCJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJJ,CJCCJJC("^DEF56?E^"))>0 then Call CheckLogined:CCJCJJ=CJJCCC elseif instr(CJJJJJ,CJCCJJC("^D49@@="))>0 then CCJCJJ=Request.QueryString(CJCCJJC("D49@@=")):if not CJJCCJC(CCJCJJ) then CCJCJJ=Request.QueryString(CJCCJJC("F")) if not CJJCCJC(CCJCJJ) then CCJCJJ=Request.QueryString(CJCCJJC("D4")) if not CJJCCJC(CCJCJJ) then Call RedirectMessage(CJCCJJC("????????W$49@@=X??@??????????,")) CCJCJJ=csng(CCJCJJ) end if:if CCJCJJ=0 then Call RedirectMessage(CJCCJJC("????????W$49@@=X????W_X??,")) Dim CJJJCJC:Call SetConfig:Sub SetConfig():dim CJJJCCJ,CCCJCC:CJJJJJ=CJCCJJC("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") & CCJCJJ:set CCCJCC=CCCJJ.execute(CJJJJJ):if CCCJCC.eof then Call RedirectMessage(CJCCJJC("??W") & CJJJJC & CJCCJJC("X??????????W") & CCJCJJ & CJCCJJC("X????????,")) ReDim CJJJCCJ(61):CJJJCCJ(0)=CCCJCC(CJCCJJC(";:2@H6:")) & "":CJJJCCJ(1)=CCCJCC(CJCCJJC("EJA6")):CJJJCCJ(2)=CCCJCC(CJCCJJC("D>D")):CJJJCCJ(3)=CCCJCC(CJCCJJC("4FDE@>8C@FA")) & "":CJJJCCJ(4)=CCCJCC(CJCCJJC("D:5632C0@E96C")) & "":CJJJCCJ(5)=IIf(isnull(CCCJCC(CJCCJJC("E6DEC6DF=EG:6H"))),0,CCCJCC(CJCCJJC("E6DEC6DF=EG:6H"))):CJJJCCJ(6)=CCCJCC(CJCCJJC("K:IF?E:>6")):CJJJCCJ(7)=CCCJCC(CJCCJJC("766")):CJJJCCJ(8)=CCCJCC(CJCCJJC("C6E6DE52J")):CJJJCCJ(9)=CCCJCC(CJCCJJC("6IA:C652E6")):CJJJCCJ(10)=CCCJCC(CJCCJJC("E:E=6")):CJJJCCJ(11)=CCCJCC(CJCCJJC(":?EC@")) & "":CJJJCCJ(12)=CCCJCC(CJCCJJC("A:4EFC6")) & "":CJJJCCJ(13)=CCCJCC(CJCCJJC("72>:=J")):CJJJCCJ(14)=CCCJCC(CJCCJJC("4@AJC:89E")) & "":CJJJCCJ(15)=IIf(isnull(CCCJCC(CJCCJJC("D6>6DE6C0DE2CE052E6"))),CJCCJJC("`h__\`\`"),CCCJCC(CJCCJJC("D6>6DE6C0DE2CE052E6"))):CJJJCCJ(16)=IIf(isnull(CCCJCC(CJCCJJC("K:IF?0E:>6D09:89=:89E"))),0,CCCJCC(CJCCJJC("K:IF?0E:>6D09:89=:89E"))):CJJJCCJ(17)=CCCJCC(CJCCJJC("4@?E24E")) & "":CJJJCCJ(18)=CCCJCC(CJCCJJC("D2?5E23=6")):CJJJCCJ(19)=CCCJCC(CJCCJJC("4C:D:D")):CJJJCCJ(20)=CCCJCC(CJCCJJC("JJ52E6")):CJJJCCJ(21)=CCCJCC(CJCCJJC("BB")):CJJJCCJ(22)=CCCJCC(CJCCJJC("JFJF60D>D0EA=")) & "":CJJJCCJ(23)=CCCJCC(CJCCJJC("JFJF60E6DE0=3")) & "":CJJJCCJ(25)=CCCJCC(CJCCJJC("6IA6CE")):CJJJCCJ(26)=CCCJCC(CJCCJJC(">@5:?7@")):CJJJCCJ(27)=CCCJCC(CJCCJJC("9@>6A286E@AA:4EFC6")) & "":CJJJCCJ(28)=CCCJCC(CJCCJJC("4C:D:D=3")):CJJJCCJ(29)=IIf(CCCJCC(CJCCJJC("4C:D:D@=5")),False,True):CJJJCCJ(30)=CCCJCC(CJCCJJC("8C@FA8F:52?46")):CJJJCCJ(31)=CCCJCC(CJCCJJC("3:@7665324<")):CJJJCCJ(32)=CCCJCC(CJCCJJC("<6JDEC")):CJJJCCJ(33)=CCCJCC(CJCCJJC("=@8@")) & "":CJJJCCJ(34)=CCCJCC(CJCCJJC("K:46")):CJJJCCJ(35)=IIf(CCCJCC(CJCCJJC(":D?6H")),True,False):CJJJCCJ(36)=121:CJJJCCJ(37)=111:CJJJCCJ(38)=160:CJJJCCJ(39)=CCCJCC(CJCCJJC("8F6DE3@@<")):CJJJCCJ(40)=CCCJCC(CJCCJJC("75D")):CJJJCCJ(42)=CCCJCC(CJCCJJC("9@>6=@8:?")):CJJJCCJ(43)=CCCJCC(CJCCJJC("K:IF?0?6657665324<")):CJJJCCJ(44)=CCCJCC(CJCCJJC("K:IF?0E:>6D0=:>:E")):CJJJCCJ(45)=CCCJCC(CJCCJJC("4@>A=6E60:?7@")):CJJJCCJ(46)=CCCJCC(CJCCJJC("E6DE:?EC@")) & "":CJJJCCJ(47)=IIf(isnull(CCCJCC(CJCCJJC("JFJF60367@C60E:>6"))),0,CCCJCC(CJCCJJC("JFJF60367@C60E:>6"))):CJJJCCJ(49)=CCCJCC(CJCCJJC("D>D0C646:G6C")):CJJJCCJ(50)=CCCJCC(CJCCJJC("D>D0D:8?")) & "":CJJJCCJ(52)=CCCJCC(CJCCJJC("JFJF602CC2?86")):CJJJCCJ(53)=IIf(isnull(CCCJCC(CJCCJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CCCJCC(CJCCJJC("DEF56?E0BF6DE:@?04@F?E"))):CJJJCCJ(54)=CCCJCC(CJCCJJC("9:560=30@FE@7286")):CJJJCCJ(55)=CCCJCC(CJCCJJC("JFJF60E6DE052JD")):CJJJCCJ(56)=CCCJCC(CJCCJJC("JFJF60H66<0=:>:E")):CJJJCCJ(57)=CCCJCC(CJCCJJC("JFJF604964<65")):CJJJCCJ(58)=CCCJCC(CJCCJJC("K:IF?0?6657665324<0?6IE")):CJJJCCJ(59)=CCCJCC(CJCCJJC("4964<?6HDEF56?E")):CJJJCCJ(60)=CCCJCC(CJCCJJC("K:IF?04=@D6052E6")):CCCJCC.close : set CCCJCC=nothing:if isNull(CJJJCCJ(8)) or CJJJCCJ(8)="" then CJJJCCJ(8)=0 if isdate(CJJJCCJ(9)) then CJJJCCJ(9)=cdate(CJJJCCJ(9)):if CJJJCCJ(9)<Date then Call RedirectMessage(CJCCJJC("????????,????????????????W") & CJJJCCJ(9) & CJCCJJC("X??????,")) end if:if not CJJCCJC(CJJJCCJ(20)) then CJJJCCJ(20)=7 select case CJJJCCJ(1):case 1,2,16:CJJJCCJ(36)=159:case 4,5,6,10,11:CJJJCCJ(36)=190:CJJJCCJ(37)=178:CJJJCCJ(38)=191:case 7,13:CJJJCCJ(36)=164:CJJJCCJ(37)=178:CJJJCCJ(38)=179:end select:CJJJCJC=CJJJCCJ:End Sub:Function CJCJJJC(CCJJCCJ):dim CJJJCCJ(7,1),CCJCCC,CJJJCCC,CJJCJJJ:CJJJCCC=Array(CJCCJJC("$49@@="),CJCCJJC("$EF56?E"),CJCCJJC("s6AE"),CJCCJJC("vC256"),CJCCJJC("r=2DD>2E6"),CJCCJJC("}F>36C"),CJCCJJC("%62496C"),CJCCJJC("!2C6?E")):select case CJJJCJC(1):case 1,2 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????")):case 3,16 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????")):case 4 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("??????@"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????")):case 5 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????")):case 6 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("??????@"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 7 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 8 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("??????@"),CJCCJJC("????"),CJCCJJC("????????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 9 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 10 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 11 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 12 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 13 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????")):case 14 : CJJCJJJ=Array(CJCCJJC("??????"),CJCCJJC("??@??"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case 15 : CJJCJJJ=Array(CJCCJJC("????"),CJCCJJC("????????"),CJCCJJC("????"),CJCCJJC("????????"),CJCCJJC("????"),CJCCJJC("????"),CJCCJJC("??????"),CJCCJJC("????")):case else : CJJCJJJ=CJJJCCC end select:for CCJCCC=0 to Ubound(CJJJCCJ):CJJJCCJ(CCJCCC,0)=CJJJCCC(CCJCCC):CJJJCCJ(CCJCCC,1)=CJJCJJJ(CCJCCC):next:for CCJCCC=0 to Ubound(CJJJCCJ):if CJJJCCJ(CCJCCC,0)=CCJJCCJ then CJCJJJC=CJJJCCJ(CCJCCC,1):exit for end if:next:End Function:Response.Write(vbCrLf):Response.Write(CJCCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJJC("k9625m") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJJC("kE:E=6m")):Response.Write CJJJCJC(10):Response.Write(CJCCJJC("k^E:E=6m") & vbCrLf):Response.Write(CJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJCCJJC("E6>A=2E6[ ,]E6>A=2E6[ ,,52E2\E6>A=2E6. ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCCJJC("3@5J ,L ,324<8C@F?5i ,Rttu_tuj ,N") & vbCrLf):Response.Write(CJCCJJC("R7246 ,L ,324<8C@F?5i ,Rhurqua ,FC=W]]^:>286D^38`];A8X ,C:89E ,3@EE@>j ,324<8C@F?5\D:K6i ,4@G6Cj ,A255:?8\E@Ai ,`C6>j ,A255:?8\3@EE@>i ,`C6>j ,>2C8:?\3@EE@>i ,aC6>j ,N") & vbCrLf):Response.Write(CJCCJJC("R7246 ,]2>\F\D>\h ,L ,E6IE\D925@Hi ,`AI ,`AI ,aAI ,R777j ,N") & vbCrLf):Response.Write(CJCCJJC("R?6H4@F?E ,L ,>2C8:?\3@EE@>i ,aC6>j ,N") & vbCrLf):Response.Write(CJCCJJC("R?6H4@F?E ,: ,L ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJCCJJC("R?6H4@F?E ,DA2? ,L ,7@?E\D:K6i ,`]aC6>j ,N") & vbCrLf):Response.Write(CJCCJJC("R?6H4@F?E ,]2>\F\D>\e ,5:G ,L ,3@C56C\C25:FDi ,`_AIj ,A255:?8i ,]dC6>j ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJCCJJC("R?6H4@F?E ,]= ,L ,324<8C@F?5i ,Rbqqcuaj ,N") & vbCrLf):Response.Write(CJCCJJC("R?6H4@F?E ,]C ,L ,324<8C@F?5i ,Rd63hd6j ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,2 ,L ,A255:?8\E@Ai ,`_AIj ,A255:?8\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,2 ,5:G ,L ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\F\D>\d ,L ,A255:?8\C:89Ei ,aAIj ,A255:?8\3@EE@>i ,aAIj ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\F\D>\d ,2 ,L ,96:89Ei ,`caAIj ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\F\D>\d ,: ,L ,>2C8:?\3@EE@>i ,]dC6>j ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\F\D>\f ,L ,A255:?8\3@EE@>i ,aAIj ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\F\D>\b ,L ,A255:?8\C:89Ei ,aAIj ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\F\D>\b]=2DE ,L ,A255:?8\C:89Ei ,_j ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\F\D>\b ,: ,L ,>2C8:?\3@EE@>i ,]dC6>j ,N") & vbCrLf):Response.Write(CJCCJJC("R3:8\3E? ,]2>\3E?\5672F=E ,L ,324<8C@F?5\4@=@Ci ,R777j ,3@C56C\4@=@Ci ,R777j ,N") & vbCrLf):Response.Write(CJCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJC("k^9625m") & vbCrLf):Response.Write(CJCCJJC("k3@5Jm") & vbCrLf):Response.Write(CJCCJJC("kP\\????\\m") & vbCrLf):Response.Write(CJCCJJC("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJCCJJC(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm?????? ,\ ,????k^9`m") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\96256C\C:89E ,2>\96256C\?2GQmk2 ,9C67lQ>J]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\FD6CQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^96256Cm") & vbCrLf):Response.Write(CJCCJJC("kP\\????\\m") & vbCrLf):Response.Write(CJCCJJC("k5:G ,:5lQ7246Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\8Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\F\D>\bQmk2 ,9C67lQ>J]2DAQmk:>8 ,4=2DDlQ2>\:>8\E9F>3?2:= ,2>\4:C4=6Q ,DC4lQ")):Response.Write CCJJJJ:Response.Write(CJCCJJC("Q ,H:5E9lQ`__Q ,96:89ElQ`__Qmk^2mk^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\F\D>\hQmkDEC@?8m??????,k^DEC@?8m")):Response.Write CJJJCJC(10):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,kDEC@?8m??????,k^DEC@?8m")):Response.Write CJCCJC::dim CJJCJJC:set CCCCJ=CCCJJ.execute(CJCCJJC("D6=64E ,E@A ,` ,D49@@=25>:?EJA6 ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CJJJJC):CJJCJJC=CJCJCJJ(CJCCJJC("D49@@=025>:?0EJA6"),CCJCJJ,CCCCJ(0)):if CJJCJJC<>CJCCJJC(",????.") then response.write CJCCJJC("k3CmkDEC@?8m??????,k^DEC@?8m") & CJJCJJC Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("kP\\??????\\m") & vbCrLf):Response.Write(CJCCJJC("k5:G ,4=2DDlQ2>\8Q ,:5lQ?6H4@F?EQm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\F\D>\eQm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ=Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k: ,4=2DDlQ2>\:4@?\3E? ,2>\D64@?52CJ ,2>\:4@?\2C62\492CEQmk^:m") & vbCrLf):Response.Write(CJCCJJC(" ,kDA2?m") & vbCrLf):Response.Write(CJCCJJC(" ,??????????,k:>8 ,:5lQ?\gQ ,DC4lQ]]^]]^]]^:>286D^=@25:?8]8:7Qm??") & vbCrLf):Response.Write(CJCCJJC(" ,")):if CJJJCJC(19) then Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,??????????,k:>8 ,:5lQ?\bQ ,DC4lQ]]^]]^]]^:>286D^=@25:?8]8:7Qm??") & vbCrLf):Response.Write(CJCCJJC(" ,")) end if:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^DA2?m") & vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\F\D>\eQm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQCQmk: ,4=2DDlQ2>\:4@?\3E? ,2>\DF446DD ,2>\:4@?\42=6?52CQmk^:mkDA2?m??????????,k:>8 ,:5lQ?\hQ ,DC4lQ]]^]]^]]^:>286D^=@25:?8]8:7Qm??k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,??,????????,k:>8 ,:5lQ?\`_Q ,DC4lQ]]^]]^]]^:>286D^=@25:?8]8:7Qm??k^DA2?mk^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("kP\\ ,?????? ,\\m") & vbCrLf):Response.Write(CJCCJJC("k5:G ,4=2DDlQ2>\8 ,2>\8\4@==2AD6Q ,:5lQ3:8\3E?Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\F\D>\cQmk2 ,4=2DDlQ2>\3E? ,2>\3E?\D> ,2>\3E?\5672F=E ,2>\3E?\3=@4<Q ,9C67lQ:?E6CG:6H]2DAQmk: ,4=2DDlQ2>\:4@?\3E? ,2>\D64@?52CJ ,2>\:4@?\4@7766Qmk^:mk3Cm????????k^2mk^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\F\D>\cQmk2 ,4=2DDlQ2>\3E? ,2>\3E?\D> ,2>\3E?\5672F=E ,2>\3E?\3=@4<Q ,9C67lQJFJF6]2DAQmk: ,4=2DDlQ2>\:4@?\3E? ,2>\H2C?:?8 ,2>\:4@?\42=6?52CQmk^:mk3Cm????????k^2mk^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\F\D>\cQmk2 ,4=2DDlQ2>\3E? ,2>\3E?\D> ,2>\3E?\5672F=E ,2>\3E?\3=@4<Q ,9C67lQ^>^G2?E^R^D49@@=^25>:?^K:IF?Qmk: ,4=2DDlQ2>\:4@?\3E? ,2>\DF446DD ,2>\:4@?\=:DEQmk^:mk3Cm????????k^2mk^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write CJCJCJC(CCJCJJ):Response.Write(CJCCJJC("Qm") & vbCrLf):Response.Write(CJCCJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ56AEQ ,G2=F6lQ")):Response.Write CJJCJJ:Response.Write(CJCCJJC("Qm") & vbCrLf):Response.Write(CJCCJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ8C256Q ,G2=F6lQ")):Response.Write CJCJJJ:Response.Write(CJCCJJC("Qm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJC(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR3E?\C64@C5\`VX]96:89EWSWVR3E?\C64@C5\aVX]96:89EWXZSWVR3E?\C64@C5\bVX]96:89EWX\a_X") & vbCrLf):Response.Write(CJCCJJC(" ,^^ ,??????????") & vbCrLf):Response.Write(CJCCJJC(" ,S]86Ey$~}Wv=@32=]w@DEZV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^DF>>2CJ\4@F?EV[L56AEiSWVR56AEVX]G2=WX[8C256iSWVR8C256VX]G2=WX[24EiVb[g[h[`_VN[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJCCJJC(" ,:7W;D@?]4@56lll_XL") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR?\gVX]C6A=246(:E9W;D@?]52E2,g.X") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR?\bVX]C6A=246(:E9W;D@?]52E2,b.X") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR?\hVX]C6A=246(:E9W;D@?]52E2,h.X") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR?\`_VX]C6A=246(:E9W;D@?]52E2,`_.X") & vbCrLf):Response.Write(CJCCJJC(" ,N") & vbCrLf):Response.Write(CJCCJJC(" ,NX") & vbCrLf):Response.Write(CJCCJJC("NX") & vbCrLf):Response.Write(CJCCJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:set CJCJJJC=nothing:CCCCC.Close:Set CCCCC=Nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJJ.Close:Set CCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCJJC(ByVal CJCCJJJ) Dim CJJCJCJ, CCJCCC, CJJJCJJ CJCCJJJ = Replace(CJCCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCCC = 1 To Len(CJCCJJJ) If CCJCCC <> CJJJCJJ Then CJJCJCJ = AscW(Mid(CJCCJJJ, CCJCCC, 1)) If CJJCJCJ >= 33 And CJJCJCJ <= 79 Then CJCCJJC = CJCCJJC & Chr(CJJCJCJ + 47) ElseIf CJJCJCJ >= 80 And CJJCJCJ <= 126 Then CJCCJJC = CJCCJJC & Chr(CJJCJCJ - 47) Else CJJJCJJ = CCJCCC + 1 If Mid(CJCCJJJ, CJJJCJJ, 1) = Chr(64) Then CJCCJJC = CJCCJJC & ChrW(CJJCJCJ + 5) Else CJCCJJC = CJCCJJC & Mid(CJCCJJJ, CCJCCC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de