<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJCCCCJ("ps~sq]r@??64E:@?")):CJCCC.open Application(CJCCCCJ("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJCCCCJ("!$*|t|qt#"))):if CJCCCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJJ>0 then CCJCC=CJCCCCJ("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?@=@40 then Call RedirectMessage(CJCCCCJ("弬@寁@矼@,,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCJJ,CCCJC) End IF end if:Sub CheckRight(CJCCCCC):dim CJCCCC,CCJJJJ:if CCCJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCCJ("癶@彐@俜@恪@夬@敃@,,诲@釈@斫@癶@彐@。,")) elseIf not CJCJJJJ(CJCCCCC) then Call RedirectMessage(CJCCCCJ("朾@陋@W") & CJCCCCC & CJCCCCJ("X袦@祼@歝@,,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJCJJJJ(CJCCCCC):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJCCCCC,CJCCCCJ("[")):CJCJJJJ=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then CJCJJJJ=True:exit function end if:next:End Function:Sub CheckLogined():if CCCJJ=0 then Call ClearMemberCookie:Call ConnClose:dim CCJJJC:CCJJJC=trim(request.QueryString(CJCCCCJ("D49@@="))):if isnumeric(CCJJJC) then response.Redirect CJCCCCJ("^>^G2?E^R^D49@@=^") & CCJJJC & CJCCCCJ("^DEF56?E^=@8:?nC65:C64El") & CCCJCJ else Call RedirectMessage(CJCCCCJ("癶@彐@俜@恪@夬@敃@,,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCCJ("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCJ,CCJJCC,CJCCCC,CCJCJJ,CCJCJC:CCJJCJ=split(CJCCCJ,CJCCCCJ("]")):if ubound(CCJJCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJCJ(0)) or len(CCJJCJ(1))<>32 or len(CCJJCJ(2))<>32 then Call ClearMemberCookie else CCJJCC=CCJJCJ(1):for CJCCCC=1 to len(CCJJCC):CCJCJJ=mid(CCJJCC,CJCCCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ if len(CCJCJC)=7 then exit for next:CCJJCC=CCJJCJ(2):if CCJCJC<>mid(CCJJCC,6,7) then Call ClearMemberCookie else CCJCJJ=mid(CCJJCC,18,10)/2:if CCJCJJ6"), CJCCCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCCJ("kD4C:AE"), CJCCCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCCC=new RegExp:CCJCCC.Pattern=CJCCCCJ("@?W,2\K.ZXl"):CCJCCC.IgnoreCase = True:CCJCCC.Global=True:str=CCJCCC.Replace(str,CJCCCCJ("@?S`U6BF2=Dj")):set CCJCCC=nothing:CJCJJJC=str End If:End Function: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 CJJCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJCJJCC():dim CCCJJJ:CCCJJJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCCJJJ = "" Then CCCJJJ = Cstr(Request.ServerVariables(CJCCCCJ("#t|~%t0pss#"))) if instr(CCCJJJ,CJCCCCJ("i"))>0 then CCCJJJ=left(CCCJJJ,instr(CCCJJJ,CJCCCCJ("i"))-1) elseif instr(CCCJJJ,CJCCCCJ("["))>0 then CCCJJJ=left(CCCJJJ,instr(CCCJJJ,CJCCCCJ("["))-1) end if:CJCJJCC=left(CCCJJJ,15):End Function::Public Function CJCJCJJ():Dim CCCJJC, CCCJCJ:CCCJCJ = Request.ServerVariables(CJCCCCJ("!p%w0x}u~")):CCCJJC = Request.ServerVariables(CJCCCCJ("""&t#*0$%#x}v")):If CCCJJC <> Empty Then if instr(lcase(CCCJJC),CJCCCCJ("Tb4:7C2>6"))>0 or instr(lcase(CCCJJC),CJCCCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCCCJ("寴@丈@赲@,,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@!,!,!,")) CCCJCJ = CCCJCJ & CJCCCCJ("n") & CCCJJC end if:CJCJCJJ = CCCJCJ:End Function:Sub SetHttpOnlyCookie(CCJJCCJ,CCJJCCC):dim CCJJCJ:CCJJCJ=CCJJCCJ & CJCCCCJ("l") & CCJJCCC & CJCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCCJ("$6E\r@@<:6"),CCJJCJ):End Sub:::::Sub CheckValidPost():dim CCCJCC:CCCJCC=false:Dim CCCCJJ : CCCCJJ=lcase(Request.ServerVariables(CJCCCCJ("w%%!0#tut#t#"))):if(instr(CCCCJJ,Application(CJCCCCJ("s@>2:?(9:E6{:DE")))>0) then CCCJCC=true else Dim CCCCJC : CCCCJC=lcase(Request.ServerVariables(CJCCCCJ("$t#'t#0}p|t"))):Dim CCCCCJ : CCCCCJ=Request.ServerVariables(CJCCCCJ("{~rp{0pss#")):if Mid(CCCCJJ,8,Len(CCCCJC))=CCCCJC or Mid(CCCCJJ,9,Len(CCCCJC))=CCCCJC or CCCCJC=CCCCCJ then CCCJCC=true end if:if not CCCJCC then Call RedirectMessage(CJCCCCJ("寴@丈@赲@,,朧@糶@绚@丈@儼@讳@竔@夑@揋@亟@敫@捩@。,")) end sub::Function CJCJCJC(CJJJJCC):if isnull(CJJJJCC) or trim(CJJJJCC)="" or not isnumeric(CJJJJCC) then CJCJCJC=false else Dim CCJCCC:Set CCJCCC = New RegExp:CCJCCC.Pattern = CJCCCCJ("/-5ZS"):CCJCCC.IgnoreCase = True:CJCJCJC = CCJCCC.test(CJJJJCC):set CCJCCC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJJJCCJ.close : set CJJJCCJ=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCCJ("!$*0|6DD286"),server.URLEncode(CJJCJCC)):Response.Redirect CJCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::Sub InsertLog(CCJCJJJ,CJCCCJC):dim CCCCCC:CCCCCC=CJCCCCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCCJJ & CJCCCCJ("[V") & CJCJJCC & CJCCCCJ("V") & CJCCCCJ("[V") & CJCJJJC(CJCCCJC) & CJCCCCJ("V") & CJCCCCJ("[") & CCJCJJJ & CJCCCCJ("[V") & CJCJCJJ & CJCCCCJ("V") & CJCCCCJ("X") CJCCC.execute CCCCCC:End Sub::::::::::::::Function CJCCJCC(CCJCJJC,str):dim CJCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CCJCJC:CCJCJC=ucase(CCJCJJC):CJJJCJJ=str:if CJJJCJJ="" then CJJJCJJ=request.cookies(CCJCJC):if CJJJCJJ="" then CJCCJCC="" else CJJJCJJ=strreverse(CJJJCJJ):CJJJJJJ=len(CJJJCJJ):for CJCCCC=1 to CJJJJJJ-1 step 2:CJJJJCJ=mid(CJJJCJJ,CJCCCC,1):CJJJJCC=mid(CJJJCJJ,CJCCCC+1,1):CJJJJJC=CJJJJJC & CJJJJCC & CJJJJCJ:next:CJJJJJC=replace(CJJJJJC,CJCCCCJ("L0N"),CJCCCCJ(" ,")):CJJJJJC=replace(CJJJJJC,CJCCCCJ("LIN"),CJCCCCJ("Y")):CJJJJJC=replace(CJJJJJC,CJCCCCJ("L:N"),CJCCCCJ("^")):CJCCJCC=trim(CJJJJJC) end if else if Len(CJJJCJJ) Mod 2=1 then CJJJCJJ=CJJJCJJ & CJCCCCJ(" ,") CJJJCJJ=replace(CJJJCJJ,CJCCCCJ(" ,"),CJCCCCJ("L0N")):CJJJCJJ=replace(CJJJCJJ,CJCCCCJ("Y"),CJCCCCJ("LIN")):CJJJCJJ=replace(CJJJCJJ,CJCCCCJ("^"),CJCCCCJ("L:N")):CJJJJJJ=len(CJJJCJJ):for CJCCCC=1 to CJJJJJJ-1 step 2:CJJJJCJ=mid(CJJJCJJ,CJCCCC,1):CJJJJCC=mid(CJJJCJJ,CJCCCC+1,1):CJJJJJC=CJJJJJC & CJJJJCC & CJJJJCJ:next:CJJJJJC=Trim(strreverse(CJJJJJC)):CJCCJCC=CJJJJJC:response.cookies(CCJCJC)=CJJJJJC end if:End Function:Function CJCCCJJ(str,CCJCJCJ):if isnull(str) or str="" or CCJCJCJ="" then CJCCCJJ=False:exit function end if:Dim CCJCCC:Set CCJCCC = New RegExp:CCJCCC.Pattern = CCJCJCJ:CCJCCC.IgnoreCase = True:CJCCCJJ = CCJCCC.test(str):set CCJCCC=nothing:End Function:::dim CCJJJC:CCJCC=Request.ServerVariables(CJCCCCJ("!p%w0x}u~")):if instr(CCJCC,CJCCCCJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJCJC and not CJCCJJ then Call RedirectMessage(CJCCCCJ("寴@丈@赲@,,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CCJJJC=CJJJCJ elseif instr(CCJCC,CJCCCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCC,CJCCCCJ("^DEF56?E^"))>0 then Call CheckLogined:CCJJJC=CJJJCJ elseif instr(CCJCC,CJCCCCJ("^D49@@="))>0 then CCJJJC=Request.QueryString(CJCCCCJ("D49@@=")):if not CJCJCJC(CCJJJC) then CCJJJC=Request.QueryString(CJCCCCJ("F")) if not CJCJCJC(CCJJJC) then CCJJJC=Request.QueryString(CJCCCCJ("D4")) if not CJCJCJC(CCJJJC) then Call RedirectMessage(CJCCCCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CCJJJC=csng(CCJJJC) end if:if CCJJJC=0 then Call RedirectMessage(CJCCCCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CJJJCJC:Call SetConfig:Sub SetConfig():dim CCJJJJ,CJJJCCJ:CCJCC=CJCCCCJ("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 ,D49@@= ,H:E9 ,W?@=@4D")):CCJJJJ(3)=CJJJCCJ(CJCCCCJ("4FDE@>8C@FA")) & "":CCJJJJ(4)=CJJJCCJ(CJCCCCJ("D:5632C0@E96C")) & "":CCJJJJ(5)=IIf(isnull(CJJJCCJ(CJCCCCJ("E6DEC6DF=EG:6H"))),0,CJJJCCJ(CJCCCCJ("E6DEC6DF=EG:6H"))):CCJJJJ(6)=CJJJCCJ(CJCCCCJ("K:IF?E:>6")):CCJJJJ(7)=CJJJCCJ(CJCCCCJ("766")):CCJJJJ(8)=CJJJCCJ(CJCCCCJ("C6E6DE52J")):CCJJJJ(9)=CJJJCCJ(CJCCCCJ("6IA:C652E6")):CCJJJJ(10)=CJJJCCJ(CJCCCCJ("E:E=6")):CCJJJJ(11)=CJJJCCJ(CJCCCCJ(":?EC@")) & "":CCJJJJ(12)=CJJJCCJ(CJCCCCJ("A:4EFC6")) & "":CCJJJJ(13)=CJJJCCJ(CJCCCCJ("72>:=J")):CCJJJJ(14)=CJJJCCJ(CJCCCCJ("4@AJC:89E")) & "":CCJJJJ(15)=IIf(isnull(CJJJCCJ(CJCCCCJ("D6>6DE6C0DE2CE052E6"))),CJCCCCJ("`h__\`\`"),CJJJCCJ(CJCCCCJ("D6>6DE6C0DE2CE052E6"))):CCJJJJ(16)=IIf(isnull(CJJJCCJ(CJCCCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJCCJ(CJCCCCJ("K:IF?0E:>6D09:89=:89E"))):CCJJJJ(17)=CJJJCCJ(CJCCCCJ("4@?E24E")) & "":CCJJJJ(18)=CJJJCCJ(CJCCCCJ("D2?5E23=6")):CCJJJJ(19)=CJJJCCJ(CJCCCCJ("4C:D:D")):CCJJJJ(20)=CJJJCCJ(CJCCCCJ("JJ52E6")):CCJJJJ(21)=CJJJCCJ(CJCCCCJ("BB")):CCJJJJ(22)=CJJJCCJ(CJCCCCJ("JFJF60D>D0EA=")) & "":CCJJJJ(23)=CJJJCCJ(CJCCCCJ("JFJF60E6DE0=3")) & "":CCJJJJ(25)=CJJJCCJ(CJCCCCJ("6IA6CE")):CCJJJJ(26)=CJJJCCJ(CJCCCCJ(">@5:?7@")):CCJJJJ(27)=CJJJCCJ(CJCCCCJ("9@>6A286E@AA:4EFC6")) & "":CCJJJJ(28)=CJJJCCJ(CJCCCCJ("4C:D:D=3")):CCJJJJ(29)=IIf(CJJJCCJ(CJCCCCJ("4C:D:D@=5")),False,True):CCJJJJ(30)=CJJJCCJ(CJCCCCJ("8C@FA8F:52?46")):CCJJJJ(31)=CJJJCCJ(CJCCCCJ("3:@7665324<")):CCJJJJ(32)=CJJJCCJ(CJCCCCJ("<6JDEC")):CCJJJJ(33)=CJJJCCJ(CJCCCCJ("=@8@")) & "":CCJJJJ(34)=CJJJCCJ(CJCCCCJ("K:46")):CCJJJJ(35)=IIf(CJJJCCJ(CJCCCCJ(":D?6H")),True,False):CCJJJJ(36)=121:CCJJJJ(37)=111:CCJJJJ(38)=160:CCJJJJ(39)=CJJJCCJ(CJCCCCJ("8F6DE3@@<")):CCJJJJ(40)=CJJJCCJ(CJCCCCJ("75D")):CCJJJJ(42)=CJJJCCJ(CJCCCCJ("9@>6=@8:?")):CCJJJJ(43)=CJJJCCJ(CJCCCCJ("K:IF?0?6657665324<")):CCJJJJ(44)=CJJJCCJ(CJCCCCJ("K:IF?0E:>6D0=:>:E")):CCJJJJ(45)=CJJJCCJ(CJCCCCJ("4@>A=6E60:?7@")):CCJJJJ(46)=CJJJCCJ(CJCCCCJ("E6DE:?EC@")) & "":CCJJJJ(47)=IIf(isnull(CJJJCCJ(CJCCCCJ("JFJF60367@C60E:>6"))),0,CJJJCCJ(CJCCCCJ("JFJF60367@C60E:>6"))):CCJJJJ(49)=CJJJCCJ(CJCCCCJ("D>D0C646:G6C")):CCJJJJ(50)=CJJJCCJ(CJCCCCJ("D>D0D:8?")) & "":CCJJJJ(52)=CJJJCCJ(CJCCCCJ("JFJF602CC2?86")):CCJJJJ(53)=IIf(isnull(CJJJCCJ(CJCCCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJCCJ(CJCCCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJJJ(54)=CJJJCCJ(CJCCCCJ("9:560=30@FE@7286")):CCJJJJ(55)=CJJJCCJ(CJCCCCJ("JFJF60E6DE052JD")):CCJJJJ(56)=CJJJCCJ(CJCCCCJ("JFJF60H66<0=:>:E")):CCJJJJ(57)=CJJJCCJ(CJCCCCJ("JFJF604964<65")):CCJJJJ(58)=CJJJCCJ(CJCCCCJ("K:IF?0?6657665324<0?6IE")):CCJJJJ(59)=CJJJCCJ(CJCCCCJ("49642E6"),CJCCCCJ("}F>36C"),CJCCCCJ("%62496C"),CJCCCCJ("!2C6?E")):select case CJJJCJC(1):case 1,2 : CJJCJJJ=Array(CJCCCCJ("孡@栜@"),CJCCCCJ("孡@甚@"),CJCCCCJ("珨@红@"),CJCCCCJ("幯@红@"),CJCCCCJ("吇@孡@"),CJCCCCJ("孡@史@"),CJCCCCJ("敔@布@"),CJCCCCJ("宱@镺@")):case 3,16 : CJJCJJJ=Array(CJCCCCJ("孡@栜@"),CJCCCCJ("孡@甚@"),CJCCCCJ("陝@糶@"),CJCCCCJ("幯@红@"),CJCCCCJ("吇@孡@"),CJCCCCJ("孡@史@"),CJCCCCJ("敔@布@"),CJCCCCJ("宱@镺@")):case 4 : CJJCJJJ=Array(CJCCCCJ("匶@陝@"),CJCCCCJ("杠@论@耀@"),CJCCCCJ("卐@佈@"),CJCCCCJ("幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("匶@甚@"),CJCCCCJ("宱@屙@")):case 5 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("呓@巠@"),CJCCCCJ("郣@闣@"),CJCCCCJ("幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("呓@巠@"),CJCCCCJ("宱@屙@")):case 6 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("杠@论@耀@"),CJCCCCJ("线@刦@"),CJCCCCJ("幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("宱@屙@")):case 7 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("宓@兰@"),CJCCCCJ("郣@闣@"),CJCCCCJ("幯@仸@"),CJCCCCJ("戓@叆@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("宱@屙@")):case 8 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("杠@论@耀@"),CJCCCCJ("卐@佈@"),CJCCCCJ("兠@聇@幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("酈@偱@")):case 9 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("敔@布@"),CJCCCCJ("卐@佈@"),CJCCCCJ("幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("酈@偱@")):case 10 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("氌@譡@"),CJCCCCJ("郣@闣@"),CJCCCCJ("兠@譡@幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("宱@屙@")):case 11 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("內@劜@呓@"),CJCCCCJ("郣@闣@"),CJCCCCJ("幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("宱@屙@")):case 12 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("幭@譡@"),CJCCCCJ("卐@佈@"),CJCCCCJ("兠@譡@幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("宱@屙@")):case 13 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("孡@呓@"),CJCCCCJ("卐@佈@"),CJCCCCJ("幯@仸@"),CJCCCCJ("戓@叆@"),CJCCCCJ("缑@史@"),CJCCCCJ("敔@呓@"),CJCCCCJ("宱@屙@")):case 14 : CJJCJJJ=Array(CJCCCCJ("月@劜@炴@"),CJCCCCJ("局@氌@"),CJCCCCJ("线@刦@"),CJCCCCJ("幯@仸@"),CJCCCCJ("邶@采@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("宱@屙@")):case 15 : CJJCJJJ=Array(CJCCCCJ("卐@佈@"),CJCCCCJ("盌@独@氌@譡@"),CJCCCCJ("卐@佈@"),CJCCCCJ("兠@譡@幯@仸@"),CJCCCCJ("吇@了@"),CJCCCCJ("缑@史@"),CJCCCCJ("咣@话@布@"),CJCCCCJ("宱@屙@")):case else : CJJCJJJ=CJJJCCC end select:for CJCCCC=0 to Ubound(CCJJJJ):CCJJJJ(CJCCCC,0)=CJJJCCC(CJCCCC):CCJJJJ(CJCCCC,1)=CJJCJJJ(CJCCCC):next:for CJCCCC=0 to Ubound(CCJJJJ):if CCJJJJ(CJCCCC,0)=CCJCJJC then CJCCJJC=CCJJJJ(CJCCCC,1):exit for end if:next:End Function::Call CheckValidPost:Call CheckRight(70):dim CJJCJJC,CJCCCC,CJJCJCJ,CJJCJCC:CJJCJJC=Trim(Request.querystring(CJCCCCJ(":5=:DE"))):if CJJCJJC="" then CJJCJJC=Trim(Request.Form(CJCCCCJ(":5=:DE"))) CJJCJJC=replace(CJJCJJC,CJCCCCJ(" ,"),""):if not CJCCCJJ(CJJCJJC,CJCCCCJ("/W,`\h.-5Y[XY,`\h.-5YS")) then CJJCJCC=CJCCCCJ("寴@丈@赲@,,患@沜@朄@逄@丨@件@佐@敫@捩@!,") else if instr(CJCCCCJ("[") & CJJCJJC & CJCCCCJ("["),CJCCCCJ("[") & CCCJJ & CJCCCCJ("["))>0 then CJJCJCC=CJCCCCJ("寴@丈@赲@,,患@丈@胸@创@陟@患@臥@巬@!,") else CJJCJJC=split(CJJCJJC,CJCCCCJ("[")):for CJCCCC=0 to ubound(CJJCJJC):Call DeleteMember(CJJCJJC(CJCCCC)):next:Call InsertLog(3,CJCCCCJ("创@陟@亵@呓@敫@捩@W") & join(CJJCJJC,CJCCCCJ("[")) & CJCCCCJ("X")):Call ConnClose end if end if:dim CJJCCJJ:CJJCCJJ=Request.QueryString(CJCCCCJ("2;2I")):if CJJCCJJ="1" then Response.Write CJJCJCC elseif CJJCJCC<>"" then Call RedirectMessage(CJJCJCC) else dim redirect:redirect=Request.QueryString(CJCCCCJ("C65:C64E")):if redirect="" then redirect=Request.Form(CJCCCCJ("C65:C64E")) if redirect="" then redirect=CJCCJCC(CJCCCCJ("&#{"),"") if redirect="" then Response.Redirect CJCCCCJ("DEF56?ED]2DA") elseif redirect=CJCCCCJ("6?5") then Response.End else Response.Redirect redirect end if end if:Sub DeleteMember(CCJJJJJ):CCJCC="" & CJCCCCJ("56=6E6 ,7C@> ,2CE:4=6 ,H96C6 ,2FE9@Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,3:@7665324<03C2:?H2G6 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,3:@7665324<0962CEC2E6 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,3F==6E:? ,H96C6 ,2FE9@Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,>6>36C ,:? ,WD6=64E ,:5 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCJJJJJ & CJCCCCJ("X") & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D06G2=F2E6 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,4@?DF=E2?El") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,8C@H ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,8C@HC6A@CE ,H96C6 ,2FE9@Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,:?E6CG:6H ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,4@?DF=E2?El") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,:?E6CG:6H0:?G:E6 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,:?E6CG:6H ,:? ,WD6=64E ,:5 ,7C@> ,:?E6CG:6H ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("X") & CJCCCCJ("j56=6E6 ,7C@> ,E6DE ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,=3 ,:? ,WD6=64E ,:5 ,7C@> ,=3 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("X") & CJCCCCJ("j56=6E6 ,7C@> ,=3 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,=:?< ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,,=@8. ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,>6DD286 ,H96C6 ,D6?56Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,C646:G6Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,C6>2C< ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,2FE9@Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,2FE9@Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,KI ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,KI083@@< ,H96C6 ,2FE9@Cl") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,KI0E:>6 ,H96C6 ,4@?DF=E2?El") & CCJJJJJ & CJCCCCJ("j56=6E6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CCJJJJJ & "" CJCCC.execute CCJCC:End Sub::On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCCCJ(ByVal CJCCCJC) Dim CJJCCCJ, CJCCCC, CJJJJCC CJCCCJC = Replace(CJCCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCC = 1 To Len(CJCCCJC) If CJCCCC <> CJJJJCC Then CJJCCCJ = AscW(Mid(CJCCCJC, CJCCCC, 1)) If CJJCCCJ >= 33 And CJJCCCJ <= 79 Then CJCCCCJ = CJCCCCJ & Chr(CJJCCCJ + 47) ElseIf CJJCCCJ >= 80 And CJJCCCJ <= 126 Then CJCCCCJ = CJCCCCJ & Chr(CJJCCCJ - 47) Else CJJJJCC = CJCCCC + 1 If Mid(CJCCCJC, CJJJJCC, 1) = Chr(64) Then CJCCCCJ = CJCCCCJ & ChrW(CJJCCCJ + 5) Else CJCCCCJ = CJCCCCJ & Mid(CJCCCJC, CJCCCC, 1) End If End If Next End Function %>