<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CJCJJJJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CJCJJJJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJCJJJJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CJCJJJJ("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") & CJJJJC & CJCJJJJ("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CJCJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJCJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:::Sub CheckLogined():if CJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJCC:CCJJCC=trim(request.QueryString(CJCJJJJ("D49@@="))):if isnumeric(CCJJCC) then
response.Redirect CJCJJJJ("^>^G2?E^R^D49@@=^") & CCJJCC & CJCJJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJJJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:CCJCJJ=split(CCJJCJ,CJCJJJJ("]")):if ubound(CCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJJ(0)) or len(CCJCJJ(1))<>32 or len(CCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CCJCJC=CCJCJJ(1):for CCJCCJ=1 to len(CCJCJC):CCJCCC=mid(CCJCJC,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCJC=CCJCJJ(2):if CCCJJJ<>mid(CCJCJC,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCJC,18,10)/2:if CCJCCC<DateDiff(CJCJJJJ("D"), CJCJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJJ(0)):CJJJJC=CCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJJC,CJCJJCJ):dim CCJCCJ,CCJCCC,CCCJJJ:for CCJCCJ=1 to len(CJCJJCJ):CCJCCC=mid(CJCJJCJ,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CJCJJJC & CJCJJJJ("]") & CJCJJCJ & CJCJJJJ("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJJ("D"), CJCJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJJ("!$*|t|qt#"))=CCCJJJ:End Sub:::Function IIf(CJCJJCC, CJCJCJJ, CJCJCJC):if isnull(CJCJJCC) or isempty(CJCJJCC) then
IIf = CJCJCJC
elseif CJCJJCC Then
IIf = CJCJCJJ
Else
IIf = CJCJCJC
end if:End Function:Const CJJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJCCJ,CJCJCCC):dim CCJCJJ:CCJCJJ=CJCJCCJ & "=" & CJCJCCC & CJCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJJ("$6E\r@@<:6"),CCJCJJ):End Sub:::::::Function CJJJCCC(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then
CJJJCCC=false
else
Dim CCCJJC:Set CCCJJC = New RegExp:CCCJJC.Pattern = CJCJJJJ("/-5ZS"):CCCJJC.IgnoreCase = True:CJJJCCC = CCCJJC.test(CJJJCJJ):set CCCJJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CJJJJJJ.close : set CJJJJJJ=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CJJCCJJ.Close : Set CJJCCJJ = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJJ("!$*0|6DD286"),server.URLEncode(CJCCJJJ)):Response.Redirect CJCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCCJC(ByVal CJJCCCJ,style):if not isdate(CJJCCCJ) then
CJJCCJC=CJJCCCJ:exit function
end if:dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:CJJCCCJ=cdate(CJJCCCJ):CCCJCJ=Year(CJJCCCJ):CCCJCC=Month(CJJCCCJ):CCCCJJ=Day(CJJCCCJ):select case style:case 0:CJJCCJC=CCCJCJ & CJCJJJJ("\") & right(0 & CCCJCC,2) & CJCJJJJ("\") & right(0 & CCCCJJ,2):case 1:CJJCCJC=CCCJCJ & right(0 & CCCJCC,2) & right(0 & CCCCJJ,2):case 2:CJJCCJC=right(CCCJCJ,2) & CJCJJJJ("\") & right(0 & CCCJCC,2) & CJCJJJJ("\") & right(0 & CCCCJJ,2):case 3:CJJCCJC=CCCJCJ & CJCJJJJ("\") & right(0 & CCCJCC,2):case 4:CJJCCJC=right(0 & CCCJCC,2) & CJCJJJJ("\") & right(0 & CCCCJJ,2):case 5:CJJCCJC=right(0 & CCCCJJ,2):case 6:CJJCCJC=CCCJCJ & CJCJJJJ("幯@") & right(0 & CCCJCC,2) & CJCJJJJ("會@") & right(0 & CCCCJJ,2) & CJCJJJJ("无@"):case else
CJJCCJC=CJJCCCJ:end select:End Function::::::::::::::::::::::dim CCJJCC:CCCCC=Request.ServerVariables(CJCJJJJ("!p%w0x}u~")):if instr(CCCCC,CJCJJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJC and not CCJJJJ then Call RedirectMessage(CJCJJJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCJJCC=CJJCCJ
elseif instr(CCCCC,CJCJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCC,CJCJJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJJCC=CJJCCJ
elseif instr(CCCCC,CJCJJJJ("^D49@@="))>0 then
CCJJCC=Request.QueryString(CJCJJJJ("D49@@=")):if not CJJJCCC(CCJJCC) then CCJJCC=Request.QueryString(CJCJJJJ("F"))
if not CJJJCCC(CCJJCC) then CCJJCC=Request.QueryString(CJCJJJJ("D4"))
if not CJJJCCC(CCJJCC) then Call RedirectMessage(CJCJJJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCJJCC=csng(CCJJCC)
end if:if CCJJCC=0 then Call RedirectMessage(CJCJJJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCCCCJ:Call SetConfig:Sub SetConfig():dim CCCCCC,CJJJJJJ:CCCCC=CJCJJJJ("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") & CCJJCC:set CJJJJJJ=CCJCC.execute(CCCCC):if CJJJJJJ.eof then Call RedirectMessage(CJCJJJJ("患@W") & CJJJJJ & CJCJJJJ("X戻@圣@癿@卐@佈@W") & CCJJCC & CJCJJJJ("X朥@批@别@。,"))
ReDim CCCCCC(61):CCCCCC(0)=CJJJJJJ(CJCJJJJ(";:2@H6:")) & "":CCCCCC(1)=CJJJJJJ(CJCJJJJ("EJA6")):CCCCCC(2)=CJJJJJJ(CJCJJJJ("D>D")):CCCCCC(3)=CJJJJJJ(CJCJJJJ("4FDE@>8C@FA")) & "":CCCCCC(4)=CJJJJJJ(CJCJJJJ("D:5632C0@E96C")) & "":CCCCCC(5)=IIf(isnull(CJJJJJJ(CJCJJJJ("E6DEC6DF=EG:6H"))),0,CJJJJJJ(CJCJJJJ("E6DEC6DF=EG:6H"))):CCCCCC(6)=CJJJJJJ(CJCJJJJ("K:IF?E:>6")):CCCCCC(7)=CJJJJJJ(CJCJJJJ("766")):CCCCCC(8)=CJJJJJJ(CJCJJJJ("C6E6DE52J")):CCCCCC(9)=CJJJJJJ(CJCJJJJ("6IA:C652E6")):CCCCCC(10)=CJJJJJJ(CJCJJJJ("E:E=6")):CCCCCC(11)=CJJJJJJ(CJCJJJJ(":?EC@")) & "":CCCCCC(12)=CJJJJJJ(CJCJJJJ("A:4EFC6")) & "":CCCCCC(13)=CJJJJJJ(CJCJJJJ("72>:=J")):CCCCCC(14)=CJJJJJJ(CJCJJJJ("4@AJC:89E")) & "":CCCCCC(15)=IIf(isnull(CJJJJJJ(CJCJJJJ("D6>6DE6C0DE2CE052E6"))),CJCJJJJ("`h__\`\`"),CJJJJJJ(CJCJJJJ("D6>6DE6C0DE2CE052E6"))):CCCCCC(16)=IIf(isnull(CJJJJJJ(CJCJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJJJ(CJCJJJJ("K:IF?0E:>6D09:89=:89E"))):CCCCCC(17)=CJJJJJJ(CJCJJJJ("4@?E24E")) & "":CCCCCC(18)=CJJJJJJ(CJCJJJJ("D2?5E23=6")):CCCCCC(19)=CJJJJJJ(CJCJJJJ("4C:D:D")):CCCCCC(20)=CJJJJJJ(CJCJJJJ("JJ52E6")):CCCCCC(21)=CJJJJJJ(CJCJJJJ("BB")):CCCCCC(22)=CJJJJJJ(CJCJJJJ("JFJF60D>D0EA=")) & "":CCCCCC(23)=CJJJJJJ(CJCJJJJ("JFJF60E6DE0=3")) & "":CCCCCC(25)=CJJJJJJ(CJCJJJJ("6IA6CE")):CCCCCC(26)=CJJJJJJ(CJCJJJJ(">@5:?7@")):CCCCCC(27)=CJJJJJJ(CJCJJJJ("9@>6A286E@AA:4EFC6")) & "":CCCCCC(28)=CJJJJJJ(CJCJJJJ("4C:D:D=3")):CCCCCC(29)=IIf(CJJJJJJ(CJCJJJJ("4C:D:D@=5")),False,True):CCCCCC(30)=CJJJJJJ(CJCJJJJ("8C@FA8F:52?46")):CCCCCC(31)=CJJJJJJ(CJCJJJJ("3:@7665324<")):CCCCCC(32)=CJJJJJJ(CJCJJJJ("<6JDEC")):CCCCCC(33)=CJJJJJJ(CJCJJJJ("=@8@")) & "":CCCCCC(34)=CJJJJJJ(CJCJJJJ("K:46")):CCCCCC(35)=IIf(CJJJJJJ(CJCJJJJ(":D?6H")),True,False):CCCCCC(36)=121:CCCCCC(37)=111:CCCCCC(38)=160:CCCCCC(39)=CJJJJJJ(CJCJJJJ("8F6DE3@@<")):CCCCCC(40)=CJJJJJJ(CJCJJJJ("75D")):CCCCCC(42)=CJJJJJJ(CJCJJJJ("9@>6=@8:?")):CCCCCC(43)=CJJJJJJ(CJCJJJJ("K:IF?0?6657665324<")):CCCCCC(44)=CJJJJJJ(CJCJJJJ("K:IF?0E:>6D0=:>:E")):CCCCCC(45)=CJJJJJJ(CJCJJJJ("4@>A=6E60:?7@")):CCCCCC(46)=CJJJJJJ(CJCJJJJ("E6DE:?EC@")) & "":CCCCCC(47)=IIf(isnull(CJJJJJJ(CJCJJJJ("JFJF60367@C60E:>6"))),0,CJJJJJJ(CJCJJJJ("JFJF60367@C60E:>6"))):CCCCCC(49)=CJJJJJJ(CJCJJJJ("D>D0C646:G6C")):CCCCCC(50)=CJJJJJJ(CJCJJJJ("D>D0D:8?")) & "":CCCCCC(52)=CJJJJJJ(CJCJJJJ("JFJF602CC2?86")):CCCCCC(53)=IIf(isnull(CJJJJJJ(CJCJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJJJ(CJCJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CCCCCC(54)=CJJJJJJ(CJCJJJJ("9:560=30@FE@7286")):CCCCCC(55)=CJJJJJJ(CJCJJJJ("JFJF60E6DE052JD")):CCCCCC(56)=CJJJJJJ(CJCJJJJ("JFJF60H66<0=:>:E")):CCCCCC(57)=CJJJJJJ(CJCJJJJ("JFJF604964<65")):CCCCCC(58)=CJJJJJJ(CJCJJJJ("K:IF?0?6657665324<0?6IE")):CCCCCC(59)=CJJJJJJ(CJCJJJJ("4964<?6HDEF56?E")):CCCCCC(60)=CJJJJJJ(CJCJJJJ("K:IF?04=@D6052E6")):CJJJJJJ.close : set CJJJJJJ=nothing:if isNull(CCCCCC(8)) or CCCCCC(8)="" then CCCCCC(8)=0
if isdate(CCCCCC(9)) then
CCCCCC(9)=cdate(CCCCCC(9)):if CCCCCC(9)<Date then Call RedirectMessage(CJCJJJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCCCCC(9) & CJCJJJJ("X巭@迂@。,"))
end if:if not CJJJCCC(CCCCCC(20)) then CCCCCC(20)=7
select case CCCCCC(1):case 1,2,16:CCCCCC(36)=159:case 4,5,6,10,11:CCCCCC(36)=190:CCCCCC(37)=178:CCCCCC(38)=191:case 7,13:CCCCCC(36)=164:CCCCCC(37)=178:CCCCCC(38)=179:end select:CCCCCJ=CCCCCC:End Sub:Function CJJCJCC(CJCCJJC):dim CCCCCC(7,1),CCJCCJ,CJJJJJC,CJJJJCJ:CJJJJJC=Array(CJCJJJJ("$49@@="),CJCJJJJ("$EF56?E"),CJCJJJJ("s6AE"),CJCJJJJ("vC256"),CJCJJJJ("r=2DD>2E6"),CJCJJJJ("}F>36C"),CJCJJJJ("%62496C"),CJCJJJJ("!2C6?E")):select case CCCCCJ(1):case 1,2 : CJJJJCJ=Array(CJCJJJJ("孡@栜@"),CJCJJJJ("孡@甚@"),CJCJJJJ("珨@红@"),CJCJJJJ("幯@红@"),CJCJJJJ("吇@孡@"),CJCJJJJ("孡@史@"),CJCJJJJ("敔@布@"),CJCJJJJ("宱@镺@")):case 3,16 : CJJJJCJ=Array(CJCJJJJ("孡@栜@"),CJCJJJJ("孡@甚@"),CJCJJJJ("陝@糶@"),CJCJJJJ("幯@红@"),CJCJJJJ("吇@孡@"),CJCJJJJ("孡@史@"),CJCJJJJ("敔@布@"),CJCJJJJ("宱@镺@")):case 4 : CJJJJCJ=Array(CJCJJJJ("匶@陝@"),CJCJJJJ("杠@论@耀@"),CJCJJJJ("卐@佈@"),CJCJJJJ("幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("匶@甚@"),CJCJJJJ("宱@屙@")):case 5 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("呓@巠@"),CJCJJJJ("郣@闣@"),CJCJJJJ("幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("呓@巠@"),CJCJJJJ("宱@屙@")):case 6 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("杠@论@耀@"),CJCJJJJ("线@刦@"),CJCJJJJ("幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("宱@屙@")):case 7 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("宓@兰@"),CJCJJJJ("郣@闣@"),CJCJJJJ("幯@仸@"),CJCJJJJ("戓@叆@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("宱@屙@")):case 8 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("杠@论@耀@"),CJCJJJJ("卐@佈@"),CJCJJJJ("兠@聇@幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("酈@偱@")):case 9 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("敔@布@"),CJCJJJJ("卐@佈@"),CJCJJJJ("幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("酈@偱@")):case 10 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("氌@譡@"),CJCJJJJ("郣@闣@"),CJCJJJJ("兠@譡@幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("宱@屙@")):case 11 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("內@劜@呓@"),CJCJJJJ("郣@闣@"),CJCJJJJ("幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("宱@屙@")):case 12 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("幭@譡@"),CJCJJJJ("卐@佈@"),CJCJJJJ("兠@譡@幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("宱@屙@")):case 13 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("孡@呓@"),CJCJJJJ("卐@佈@"),CJCJJJJ("幯@仸@"),CJCJJJJ("戓@叆@"),CJCJJJJ("缑@史@"),CJCJJJJ("敔@呓@"),CJCJJJJ("宱@屙@")):case 14 : CJJJJCJ=Array(CJCJJJJ("月@劜@炴@"),CJCJJJJ("局@氌@"),CJCJJJJ("线@刦@"),CJCJJJJ("幯@仸@"),CJCJJJJ("邶@采@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("宱@屙@")):case 15 : CJJJJCJ=Array(CJCJJJJ("卐@佈@"),CJCJJJJ("盌@独@氌@譡@"),CJCJJJJ("卐@佈@"),CJCJJJJ("兠@譡@幯@仸@"),CJCJJJJ("吇@了@"),CJCJJJJ("缑@史@"),CJCJJJJ("咣@话@布@"),CJCJJJJ("宱@屙@")):case else : CJJJJCJ=CJJJJJC
end select:for CCJCCJ=0 to Ubound(CCCCCC):CCCCCC(CCJCCJ,0)=CJJJJJC(CCJCCJ):CCCCCC(CCJCCJ,1)=CJJJJCJ(CCJCCJ):next:for CCJCCJ=0 to Ubound(CCCCCC):if CCCCCC(CCJCCJ,0)=CJCCJJC then
CJJCJCC=CCCCCC(CCJCCJ,1):exit for
end if:next:End Function::if CCCCCJ(7)<2 then Call RedirectMessage(CJCJJJJ("糶@绚@揋@礵@M寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
Response.Write(vbCrLf):Response.Write(CJCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJJJ("k9625m") & vbCrLf):Response.Write(CJCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJJJ("kE:E=6m孡@栜@吉@叫@斂@竛@杺@坒@馑@顰@k^E:E=6m") & vbCrLf):Response.Write(CJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJJJ("kDEJ=6mk^DEJ=6m") & vbCrLf):Response.Write(CJCJJJJ("k^9625m") & vbCrLf):Response.Write(CJCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJJJJ("k5:G ,4=2DDlQ2>\8Qm") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,4=2DDlQ2>\F\D>\eQm") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,52E2\2>\H:586ElQ=:DE0?6HDQ ,4=2DDlQ2>\=:DE\?6HD ,2>\=:DE\?6HD\5672F=EQ ,m") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,4=2DDlQ2>\=:DE\?6HD\95 ,2>\47Qm") & vbCrLf):Response.Write(CJCJJJJ(" ,k9am曻@斫@斂@竛@k^9am") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,4=2DDlQ2>\=:DE\?6HD\35Qm") & vbCrLf):Response.Write(CJCJJJJ(" ,kF= ,4=2DDlQ2>\=:DEQm") & vbCrLf):Response.Write(CJCJJJJ(" ,")):CCCCC=CJCJJJJ("D6=64E ,E@A ,`_ ,:5[E:E=6[52E6E:>6 ,7C@> ,G02CE:4=6 ,H96C6 ,>6>36C0EJA60E@Al") & CCJJCC & CJCJJJJ(" ,@C56C ,3J ,52E6E:>6 ,56D4"):set CCCJC=CCJCC.execute(CCCCC):while not CCCJC.eof:Response.Write(vbCrLf):Response.Write(CJCJJJJ(" ,k=: ,4=2DDlQ2>\8 ,2>\=:DE\:E6>\52E65Qmk2 ,E2C86ElQ03=2?<Q ,9C67lQ]]^G:6H]2DAnD49@@=l")):Response.Write  CCJJCC:Response.Write(CJCJJJJ("U:5l")):Response.Write  CCCJC(0):Response.Write(CJCJJJJ("Q ,4=2DDlQ2>\=:DE\:E6>\95 ,2>\E6IE\D>Qmk: ,4=2DDlQ2>\:4@?\4:C4=6\@Qmk^:m ,")):Response.Write  CCCJC(1):Response.Write(CJCJJJJ("k^2m ,kDA2? ,4=2DDlQ2>\=:DE\52E6Qm")):Response.Write  CJJCCJC(CCCJC(2),0):Response.Write(CJCJJJJ("k^DA2?m ,k^=:m") & vbCrLf):Response.Write(CJCJJJJ(" ,")):CCCJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,4=2DDlQ2>\F\D>\eQm") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,52E2\2>\H:586ElQ=:DE0?6HDQ ,4=2DDlQ2>\=:DE\?6HD ,2>\=:DE\?6HD\5672F=EQ ,m") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,4=2DDlQ2>\=:DE\?6HD\95 ,2>\47Qm") & vbCrLf):Response.Write(CJCJJJJ(" ,k9am烨@炴@斂@竛@k^9am") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ(" ,k5:G ,4=2DDlQ2>\=:DE\?6HD\35Qm") & vbCrLf):Response.Write(CJCJJJJ(" ,kF= ,4=2DDlQ2>\=:DEQm") & vbCrLf):Response.Write(CJCJJJJ(" ,")):CCCCC=CJCJJJJ("D6=64E ,E@A ,`_ ,:5[E:E=6[52E6E:>6 ,7C@> ,G02CE:4=6 ,H96C6 ,>6>36C0EJA60E@Al") & CCJJCC & CJCJJJJ(" ,@C56C ,3J ,9:E ,56D4"):set CCCJC=CCJCC.execute(CCCCC):while not CCCJC.eof:Response.Write(vbCrLf):Response.Write(CJCJJJJ(" ,k=: ,4=2DDlQ2>\8 ,2>\=:DE\:E6>\52E65Qmk2 ,E2C86ElQ03=2?<Q ,9C67lQ]]^G:6H]2DAnD49@@=l")):Response.Write  CCJJCC:Response.Write(CJCJJJJ("U:5l")):Response.Write  CCCJC(0):Response.Write(CJCJJJJ("Q ,4=2DDlQ2>\=:DE\:E6>\95 ,2>\E6IE\D>Qmk: ,4=2DDlQ2>\:4@?\4:C4=6\@Qmk^:m ,")):Response.Write  CCCJC(1):Response.Write(CJCJJJJ("k^2m ,kDA2? ,4=2DDlQ2>\=:DE\52E6Qm")):Response.Write  CJJCCJC(CCCJC(2),0):Response.Write(CJCJJJJ("k^DA2?m ,k^=:m") & vbCrLf):Response.Write(CJCJJJJ(" ,")):CCCJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJJ("NXj") & vbCrLf):Response.Write(CJCJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJJJ(ByVal CJJCCCC)
Dim CJJJJCC, CCJCCJ, CJJJCJJ
CJJCCCC = Replace(CJJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCJ = 1 To Len(CJJCCCC)
If CCJCCJ <> CJJJCJJ Then
CJJJJCC = AscW(Mid(CJJCCCC, CCJCCJ, 1))
If CJJJJCC >= 33 And CJJJJCC <= 79 Then
CJCJJJJ = CJCJJJJ & Chr(CJJJJCC + 47)
ElseIf CJJJJCC >= 80 And CJJJJCC <= 126 Then
CJCJJJJ = CJCJJJJ & Chr(CJJJJCC - 47)
Else
CJJJCJJ = CCJCCJ + 1
If Mid(CJJCCCC, CJJJCJJ, 1) = Chr(64) Then CJCJJJJ = CJCJJJJ & ChrW(CJJJJCC + 5) Else CJCJJJJ = CJCJJJJ & Mid(CJJCCCC, CCJCCJ, 1)
End If
End If
Next
End Function
%>