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