Edit D:\xinhaisoft\crisis_new\school\admin\link.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJJCC, CCJCJJ,CCJCJC, CCJCCJ, CCJCCC:Set CCJJCC = server.CreateObject(CCJCJCC("ps~sq]r@??64E:@?")):CCJJCC.open Application(CCJCJCC("r@??64E:@?$EC:?8")):Set CCJCJJ=CCJJCC::Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ:CJJCJCJ=Trim(Request.Cookies(CCJCJCC("!$*|t|qt#"))):if CJJCJCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJJJ>0 then CCJCCC=CCJCJCC("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") & CCCJJC & CCJCJCC("V ,2?5 ,:5l") & CCCJJJ set CCJCJC=CCJJCC.execute(CCJCCC):If CCJCJC.EOF Then Call ClearMemberCookie Else CCCJCJ=CCJCJC(2) & "":CCCJCC=CCJCJC(3):CCCCJJ=CCJCJC(5):CCCCJC=CCJCJC(6):CCCCCJ=CCJCJC(9):CCCCCC=CCJCJC(15):CJJJJJC=CCJCJC(0):CJJCJJJ=CCJCJC(1):CJJJCCC=CCJCJC(11) & "":CJJJJCJ=CCJCJC(10) & "":CJJJJJJ=CCJCJC(12):CJJJJCC=CCJCJC(14):CJJJCJJ=CCJCJC(13):CJJJCJC=CCJCJC(7) & "":CJJJCCJ=CCJCJC(4):CJJCJJC=CCJCJC(8):if isnull(CCCCCC) then CCCCCC=0 if isnull(CCCCCJ) or CCCCCJ=0 then CCCCCJ=CCCJCC if isnull(CJJJCCJ) then CJJJCCJ=0 if isnull(CCCCJJ) then CCCCJJ=0 if instr(CCJCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJC)>0 then Call RedirectMessage(CCJCJCC("????????,????????????????????????????????,")) Call SetMemberCookie(CCCJJJ,CCCJJC) End IF end if:Sub CheckRight(CCJCCJJ):dim CJJCJCC,CJJCCJJ:if CCCJJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCJCC("??????????????,????????????,")) elseIf not CCJJJJJ(CCJCCJJ) then Call RedirectMessage(CCJCJCC("????W") & CCJCCJJ & CCJCJCC("X????????,????????????????????,")) end if:End Sub:Function CCJJJJJ(CCJCCJJ):dim CJJCJCC,CJJCCJJ:CJJCCJJ=split(CCJCCJJ,CCJCJCC("[")):CCJJJJJ=False:for CJJCJCC=0 to ubound(CJJCCJJ):If Mid(CCCJCJ,CJJCCJJ(CJJCJCC),1)="1" then CCJJJJJ=True:exit function end if:next:End Function:Sub CheckLogined():if CCCJJJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJJCCJC:CJJCCJC=trim(request.QueryString(CCJCJCC("D49@@="))):if isnumeric(CJJCCJC) then response.Redirect CCJCJCC("^>^G2?E^R^D49@@=^") & CJJCCJC & CCJCJCC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CCJCJCC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJCC("!$*|t|qt#"))="":CCCJJJ=0:CCCCJC=0:CCCJJC=Empty:CCCCJJ=0:CCCCCC=0:CCCCCJ=0:CCCJCC=0:CJJJJJC=False:CJJCJJJ=False:CJJCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCCJ,CJJCCCC,CJJCJCC,CJCJJJJ,CJCJJJC:CJJCCCJ=split(CJJCJCJ,CCJCJCC("]")):if ubound(CJJCCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJCCCJ(0)) or len(CJJCCCJ(1))<>32 or len(CJJCCCJ(2))<>32 then Call ClearMemberCookie else CJJCCCC=CJJCCCJ(1):for CJJCJCC=1 to len(CJJCCCC):CJCJJJJ=mid(CJJCCCC,CJJCJCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ if len(CJCJJJC)=7 then exit for next:CJJCCCC=CJJCCCJ(2):if CJCJJJC<>mid(CJJCCCC,6,7) then Call ClearMemberCookie else CJCJJJJ=mid(CJJCCCC,18,10)/2:if CJCJJJJ<DateDiff(CCJCJCC("D"), CCJCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCJJJ=Clng(CJJCCCJ(0)):CCCJJC=CJJCCCJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CJCCJCJ,CCJCCJC):dim CJJCJCC,CJCJJJJ,CJCJJJC:for CJJCJCC=1 to len(CCJCCJC):CJCJJJJ=mid(CCJCCJC,CJJCJCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ if len(CJCJJJC)=7 then exit for next:CJCJJJC=CJCCJCJ & CCJCJCC("]") & CCJCCJC & CCJCJCC("]") & Fix(10000*(Rnd+1)) & CJCJJJC & Fix(10000*(Rnd+1)) & DateDiff(CCJCJCC("D"), CCJCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJCC("!$*|t|qt#"))=CJCJJJC:End Sub::Function CCJJJJC(CCJCCCJ):Dim str,CJCJJCC:str = Trim(CCJCCCJ):If IsNull(str) Or str = "" Then CCJJJJC = "" else str=Replace(str, CCJCJCC("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCJCC("k:7C2>6"), CCJCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCJCC("kD4C:AE"), CCJCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJCC=new RegExp:CJCJJCC.Pattern=CCJCJCC("@?W,2\K.ZXl"):CJCJJCC.IgnoreCase = True:CJCJJCC.Global=True:str=CJCJJCC.Replace(str,CCJCJCC("@?S`U6BF2=Dj")):set CJCJJCC=nothing:CCJJJJC=str End If:End Function:Function IIf(CCJCCCC, CCCJJJJ, CCCJJJC):if isnull(CCJCCCC) or isempty(CCJCCCC) then IIf = CCCJJJC elseif CCJCCCC Then IIf = CCCJJJJ Else IIf = CCCJJJC end if:End Function:Const CJCCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJCJ,CCCJJCC):dim CJJCCCJ:CJJCCCJ=CCCJJCJ & "=" & CCCJJCC & CCJCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJCC("$6E\r@@<:6"),CJJCCCJ):End Sub:::::::Function CCJJJCC(CJCCCJJ):if isnull(CJCCCJJ) or trim(CJCCCJJ)="" or not isnumeric(CJCCCJJ) then CCJJJCC=false else Dim CJCJJCC:Set CJCJJCC = New RegExp:CJCJJCC.Pattern = CCJCJCC("/-5ZS"):CJCJJCC.IgnoreCase = True:CCJJJCC = CJCJJCC.test(CJCCCJJ):set CJCJJCC=nothing end if:End Function:Function CCJJCJJ(CCCJCJJ):dim CJCJCJJ,CJCJCJC:CJCJCJJ=CCJCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJCJJ & CCJCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJC=CCJJCC.execute(CJCJCJJ):CCJJCJJ = CJCJCJC(0):if isnull(CCJJCJJ) then CCJJCJJ=1 CJCJCJC.close : set CJCJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:CJCJCJC.close : set CJCJCJC=nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CCJCJC.Close : Set CCJCJC=Nothing:CCJCJJC.Close : Set CCJCJJC = Nothing:CCJJCC.Close : Set CCJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJCC("!$*0|6DD286"),server.URLEncode(CCCJCJC)):Response.Redirect CCJCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJCCJC:CCJCCC=Request.ServerVariables(CCJCJCC("!p%w0x}u~")):if instr(CCJCCC,CCJCJCC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJJJJC and not CJJCJJJ then Call RedirectMessage(CCJCJCC("????????,????????????????????????,")) CJJCCJC=CCCCCJ elseif instr(CCJCCC,CCJCJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCCC,CCJCJCC("^DEF56?E^"))>0 then Call CheckLogined:CJJCCJC=CCCCCJ elseif instr(CCJCCC,CCJCJCC("^D49@@="))>0 then CJJCCJC=Request.QueryString(CCJCJCC("D49@@=")):if not CCJJJCC(CJJCCJC) then CJJCCJC=Request.QueryString(CCJCJCC("F")) if not CCJJJCC(CJJCCJC) then CJJCCJC=Request.QueryString(CCJCJCC("D4")) if not CCJJJCC(CJJCCJC) then Call RedirectMessage(CCJCJCC("????????W$49@@=X??@??????????,")) CJJCCJC=csng(CJJCCJC) end if:if CJJCCJC=0 then Call RedirectMessage(CCJCJCC("????????W$49@@=X????W_X??,")) Dim CJCJCCJ:Call SetConfig:Sub SetConfig():dim CJJCCJJ,CJCJCJC:CCJCCC=CCJCJCC("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") & CJJCCJC:set CJCJCJC=CCJJCC.execute(CCJCCC):if CJCJCJC.eof then Call RedirectMessage(CCJCJCC("??W") & CCCJJJ & CCJCJCC("X??????????W") & CJJCCJC & CCJCJCC("X????????,")) ReDim CJJCCJJ(61):CJJCCJJ(0)=CJCJCJC(CCJCJCC(";:2@H6:")) & "":CJJCCJJ(1)=CJCJCJC(CCJCJCC("EJA6")):CJJCCJJ(2)=CJCJCJC(CCJCJCC("D>D")):CJJCCJJ(3)=CJCJCJC(CCJCJCC("4FDE@>8C@FA")) & "":CJJCCJJ(4)=CJCJCJC(CCJCJCC("D:5632C0@E96C")) & "":CJJCCJJ(5)=IIf(isnull(CJCJCJC(CCJCJCC("E6DEC6DF=EG:6H"))),0,CJCJCJC(CCJCJCC("E6DEC6DF=EG:6H"))):CJJCCJJ(6)=CJCJCJC(CCJCJCC("K:IF?E:>6")):CJJCCJJ(7)=CJCJCJC(CCJCJCC("766")):CJJCCJJ(8)=CJCJCJC(CCJCJCC("C6E6DE52J")):CJJCCJJ(9)=CJCJCJC(CCJCJCC("6IA:C652E6")):CJJCCJJ(10)=CJCJCJC(CCJCJCC("E:E=6")):CJJCCJJ(11)=CJCJCJC(CCJCJCC(":?EC@")) & "":CJJCCJJ(12)=CJCJCJC(CCJCJCC("A:4EFC6")) & "":CJJCCJJ(13)=CJCJCJC(CCJCJCC("72>:=J")):CJJCCJJ(14)=CJCJCJC(CCJCJCC("4@AJC:89E")) & "":CJJCCJJ(15)=IIf(isnull(CJCJCJC(CCJCJCC("D6>6DE6C0DE2CE052E6"))),CCJCJCC("`h__\`\`"),CJCJCJC(CCJCJCC("D6>6DE6C0DE2CE052E6"))):CJJCCJJ(16)=IIf(isnull(CJCJCJC(CCJCJCC("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJC(CCJCJCC("K:IF?0E:>6D09:89=:89E"))):CJJCCJJ(17)=CJCJCJC(CCJCJCC("4@?E24E")) & "":CJJCCJJ(18)=CJCJCJC(CCJCJCC("D2?5E23=6")):CJJCCJJ(19)=CJCJCJC(CCJCJCC("4C:D:D")):CJJCCJJ(20)=CJCJCJC(CCJCJCC("JJ52E6")):CJJCCJJ(21)=CJCJCJC(CCJCJCC("BB")):CJJCCJJ(22)=CJCJCJC(CCJCJCC("JFJF60D>D0EA=")) & "":CJJCCJJ(23)=CJCJCJC(CCJCJCC("JFJF60E6DE0=3")) & "":CJJCCJJ(25)=CJCJCJC(CCJCJCC("6IA6CE")):CJJCCJJ(26)=CJCJCJC(CCJCJCC(">@5:?7@")):CJJCCJJ(27)=CJCJCJC(CCJCJCC("9@>6A286E@AA:4EFC6")) & "":CJJCCJJ(28)=CJCJCJC(CCJCJCC("4C:D:D=3")):CJJCCJJ(29)=IIf(CJCJCJC(CCJCJCC("4C:D:D@=5")),False,True):CJJCCJJ(30)=CJCJCJC(CCJCJCC("8C@FA8F:52?46")):CJJCCJJ(31)=CJCJCJC(CCJCJCC("3:@7665324<")):CJJCCJJ(32)=CJCJCJC(CCJCJCC("<6JDEC")):CJJCCJJ(33)=CJCJCJC(CCJCJCC("=@8@")) & "":CJJCCJJ(34)=CJCJCJC(CCJCJCC("K:46")):CJJCCJJ(35)=IIf(CJCJCJC(CCJCJCC(":D?6H")),True,False):CJJCCJJ(36)=121:CJJCCJJ(37)=111:CJJCCJJ(38)=160:CJJCCJJ(39)=CJCJCJC(CCJCJCC("8F6DE3@@<")):CJJCCJJ(40)=CJCJCJC(CCJCJCC("75D")):CJJCCJJ(42)=CJCJCJC(CCJCJCC("9@>6=@8:?")):CJJCCJJ(43)=CJCJCJC(CCJCJCC("K:IF?0?6657665324<")):CJJCCJJ(44)=CJCJCJC(CCJCJCC("K:IF?0E:>6D0=:>:E")):CJJCCJJ(45)=CJCJCJC(CCJCJCC("4@>A=6E60:?7@")):CJJCCJJ(46)=CJCJCJC(CCJCJCC("E6DE:?EC@")) & "":CJJCCJJ(47)=IIf(isnull(CJCJCJC(CCJCJCC("JFJF60367@C60E:>6"))),0,CJCJCJC(CCJCJCC("JFJF60367@C60E:>6"))):CJJCCJJ(49)=CJCJCJC(CCJCJCC("D>D0C646:G6C")):CJJCCJJ(50)=CJCJCJC(CCJCJCC("D>D0D:8?")) & "":CJJCCJJ(52)=CJCJCJC(CCJCJCC("JFJF602CC2?86")):CJJCCJJ(53)=IIf(isnull(CJCJCJC(CCJCJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJC(CCJCJCC("DEF56?E0BF6DE:@?04@F?E"))):CJJCCJJ(54)=CJCJCJC(CCJCJCC("9:560=30@FE@7286")):CJJCCJJ(55)=CJCJCJC(CCJCJCC("JFJF60E6DE052JD")):CJJCCJJ(56)=CJCJCJC(CCJCJCC("JFJF60H66<0=:>:E")):CJJCCJJ(57)=CJCJCJC(CCJCJCC("JFJF604964<65")):CJJCCJJ(58)=CJCJCJC(CCJCJCC("K:IF?0?6657665324<0?6IE")):CJJCCJJ(59)=CJCJCJC(CCJCJCC("4964<?6HDEF56?E")):CJJCCJJ(60)=CJCJCJC(CCJCJCC("K:IF?04=@D6052E6")):CJCJCJC.close : set CJCJCJC=nothing:if isNull(CJJCCJJ(8)) or CJJCCJJ(8)="" then CJJCCJJ(8)=0 if isdate(CJJCCJJ(9)) then CJJCCJJ(9)=cdate(CJJCCJJ(9)):if CJJCCJJ(9)<Date then Call RedirectMessage(CCJCJCC("????????,????????????????W") & CJJCCJJ(9) & CCJCJCC("X??????,")) end if:if not CCJJJCC(CJJCCJJ(20)) then CJJCCJJ(20)=7 select case CJJCCJJ(1):case 1,2,16:CJJCCJJ(36)=159:case 4,5,6,10,11:CJJCCJJ(36)=190:CJJCCJJ(37)=178:CJJCCJJ(38)=191:case 7,13:CJJCCJJ(36)=164:CJJCCJJ(37)=178:CJJCCJJ(38)=179:end select:CJCJCCJ=CJJCCJJ:End Sub:Function CCJCJJJ(CCCJCCJ):dim CJJCCJJ(7,1),CJJCJCC,CJCJCCC,CJCCJJJ:CJCJCCC=Array(CCJCJCC("$49@@="),CCJCJCC("$EF56?E"),CCJCJCC("s6AE"),CCJCJCC("vC256"),CCJCJCC("r=2DD>2E6"),CCJCJCC("}F>36C"),CCJCJCC("%62496C"),CCJCJCC("!2C6?E")):select case CJCJCCJ(1):case 1,2 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????")):case 3,16 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????")):case 4 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("??????@"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????")):case 5 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????")):case 6 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("??????@"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 7 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 8 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("??????@"),CCJCJCC("????"),CCJCJCC("????????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 9 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 10 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 11 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 12 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 13 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????")):case 14 : CJCCJJJ=Array(CCJCJCC("??????"),CCJCJCC("??@??"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case 15 : CJCCJJJ=Array(CCJCJCC("????"),CCJCJCC("????????"),CCJCJCC("????"),CCJCJCC("????????"),CCJCJCC("????"),CCJCJCC("????"),CCJCJCC("??????"),CCJCJCC("????")):case else : CJCCJJJ=CJCJCCC end select:for CJJCJCC=0 to Ubound(CJJCCJJ):CJJCCJJ(CJJCJCC,0)=CJCJCCC(CJJCJCC):CJJCCJJ(CJJCJCC,1)=CJCCJJJ(CJJCJCC):next:for CJJCJCC=0 to Ubound(CJJCCJJ):if CJJCCJJ(CJJCJCC,0)=CCCJCCJ then CCJCJJJ=CJJCCJJ(CJJCJCC,1):exit for end if:next:End Function::Call CheckRight(116):if CCCCCJ<>CCCJCC then Call RedirectMessage(CCJCJCC("????????M????????,??????????????????????????????,")) Const CJCCCCJ="link":Const CJCCCCC="<span style='color:#070;'>??</span>" dim CJCCJJC,CJCCJCJ:CJCCJJC=Request.QueryString(CCJCJCC("24E")):CJCCJCJ=Request.QueryString(CCJCJCC(":5")):if CJCCJJC=CCJCJCC("56=") and CCJJJCC(CJCCJCJ) then CCJJCC.execute CCJCJCC("56=6E6 ,7C@> ,") & CJCCCCJ & CCJCJCC(" ,H96C6 ,:5l") & CJCCJCJ & CCJCJCC(" ,2?5 ,>6>36CEJA6l") & CCCCCJ end if:if Request.ServerVariables(CCJCJCC("#t""&t$%0|t%w~s"))=CCJCJCC("!~$%") then if CJCCJJC=CCJCJCC("255") then CCJCCC=CCJCJCC(":?D6CE ,:?E@ ,") & CJCCCCJ & CCJCJCC("W:5[?2>6[E:E=6[FC=[D@CE[>6>36CEJA6[:DE@AX ,G2=F6DW") & CCJJCJJ(CJCCCCJ) & CCJCJCC("[V") & CCJJJJC(Request.Form(CCJCJCC("?2>6"))) & CCJCJCC("V") & CCJCJCC("[V") & CCJJJJC(Request.Form(CCJCJCC("E:E=6"))) & CCJCJCC("V") & CCJCJCC("[V") & CCJJJJC(Request.Form(CCJCJCC("FC="))) & CCJCJCC("V") & CCJCJCC("[") & CCJJJJC(Request.Form(CCJCJCC("D@CE"))) & CCJCJCC("[") & CCCCCJ & CCJCJCC("[") & Cint(Request.Form(CCJCJCC(":DE@A"))) & CCJCJCC("X") CCJJCC.execute CCJCCC elseif CJCCJJC=CCJCJCC(">@5") and CCJJJCC(CJCCJCJ) then CCJCCC=CCJCJCC("FA52E6 ,") & CJCCCCJ & CCJCJCC(" ,D6E") & CCJCJCC(" ,?2>6lV") & CCJJJJC(Request.Form(CCJCJCC("?2>6"))) & CCJCJCC("V") & CCJCJCC("[E:E=6lV") & CCJJJJC(Request.Form(CCJCJCC("E:E=6"))) & CCJCJCC("V") & CCJCJCC("[FC=lV") & CCJJJJC(Request.Form(CCJCJCC("FC="))) & CCJCJCC("V") & CCJCJCC("[D@CElV") & CCJJJJC(Request.Form(CCJCJCC("D@CE"))) & CCJCJCC("V") & CCJCJCC("[:DE@Al") & Cint(Request.Form(CCJCJCC(":DE@A"))) & CCJCJCC(" ,H96C6 ,:5l") & CJCCJCJ CCJJCC.execute CCJCCC end if:CJCCJJC="" end if:Response.Write(vbCrLf):Response.Write(CCJCJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCJCC("k9E>=m") & vbCrLf):Response.Write(CCJCJCC("k9625m") & vbCrLf):Response.Write(CCJCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCJCC("k^9625m") & vbCrLf):Response.Write(CCJCJCC("k3@5Jm") & vbCrLf):Response.Write(CCJCJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCC(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CCJCJCC(" ,??????,????????????????????????????????,??????????????????@????????????????????????????,") & vbCrLf):Response.Write(CCJCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,")):dim CJJCJCC:CJJCJCC=1:set CCJCJC=CCJJCC.execute(CCJCJCC("D6=64E ,:5[?2>6[E:E=6[FC=[D@CE[:DE@A ,7C@> ,") & CJCCCCJ & CCJCJCC(" ,H96C6 ,>6>36CEJA6l") & CCCCCJ & CCJCJCC(" ,@C56C ,3J ,D@CE")):while not CCJCJC.eof:if CJCCJJC=CCJCJCC(">@5") and CJCCJCJ=cstr(CCJCJC(0)) then Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:DE@AQ ,G2=F6lQ`Q ,")):Response.Write IIf(CCJCJC(5),CCJCJCC("4964<65"),""):Response.Write(CCJCJCC("mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CCJCJC(1):Response.Write(CCJCJCC("Q ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,D:K6lQb_Q ,G2=F6lQ")):Response.Write CCJCJC(2):Response.Write(CCJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQFC=Q ,EJA6lQE6IEQ ,D:K6lQc_Q ,G2=F6lQ")):Response.Write CCJCJC(3):Response.Write(CCJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write CCJCJC(4):Response.Write(CCJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m\k2 ,9C67lQnQm????k^2mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(CCJCJC(5),CJCCCCC,CCJCJCC("U?3DAj")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk2 ,9C67lQ")):Response.Write CCJCJC(3):Response.Write(CCJCJCC("Q ,E2C86ElQ03=2?<Qm")):Response.Write CCJCJC(1):Response.Write(CCJCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CCJCJC(2):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CCJCJC(3):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJCJC(4):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQn24El>@5U:5l")):Response.Write CCJCJC(0):Response.Write(CCJCJCC("Qm????k^2m\k2 ,9C67lQn24El56=U:5l")):Response.Write CCJCJC(0):Response.Write(CCJCJCC("Q ,@?r=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV????????????????????????,VXQm????k^2mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,")) end if:CCJCJC.movenext:CJJCJCC=CJJCJCC+1:wend:if CJCCJJC=CCJCJCC("255") then Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:DE@AQ ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQFC=Q ,EJA6lQE6IEQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write CJJCJCC:Response.Write(CCJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m\k2 ,9C67lQnQm????k^2mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,4@=DA2?lQeQ ,2=:8?lQC:89EQmk2 ,9C67lQn24El255Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCC("k^7@C>m") & vbCrLf):Response.Write(CCJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("kD4C:AEm") & vbCrLf):Response.Write(CCJCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJCJCC("NX") & vbCrLf):Response.Write(CCJCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("k^3@5Jm") & vbCrLf):Response.Write(CCJCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJC.Close:Set CCJCJC=Nothing:CCJJCC.Close:Set CCJJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJCJCC(ByVal CCJCJCJ) Dim CJCCJCC, CJJCJCC, CJCCCJJ CCJCJCJ = Replace(CCJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCJCC = 1 To Len(CCJCJCJ) If CJJCJCC <> CJCCCJJ Then CJCCJCC = AscW(Mid(CCJCJCJ, CJJCJCC, 1)) If CJCCJCC >= 33 And CJCCJCC <= 79 Then CCJCJCC = CCJCJCC & Chr(CJCCJCC + 47) ElseIf CJCCJCC >= 80 And CJCCJCC <= 126 Then CCJCJCC = CCJCJCC & Chr(CJCCJCC - 47) Else CJCCCJJ = CJJCJCC + 1 If Mid(CCJCJCJ, CJCCCJJ, 1) = Chr(64) Then CCJCJCC = CCJCJCC & ChrW(CJCCJCC + 5) Else CCJCJCC = CCJCJCC & Mid(CCJCJCJ, CJJCJCC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de