<%@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
%>