<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJC, CCJJCJ,CCJJCC, CCJCJJ, CCJCJC:Set CCJJJC = server.CreateObject(CCJJJCJ("ps~sq]r@??64E:@?")):CCJJJC.open Application(CCJJJCJ("r@??64E:@?$EC:?8")):Set CCJJCJ=CCJJJC::Dim CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ:CJJCJJJ=Trim(Request.Cookies(CCJJJCJ("!$*|t|qt#"))):if CJJCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCJ>0 then
CCJCJC=CCJJJCJ("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") & CCJCCC & CCJJJCJ("V ,2?5 ,:5l") & CCJCCJ
set CCJJCC=CCJJJC.execute(CCJCJC):If CCJJCC.EOF Then
Call ClearMemberCookie
Else
CCCJJJ=CCJJCC(2) & "":CCCJJC=CCJJCC(3):CCCJCJ=CCJJCC(5):CCCJCC=CCJJCC(6):CCCCJJ=CCJJCC(9):CCCCJC=CCJJCC(15):CCCCCC=CCJJCC(0):CJJJCCJ=CCJJCC(1):CJJJCJC=CCJJCC(11) & "":CJJJJJJ=CCJJCC(10) & "":CCCCCJ=CCJJCC(12):CJJJJJC=CCJJCC(14):CJJJJCJ=CCJJCC(13):CJJJJCC=CCJJCC(7) & "":CJJJCJJ=CCJJCC(4):CJJJCCC=CCJJCC(8):if isnull(CCCCJC) then CCCCJC=0
if isnull(CCCCJJ) or CCCCJJ=0 then CCCCJJ=CCCJJC
if isnull(CJJJCJJ) then CJJJCJJ=0
if isnull(CCCJCJ) then CCCJCJ=0
if instr(CCJJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCCC)>0 then Call RedirectMessage(CCJJJCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCCJ,CCJCCC)
End IF
end if:Sub CheckRight(CCJJJCC):dim CJJCJJC,CJJCJCJ:if CCJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCCJJC(CCJJJCC) then
Call RedirectMessage(CCJJJCJ("朾@陋@W") & CCJJJCC & CCJJJCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCCJJC(CCJJJCC):dim CJJCJJC,CJJCJCJ:CJJCJCJ=split(CCJJJCC,CCJJJCJ("[")):CJCCJJC=False:for CJJCJJC=0 to ubound(CJJCJCJ):If Mid(CCCJJJ,CJJCJCJ(CJJCJJC),1)="1" then
CJCCJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJCC:CJJCJCC=trim(request.QueryString(CCJJJCJ("D49@@="))):if isnumeric(CJJCJCC) then
response.Redirect CCJJJCJ("^>^G2?E^R^D49@@=^") & CJJCJCC & CCJJJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJJJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJJCJ("!$*|t|qt#"))="":CCJCCJ=0:CCCJCC=0:CCJCCC=Empty:CCCJCJ=0:CCCCJC=0:CCCCJJ=0:CCCJJC=0:CCCCCC=False:CJJJCCJ=False:CJJJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJJ,CJJCCJC,CJJCJJC,CJJCCCJ,CJJCCCC:CJJCCJJ=split(CJJCJJJ,CCJJJCJ("]")):if ubound(CJJCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJJ(0)) or len(CJJCCJJ(1))<>32 or len(CJJCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCJC=CJJCCJJ(1):for CJJCJJC=1 to len(CJJCCJC):CJJCCCJ=mid(CJJCCJC,CJJCJJC,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCJC=CJJCCJJ(2):if CJJCCCC<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJJCCCJ=mid(CJJCCJC,18,10)/2:if CJJCCCJ<DateDiff(CCJJJCJ("D"), CCJJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCJ=Clng(CJJCCJJ(0)):CCJCCC=CJJCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCJC,CCJJCJJ):dim CJJCJJC,CJJCCCJ,CJJCCCC:for CJJCJJC=1 to len(CCJJCJJ):CJJCCCJ=mid(CCJJCJJ,CJJCJJC,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCCC=CJCJCJC & CCJJJCJ("]") & CCJJCJJ & CCJJJCJ("]") & Fix(10000*(Rnd+1)) & CJJCCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJJCJ("D"), CCJJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJCJ("!$*|t|qt#"))=CJJCCCC:End Sub:::Function IIf(CCJJCJC, CCJJCCJ, CCJJCCC):if isnull(CCJJCJC) or isempty(CCJJCJC) then
IIf = CCJJCCC
elseif CCJJCJC Then
IIf = CCJJCCJ
Else
IIf = CCJJCCC
end if:End Function:Const CJCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCJJJ,CCJCJJC):dim CJJCCJJ:CJJCCJJ=CCJCJJJ & "=" & CCJCJJC & CCJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJCJ("$6E\r@@<:6"),CJJCCJJ):End Sub:::::::Function CJCCJCC(CJCJCCC):if isnull(CJCJCCC) or trim(CJCJCCC)="" or not isnumeric(CJCJCCC) then
CJCCJCC=false
else
Dim CJCJJJJ:Set CJCJJJJ = New RegExp:CJCJJJJ.Pattern = CCJJJCJ("/-5ZS"):CJCJJJJ.IgnoreCase = True:CJCCJCC = CJCJJJJ.test(CJCJCCC):set CJCJJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CJCJJCJ.close : set CJCJJCJ=nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CCJJCC.Close : Set CCJJCC=Nothing:CCJJJJJ.Close : Set CCJJJJJ = Nothing:CCJJJC.Close : Set CCJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJCJ("!$*0|6DD286"),server.URLEncode(CCJCJCJ)):Response.Redirect CCJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJCJCC:CCJCJC=Request.ServerVariables(CCJJJCJ("!p%w0x}u~")):if instr(CCJCJC,CCJJJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCCC and not CJJJCCJ then Call RedirectMessage(CCJJJCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCJCC=CCCCJJ
elseif instr(CCJCJC,CCJJJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCJC,CCJJJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJCC=CCCCJJ
elseif instr(CCJCJC,CCJJJCJ("^D49@@="))>0 then
CJJCJCC=Request.QueryString(CCJJJCJ("D49@@=")):if not CJCCJCC(CJJCJCC) then CJJCJCC=Request.QueryString(CCJJJCJ("F"))
if not CJCCJCC(CJJCJCC) then CJJCJCC=Request.QueryString(CCJJJCJ("D4"))
if not CJCCJCC(CJJCJCC) then Call RedirectMessage(CCJJJCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCJCC=csng(CJJCJCC)
end if:if CJJCJCC=0 then Call RedirectMessage(CCJJJCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCJJJC:Call SetConfig:Sub SetConfig():dim CJJCJCJ,CJCJJCJ:CCJCJC=CCJJJCJ("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") & CJJCJCC:set CJCJJCJ=CCJJJC.execute(CCJCJC):if CJCJJCJ.eof then Call RedirectMessage(CCJJJCJ("患@W") & CCJCCJ & CCJJJCJ("X戻@圣@癿@卐@佈@W") & CJJCJCC & CCJJJCJ("X朥@批@别@。,"))
ReDim CJJCJCJ(61):CJJCJCJ(0)=CJCJJCJ(CCJJJCJ(";:2@H6:")) & "":CJJCJCJ(1)=CJCJJCJ(CCJJJCJ("EJA6")):CJJCJCJ(2)=CJCJJCJ(CCJJJCJ("D>D")):CJJCJCJ(3)=CJCJJCJ(CCJJJCJ("4FDE@>8C@FA")) & "":CJJCJCJ(4)=CJCJJCJ(CCJJJCJ("D:5632C0@E96C")) & "":CJJCJCJ(5)=IIf(isnull(CJCJJCJ(CCJJJCJ("E6DEC6DF=EG:6H"))),0,CJCJJCJ(CCJJJCJ("E6DEC6DF=EG:6H"))):CJJCJCJ(6)=CJCJJCJ(CCJJJCJ("K:IF?E:>6")):CJJCJCJ(7)=CJCJJCJ(CCJJJCJ("766")):CJJCJCJ(8)=CJCJJCJ(CCJJJCJ("C6E6DE52J")):CJJCJCJ(9)=CJCJJCJ(CCJJJCJ("6IA:C652E6")):CJJCJCJ(10)=CJCJJCJ(CCJJJCJ("E:E=6")):CJJCJCJ(11)=CJCJJCJ(CCJJJCJ(":?EC@")) & "":CJJCJCJ(12)=CJCJJCJ(CCJJJCJ("A:4EFC6")) & "":CJJCJCJ(13)=CJCJJCJ(CCJJJCJ("72>:=J")):CJJCJCJ(14)=CJCJJCJ(CCJJJCJ("4@AJC:89E")) & "":CJJCJCJ(15)=IIf(isnull(CJCJJCJ(CCJJJCJ("D6>6DE6C0DE2CE052E6"))),CCJJJCJ("`h__\`\`"),CJCJJCJ(CCJJJCJ("D6>6DE6C0DE2CE052E6"))):CJJCJCJ(16)=IIf(isnull(CJCJJCJ(CCJJJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJJCJ(CCJJJCJ("K:IF?0E:>6D09:89=:89E"))):CJJCJCJ(17)=CJCJJCJ(CCJJJCJ("4@?E24E")) & "":CJJCJCJ(18)=CJCJJCJ(CCJJJCJ("D2?5E23=6")):CJJCJCJ(19)=CJCJJCJ(CCJJJCJ("4C:D:D")):CJJCJCJ(20)=CJCJJCJ(CCJJJCJ("JJ52E6")):CJJCJCJ(21)=CJCJJCJ(CCJJJCJ("BB")):CJJCJCJ(22)=CJCJJCJ(CCJJJCJ("JFJF60D>D0EA=")) & "":CJJCJCJ(23)=CJCJJCJ(CCJJJCJ("JFJF60E6DE0=3")) & "":CJJCJCJ(25)=CJCJJCJ(CCJJJCJ("6IA6CE")):CJJCJCJ(26)=CJCJJCJ(CCJJJCJ(">@5:?7@")):CJJCJCJ(27)=CJCJJCJ(CCJJJCJ("9@>6A286E@AA:4EFC6")) & "":CJJCJCJ(28)=CJCJJCJ(CCJJJCJ("4C:D:D=3")):CJJCJCJ(29)=IIf(CJCJJCJ(CCJJJCJ("4C:D:D@=5")),False,True):CJJCJCJ(30)=CJCJJCJ(CCJJJCJ("8C@FA8F:52?46")):CJJCJCJ(31)=CJCJJCJ(CCJJJCJ("3:@7665324<")):CJJCJCJ(32)=CJCJJCJ(CCJJJCJ("<6JDEC")):CJJCJCJ(33)=CJCJJCJ(CCJJJCJ("=@8@")) & "":CJJCJCJ(34)=CJCJJCJ(CCJJJCJ("K:46")):CJJCJCJ(35)=IIf(CJCJJCJ(CCJJJCJ(":D?6H")),True,False):CJJCJCJ(36)=121:CJJCJCJ(37)=111:CJJCJCJ(38)=160:CJJCJCJ(39)=CJCJJCJ(CCJJJCJ("8F6DE3@@<")):CJJCJCJ(40)=CJCJJCJ(CCJJJCJ("75D")):CJJCJCJ(42)=CJCJJCJ(CCJJJCJ("9@>6=@8:?")):CJJCJCJ(43)=CJCJJCJ(CCJJJCJ("K:IF?0?6657665324<")):CJJCJCJ(44)=CJCJJCJ(CCJJJCJ("K:IF?0E:>6D0=:>:E")):CJJCJCJ(45)=CJCJJCJ(CCJJJCJ("4@>A=6E60:?7@")):CJJCJCJ(46)=CJCJJCJ(CCJJJCJ("E6DE:?EC@")) & "":CJJCJCJ(47)=IIf(isnull(CJCJJCJ(CCJJJCJ("JFJF60367@C60E:>6"))),0,CJCJJCJ(CCJJJCJ("JFJF60367@C60E:>6"))):CJJCJCJ(49)=CJCJJCJ(CCJJJCJ("D>D0C646:G6C")):CJJCJCJ(50)=CJCJJCJ(CCJJJCJ("D>D0D:8?")) & "":CJJCJCJ(52)=CJCJJCJ(CCJJJCJ("JFJF602CC2?86")):CJJCJCJ(53)=IIf(isnull(CJCJJCJ(CCJJJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJCJ(CCJJJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJCJ(54)=CJCJJCJ(CCJJJCJ("9:560=30@FE@7286")):CJJCJCJ(55)=CJCJJCJ(CCJJJCJ("JFJF60E6DE052JD")):CJJCJCJ(56)=CJCJJCJ(CCJJJCJ("JFJF60H66<0=:>:E")):CJJCJCJ(57)=CJCJJCJ(CCJJJCJ("JFJF604964<65")):CJJCJCJ(58)=CJCJJCJ(CCJJJCJ("K:IF?0?6657665324<0?6IE")):CJJCJCJ(59)=CJCJJCJ(CCJJJCJ("4964<?6HDEF56?E")):CJJCJCJ(60)=CJCJJCJ(CCJJJCJ("K:IF?04=@D6052E6")):CJCJJCJ.close : set CJCJJCJ=nothing:if isNull(CJJCJCJ(8)) or CJJCJCJ(8)="" then CJJCJCJ(8)=0
if isdate(CJJCJCJ(9)) then
CJJCJCJ(9)=cdate(CJJCJCJ(9)):if CJJCJCJ(9)<Date then Call RedirectMessage(CCJJJCJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJCJCJ(9) & CCJJJCJ("X巭@迂@。,"))
end if:if not CJCCJCC(CJJCJCJ(20)) then CJJCJCJ(20)=7
select case CJJCJCJ(1):case 1,2,16:CJJCJCJ(36)=159:case 4,5,6,10,11:CJJCJCJ(36)=190:CJJCJCJ(37)=178:CJJCJCJ(38)=191:case 7,13:CJJCJCJ(36)=164:CJJCJCJ(37)=178:CJJCJCJ(38)=179:end select:CJCJJJC=CJJCJCJ:End Sub:Function CJCCCCC(CCJCJCC):dim CJJCJCJ(7,1),CJJCJJC,CJCJJCC,CJCJCJJ:CJCJJCC=Array(CCJJJCJ("$49@@="),CCJJJCJ("$EF56?E"),CCJJJCJ("s6AE"),CCJJJCJ("vC256"),CCJJJCJ("r=2DD>2E6"),CCJJJCJ("}F>36C"),CCJJJCJ("%62496C"),CCJJJCJ("!2C6?E")):select case CJCJJJC(1):case 1,2 : CJCJCJJ=Array(CCJJJCJ("孡@栜@"),CCJJJCJ("孡@甚@"),CCJJJCJ("珨@红@"),CCJJJCJ("幯@红@"),CCJJJCJ("吇@孡@"),CCJJJCJ("孡@史@"),CCJJJCJ("敔@布@"),CCJJJCJ("宱@镺@")):case 3,16 : CJCJCJJ=Array(CCJJJCJ("孡@栜@"),CCJJJCJ("孡@甚@"),CCJJJCJ("陝@糶@"),CCJJJCJ("幯@红@"),CCJJJCJ("吇@孡@"),CCJJJCJ("孡@史@"),CCJJJCJ("敔@布@"),CCJJJCJ("宱@镺@")):case 4 : CJCJCJJ=Array(CCJJJCJ("匶@陝@"),CCJJJCJ("杠@论@耀@"),CCJJJCJ("卐@佈@"),CCJJJCJ("幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("匶@甚@"),CCJJJCJ("宱@屙@")):case 5 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("呓@巠@"),CCJJJCJ("郣@闣@"),CCJJJCJ("幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("呓@巠@"),CCJJJCJ("宱@屙@")):case 6 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("杠@论@耀@"),CCJJJCJ("线@刦@"),CCJJJCJ("幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("宱@屙@")):case 7 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("宓@兰@"),CCJJJCJ("郣@闣@"),CCJJJCJ("幯@仸@"),CCJJJCJ("戓@叆@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("宱@屙@")):case 8 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("杠@论@耀@"),CCJJJCJ("卐@佈@"),CCJJJCJ("兠@聇@幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("酈@偱@")):case 9 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("敔@布@"),CCJJJCJ("卐@佈@"),CCJJJCJ("幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("酈@偱@")):case 10 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("氌@譡@"),CCJJJCJ("郣@闣@"),CCJJJCJ("兠@譡@幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("宱@屙@")):case 11 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("內@劜@呓@"),CCJJJCJ("郣@闣@"),CCJJJCJ("幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("宱@屙@")):case 12 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("幭@譡@"),CCJJJCJ("卐@佈@"),CCJJJCJ("兠@譡@幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("宱@屙@")):case 13 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("孡@呓@"),CCJJJCJ("卐@佈@"),CCJJJCJ("幯@仸@"),CCJJJCJ("戓@叆@"),CCJJJCJ("缑@史@"),CCJJJCJ("敔@呓@"),CCJJJCJ("宱@屙@")):case 14 : CJCJCJJ=Array(CCJJJCJ("月@劜@炴@"),CCJJJCJ("局@氌@"),CCJJJCJ("线@刦@"),CCJJJCJ("幯@仸@"),CCJJJCJ("邶@采@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("宱@屙@")):case 15 : CJCJCJJ=Array(CCJJJCJ("卐@佈@"),CCJJJCJ("盌@独@氌@譡@"),CCJJJCJ("卐@佈@"),CCJJJCJ("兠@譡@幯@仸@"),CCJJJCJ("吇@了@"),CCJJJCJ("缑@史@"),CCJJJCJ("咣@话@布@"),CCJJJCJ("宱@屙@")):case else : CJCJCJJ=CJCJJCC
end select:for CJJCJJC=0 to Ubound(CJJCJCJ):CJJCJCJ(CJJCJJC,0)=CJCJJCC(CJJCJJC):CJJCJCJ(CJJCJJC,1)=CJCJCJJ(CJJCJJC):next:for CJJCJJC=0 to Ubound(CJJCJCJ):if CJJCJCJ(CJJCJJC,0)=CCJCJCC then
CJCCCCC=CJJCJCJ(CJJCJJC,1):exit for
end if:next:End Function::Call CheckRight(67):dim CJCJCJC:CJCJCJC=request.querystring(CCJJJCJ(":5")):if CJCCJCC(CJCJCJC) then
CCJJJC.execute CCJJJCJ("FA52E6 ,>6>36C ,D6E ,H6:I:?0F?:@?:5l?F== ,H96C6 ,:5l") & CJCJCJC
end if:response.end()::On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCC.Close:Set CCJJCC=Nothing:CCJJJC.Close:Set CCJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJJCJ(ByVal CCJJJJC)
Dim CJCJCCJ, CJJCJJC, CJCJCCC
CCJJJJC = Replace(CCJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJJC = 1 To Len(CCJJJJC)
If CJJCJJC <> CJCJCCC Then
CJCJCCJ = AscW(Mid(CCJJJJC, CJJCJJC, 1))
If CJCJCCJ >= 33 And CJCJCCJ <= 79 Then
CCJJJCJ = CCJJJCJ & Chr(CJCJCCJ + 47)
ElseIf CJCJCCJ >= 80 And CJCJCCJ <= 126 Then
CCJJJCJ = CCJJJCJ & Chr(CJCJCCJ - 47)
Else
CJCJCCC = CJJCJJC + 1
If Mid(CCJJJJC, CJCJCCC, 1) = Chr(64) Then CCJJJCJ = CCJJJCJ & ChrW(CJCJCCJ + 5) Else CCJJJCJ = CCJJJCJ & Mid(CCJJJJC, CJJCJJC, 1)
End If
End If
Next
End Function
%>