<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCJJ, CJCCJC,CJCCCJ, CJCCCC, CCJJJJ:Set CJCCJJ = server.CreateObject(CJCCCJJ("ps~sq]r@??64E:@?")):CJCCJJ.open Application(CJCCCJJ("r@??64E:@?$EC:?8")):Set CJCCJC=CJCCJJ::Dim CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC:CJJJJCC=Trim(Request.Cookies(CJCCCJJ("!$*|t|qt#"))):if CJJJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJJC>0 then
CCJJJJ=CJCCCJJ("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") & CCJJCJ & CJCCCJJ("V ,2?5 ,:5l") & CCJJJC
set CJCCCJ=CJCCJJ.execute(CCJJJJ):If CJCCCJ.EOF Then
Call ClearMemberCookie
Else
CCJJCC=CJCCCJ(2) & "":CCJCJJ=CJCCCJ(3):CCJCJC=CJCCCJ(5):CCJCCJ=CJCCCJ(6):CCJCCC=CJCCCJ(9):CCCJJJ=CJCCCJ(15):CCCJCJ=CJCCCJ(0):CJJJJJC=CJCCCJ(1):CJJJJJJ=CJCCCJ(11) & "":CCCJCC=CJCCCJ(10) & "":CCCJJC=CJCCCJ(12):CCCCJJ=CJCCCJ(14):CCCCJC=CJCCCJ(13):CCCCCJ=CJCCCJ(7) & "":CCCCCC=CJCCCJ(4):CJJJJCJ=CJCCCJ(8):if isnull(CCCJJJ) then CCCJJJ=0
if isnull(CCJCCC) or CCJCCC=0 then CCJCCC=CCJCJJ
if isnull(CCCCCC) then CCCCCC=0
if isnull(CCJCJC) then CCJCJC=0
if instr(CJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJCJ)>0 then Call RedirectMessage(CJCCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJJC,CCJJCJ)
End IF
end if:::Sub CheckLogined():if CCJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCJJ:CJJJCJJ=trim(request.QueryString(CJCCCJJ("D49@@="))):if isnumeric(CJJJCJJ) then
response.Redirect CJCCCJJ("^>^G2?E^R^D49@@=^") & CJJJCJJ & CJCCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJJ("!$*|t|qt#"))="":CCJJJC=0:CCJCCJ=0:CCJJCJ=Empty:CCJCJC=0:CCCJJJ=0:CCJCCC=0:CCJCJJ=0:CCCJCJ=False:CJJJJJC=False:CJJJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:CJJJCJC=split(CJJJJCC,CJCCCJJ("]")):if ubound(CJJJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCJC(0)) or len(CJJJCJC(1))<>32 or len(CJJJCJC(2))<>32 then
Call ClearMemberCookie
else
CJJJCCJ=CJJJCJC(1):for CJJJCCC=1 to len(CJJJCCJ):CJJCJJJ=mid(CJJJCCJ,CJJJCCC,1):if isnumeric(CJJCJJJ) then CJJCJJC=CJJCJJC & CJJCJJJ
if len(CJJCJJC)=7 then exit for
next:CJJJCCJ=CJJJCJC(2):if CJJCJJC<>mid(CJJJCCJ,6,7) then
Call ClearMemberCookie
else
CJJCJJJ=mid(CJJJCCJ,18,10)/2:if CJJCJJJ<DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJJC=Clng(CJJJCJC(0)):CCJJCJ=CJJJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJC,CJCCCCJ):dim CJJJCCC,CJJCJJJ,CJJCJJC:for CJJJCCC=1 to len(CJCCCCJ):CJJCJJJ=mid(CJCCCCJ,CJJJCCC,1):if isnumeric(CJJCJJJ) then CJJCJJC=CJJCJJC & CJJCJJJ
if len(CJJCJJC)=7 then exit for
next:CJJCJJC=CJCCCJC & CJCCCJJ("]") & CJCCCCJ & CJCCCJJ("]") & Fix(10000*(Rnd+1)) & CJJCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJJ("!$*|t|qt#"))=CJJCJJC:End Sub:::Function IIf(CJCCCCC, CCJJJJJ, CCJJJJC):if isnull(CJCCCCC) or isempty(CJCCCCC) then
IIf = CCJJJJC
elseif CJCCCCC Then
IIf = CCJJJJJ
Else
IIf = CCJJJJC
end if:End Function:Const CJCJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJJJCJ,CCJJJCC):dim CJJJCJC:CJJJCJC=CCJJJCJ & "=" & CCJJJCC & CJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJJ("$6E\r@@<:6"),CJJJCJC):End Sub:::::::Function CJCJCJC(CJCJJCJ):if isnull(CJCJJCJ) or trim(CJCJJCJ)="" or not isnumeric(CJCJJCJ) then
CJCJCJC=false
else
Dim CJJCJCJ:Set CJJCJCJ = New RegExp:CJJCJCJ.Pattern = CJCCCJJ("/-5ZS"):CJJCJCJ.IgnoreCase = True:CJCJCJC = CJJCJCJ.test(CJCJJCJ):set CJJCJCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJJCCJC.close : set CJJCCJC=nothing:CJCCCC.Close : Set CJCCCC=Nothing:CJCCCJ.Close : Set CJCCCJ=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJCCJJ.Close : Set CJCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJJ("!$*0|6DD286"),server.URLEncode(CCJJCJJ)):Response.Redirect CJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJJCJJ:CCJJJJ=Request.ServerVariables(CJCCCJJ("!p%w0x}u~")):if instr(CCJJJJ,CJCCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCJCJ and not CJJJJJC then Call RedirectMessage(CJCCCJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJJCJJ=CCJCCC
elseif instr(CCJJJJ,CJCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJJJ,CJCCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJJCJJ=CCJCCC
elseif instr(CCJJJJ,CJCCCJJ("^D49@@="))>0 then
CJJJCJJ=Request.QueryString(CJCCCJJ("D49@@=")):if not CJCJCJC(CJJJCJJ) then CJJJCJJ=Request.QueryString(CJCCCJJ("F"))
if not CJCJCJC(CJJJCJJ) then CJJJCJJ=Request.QueryString(CJCCCJJ("D4"))
if not CJCJCJC(CJJJCJJ) then Call RedirectMessage(CJCCCJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJJCJJ=csng(CJJJCJJ)
end if:if CJJJCJJ=0 then Call RedirectMessage(CJCCCJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJJCJCC:Call SetConfig:Sub SetConfig():dim CJJCCJJ,CJJCCJC:CCJJJJ=CJCCCJJ("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") & CJJJCJJ:set CJJCCJC=CJCCJJ.execute(CCJJJJ):if CJJCCJC.eof then Call RedirectMessage(CJCCCJJ("患@W") & CCJJJC & CJCCCJJ("X戻@圣@癿@卐@佈@W") & CJJJCJJ & CJCCCJJ("X朥@批@别@。,"))
ReDim CJJCCJJ(61):CJJCCJJ(0)=CJJCCJC(CJCCCJJ(";:2@H6:")) & "":CJJCCJJ(1)=CJJCCJC(CJCCCJJ("EJA6")):CJJCCJJ(2)=CJJCCJC(CJCCCJJ("D>D")):CJJCCJJ(3)=CJJCCJC(CJCCCJJ("4FDE@>8C@FA")) & "":CJJCCJJ(4)=CJJCCJC(CJCCCJJ("D:5632C0@E96C")) & "":CJJCCJJ(5)=IIf(isnull(CJJCCJC(CJCCCJJ("E6DEC6DF=EG:6H"))),0,CJJCCJC(CJCCCJJ("E6DEC6DF=EG:6H"))):CJJCCJJ(6)=CJJCCJC(CJCCCJJ("K:IF?E:>6")):CJJCCJJ(7)=CJJCCJC(CJCCCJJ("766")):CJJCCJJ(8)=CJJCCJC(CJCCCJJ("C6E6DE52J")):CJJCCJJ(9)=CJJCCJC(CJCCCJJ("6IA:C652E6")):CJJCCJJ(10)=CJJCCJC(CJCCCJJ("E:E=6")):CJJCCJJ(11)=CJJCCJC(CJCCCJJ(":?EC@")) & "":CJJCCJJ(12)=CJJCCJC(CJCCCJJ("A:4EFC6")) & "":CJJCCJJ(13)=CJJCCJC(CJCCCJJ("72>:=J")):CJJCCJJ(14)=CJJCCJC(CJCCCJJ("4@AJC:89E")) & "":CJJCCJJ(15)=IIf(isnull(CJJCCJC(CJCCCJJ("D6>6DE6C0DE2CE052E6"))),CJCCCJJ("`h__\`\`"),CJJCCJC(CJCCCJJ("D6>6DE6C0DE2CE052E6"))):CJJCCJJ(16)=IIf(isnull(CJJCCJC(CJCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJCCJC(CJCCCJJ("K:IF?0E:>6D09:89=:89E"))):CJJCCJJ(17)=CJJCCJC(CJCCCJJ("4@?E24E")) & "":CJJCCJJ(18)=CJJCCJC(CJCCCJJ("D2?5E23=6")):CJJCCJJ(19)=CJJCCJC(CJCCCJJ("4C:D:D")):CJJCCJJ(20)=CJJCCJC(CJCCCJJ("JJ52E6")):CJJCCJJ(21)=CJJCCJC(CJCCCJJ("BB")):CJJCCJJ(22)=CJJCCJC(CJCCCJJ("JFJF60D>D0EA=")) & "":CJJCCJJ(23)=CJJCCJC(CJCCCJJ("JFJF60E6DE0=3")) & "":CJJCCJJ(25)=CJJCCJC(CJCCCJJ("6IA6CE")):CJJCCJJ(26)=CJJCCJC(CJCCCJJ(">@5:?7@")):CJJCCJJ(27)=CJJCCJC(CJCCCJJ("9@>6A286E@AA:4EFC6")) & "":CJJCCJJ(28)=CJJCCJC(CJCCCJJ("4C:D:D=3")):CJJCCJJ(29)=IIf(CJJCCJC(CJCCCJJ("4C:D:D@=5")),False,True):CJJCCJJ(30)=CJJCCJC(CJCCCJJ("8C@FA8F:52?46")):CJJCCJJ(31)=CJJCCJC(CJCCCJJ("3:@7665324<")):CJJCCJJ(32)=CJJCCJC(CJCCCJJ("<6JDEC")):CJJCCJJ(33)=CJJCCJC(CJCCCJJ("=@8@")) & "":CJJCCJJ(34)=CJJCCJC(CJCCCJJ("K:46")):CJJCCJJ(35)=IIf(CJJCCJC(CJCCCJJ(":D?6H")),True,False):CJJCCJJ(36)=121:CJJCCJJ(37)=111:CJJCCJJ(38)=160:CJJCCJJ(39)=CJJCCJC(CJCCCJJ("8F6DE3@@<")):CJJCCJJ(40)=CJJCCJC(CJCCCJJ("75D")):CJJCCJJ(42)=CJJCCJC(CJCCCJJ("9@>6=@8:?")):CJJCCJJ(43)=CJJCCJC(CJCCCJJ("K:IF?0?6657665324<")):CJJCCJJ(44)=CJJCCJC(CJCCCJJ("K:IF?0E:>6D0=:>:E")):CJJCCJJ(45)=CJJCCJC(CJCCCJJ("4@>A=6E60:?7@")):CJJCCJJ(46)=CJJCCJC(CJCCCJJ("E6DE:?EC@")) & "":CJJCCJJ(47)=IIf(isnull(CJJCCJC(CJCCCJJ("JFJF60367@C60E:>6"))),0,CJJCCJC(CJCCCJJ("JFJF60367@C60E:>6"))):CJJCCJJ(49)=CJJCCJC(CJCCCJJ("D>D0C646:G6C")):CJJCCJJ(50)=CJJCCJC(CJCCCJJ("D>D0D:8?")) & "":CJJCCJJ(52)=CJJCCJC(CJCCCJJ("JFJF602CC2?86")):CJJCCJJ(53)=IIf(isnull(CJJCCJC(CJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCCJC(CJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCCJJ(54)=CJJCCJC(CJCCCJJ("9:560=30@FE@7286")):CJJCCJJ(55)=CJJCCJC(CJCCCJJ("JFJF60E6DE052JD")):CJJCCJJ(56)=CJJCCJC(CJCCCJJ("JFJF60H66<0=:>:E")):CJJCCJJ(57)=CJJCCJC(CJCCCJJ("JFJF604964<65")):CJJCCJJ(58)=CJJCCJC(CJCCCJJ("K:IF?0?6657665324<0?6IE")):CJJCCJJ(59)=CJJCCJC(CJCCCJJ("4964<?6HDEF56?E")):CJJCCJJ(60)=CJJCCJC(CJCCCJJ("K:IF?04=@D6052E6")):CJJCCJC.close : set CJJCCJC=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(CJCCCJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJCCJJ(9) & CJCCCJJ("X巭@迂@。,"))
end if:if not CJCJCJC(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:CJJCJCC=CJJCCJJ:End Sub:Function CJCCJJC(CCJJCJC):dim CJJCCJJ(7,1),CJJJCCC,CJJCCCJ,CJJCCCC:CJJCCCJ=Array(CJCCCJJ("$49@@="),CJCCCJJ("$EF56?E"),CJCCCJJ("s6AE"),CJCCCJJ("vC256"),CJCCCJJ("r=2DD>2E6"),CJCCCJJ("}F>36C"),CJCCCJJ("%62496C"),CJCCCJJ("!2C6?E")):select case CJJCJCC(1):case 1,2 : CJJCCCC=Array(CJCCCJJ("孡@栜@"),CJCCCJJ("孡@甚@"),CJCCCJJ("珨@红@"),CJCCCJJ("幯@红@"),CJCCCJJ("吇@孡@"),CJCCCJJ("孡@史@"),CJCCCJJ("敔@布@"),CJCCCJJ("宱@镺@")):case 3,16 : CJJCCCC=Array(CJCCCJJ("孡@栜@"),CJCCCJJ("孡@甚@"),CJCCCJJ("陝@糶@"),CJCCCJJ("幯@红@"),CJCCCJJ("吇@孡@"),CJCCCJJ("孡@史@"),CJCCCJJ("敔@布@"),CJCCCJJ("宱@镺@")):case 4 : CJJCCCC=Array(CJCCCJJ("匶@陝@"),CJCCCJJ("杠@论@耀@"),CJCCCJJ("卐@佈@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("匶@甚@"),CJCCCJJ("宱@屙@")):case 5 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("呓@巠@"),CJCCCJJ("郣@闣@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("呓@巠@"),CJCCCJJ("宱@屙@")):case 6 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("杠@论@耀@"),CJCCCJJ("线@刦@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 7 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("宓@兰@"),CJCCCJJ("郣@闣@"),CJCCCJJ("幯@仸@"),CJCCCJJ("戓@叆@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 8 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("杠@论@耀@"),CJCCCJJ("卐@佈@"),CJCCCJJ("兠@聇@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("酈@偱@")):case 9 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("敔@布@"),CJCCCJJ("卐@佈@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("酈@偱@")):case 10 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("氌@譡@"),CJCCCJJ("郣@闣@"),CJCCCJJ("兠@譡@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 11 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("內@劜@呓@"),CJCCCJJ("郣@闣@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 12 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("幭@譡@"),CJCCCJJ("卐@佈@"),CJCCCJJ("兠@譡@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 13 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("孡@呓@"),CJCCCJJ("卐@佈@"),CJCCCJJ("幯@仸@"),CJCCCJJ("戓@叆@"),CJCCCJJ("缑@史@"),CJCCCJJ("敔@呓@"),CJCCCJJ("宱@屙@")):case 14 : CJJCCCC=Array(CJCCCJJ("月@劜@炴@"),CJCCCJJ("局@氌@"),CJCCCJJ("线@刦@"),CJCCCJJ("幯@仸@"),CJCCCJJ("邶@采@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 15 : CJJCCCC=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("盌@独@氌@譡@"),CJCCCJJ("卐@佈@"),CJCCCJJ("兠@譡@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case else : CJJCCCC=CJJCCCJ
end select:for CJJJCCC=0 to Ubound(CJJCCJJ):CJJCCJJ(CJJJCCC,0)=CJJCCCJ(CJJJCCC):CJJCCJJ(CJJJCCC,1)=CJJCCCC(CJJJCCC):next:for CJJJCCC=0 to Ubound(CJJCCJJ):if CJJCCJJ(CJJJCCC,0)=CCJJCJC then
CJCCJJC=CJJCCJJ(CJJJCCC,1):exit for
end if:next:End Function::if not CJJCJCC(34) then Call RedirectMessage(CJCCCJJ("寴@丈@赲@，,诠@劚@胸@（,臥@浆@）,巭@绊@袦@箜@琁@呓@兮@门@。,"))
Response.Write(vbCrLf):Response.Write(CJCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCJJ("k9625m") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCJJ("kE:E=6m")):Response.Write  CJJCJCC(10):Response.Write(CJCCCJJ("\徾@琁@浆@访@k^E:E=6m") & vbCrLf):Response.Write(CJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CJCCCJJ("E6>A=2E6[ ,]E6>A=2E6[ ,,52E2\E6>A=2E6. ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCCCJJ("]=@25:?8 ,L ,H:5E9i ,`eAIj ,96:89Ei ,``AIj ,>2C8:?i ,_ ,2FE@j ,324<8C@F?5i ,FC=W]]^]]^]]^:>286D^=@25:?8]8:7X ,?@\C6A62Ej ,N") & vbCrLf):Response.Write(CJCCCJJ("?2G ,L ,A255:?8\3@EE@>i ,`]dC6>j ,A255:?8\E@Ai ,`]dC6>j ,N") & vbCrLf):Response.Write(CJCCCJJ("^Y逄@顴@卜@栲@弊@釈@冔@Y^") & vbCrLf):Response.Write(CJCCCJJ("]2>\E23D\?2G ,L ,324<8C@F?5i ,R7g7g7gj ,N") & vbCrLf):Response.Write(CJCCCJJ("]2>\?2G\E23Dm=:m2 ,L ,3@C56Ci ,_j ,N") & vbCrLf):Response.Write(CJCCCJJ("]2>\?2Gm=:m2 ,L ,A255:?8\=67Ei ,_j ,A255:?8\C:89Ei ,_j ,E6IE\2=:8?i ,46?E6CjN") & vbCrLf):Response.Write(CJCCCJJ("]2>\?2G\E23Dm=:]2>\24E:G6m2[ ,]2>\?2G\E23Dm=:]2>\24E:G6m2i7@4FD[ ,]2>\?2G\E23Dm=:]2>\24E:G6m2i9@G6C ,L ,3@C56Ci ,_j ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R_6h_5aj ,324<8C@F?5\4@=@Ci ,R7g7g7gj ,N") & vbCrLf):Response.Write(CJCCCJJ("]2>\E23D\35 ,L ,3@C56Ci ,_j ,N") & vbCrLf):Response.Write(CJCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("kP\\顰@夯@\\m") & vbCrLf):Response.Write(CJCCCJJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CJCCCJJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm徾@琁@浆@访@k^9`m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\96256C\C:89E ,2>\96256C\?2GQmk2 ,9C67lQ>J]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\FD6CQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("k^96256Cm") & vbCrLf):Response.Write(CJCCCJJ("kP\\释@衣@划@衣@逄@顴@卜@\\m") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,4=2DDlQ2>\E23DQ ,52E2\2>\E23Dm") & vbCrLf):Response.Write(CJCCCJJ(" ,kF= ,4=2DDlQ2>\E23D\?2G ,2>\?2G ,2>\?2G\E23D ,2>\2G8\D>\h ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):dim CJJJCCC,CJCJJJJ:set CJCCCJ=CJCCJJ.execute(CJCCCJJ("D6=64E ,:5[?2>6 ,7C@> ,=3EJA6 ,H96C6 ,A=246l` ,@C56C ,3J ,D@CE")):while not CJCCCJ.eof:CJCJJJJ=CJCJJJJ & CJCCCJJ("M") & CJCCCJ(0) & CJCCCJJ("M") & CJCCCJ(1):CJCCCJ.movenext:wend:CJCJJJJ=Mid(CJCJJJJ,2):CJCJJJJ=split(CJCJJJJ,CJCCCJJ("M")):for CJJJCCC=0 to ubound(CJCJJJJ)-1 step 2:response.write CJCCCJJ("k=:"):if CJJJCCC=0 then response.write CJCCCJJ(" ,4=2DDlV2>\24E:G6V")
response.write CJCCCJJ("mk2 ,9C67lVRE23\") & CJCJJJJ(CJJJCCC) & CJCCCJJ("Vm") & CJCJJJJ(CJJJCCC+1) & CJCCCJJ("k^2mk^=:m")
next:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\E23D\35Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):for CJJJCCC=0 to ubound(CJCJJJJ)-1 step 2:response.write CJCCCJJ("k5:G ,4=2DDlV2>\E23\A2?6= ,2>\7256")
if CJJJCCC=0 then response.write CJCCCJJ(" ,2>\:? ,2>\24E:G6")
response.write CJCCCJJ("V ,:5lVE23\") & CJCJJJJ(CJJJCCC) & CJCCCJJ("Vmk5:G ,4=2DDlV=@25:?8Vmk^5:Gmk^5:Gm")
next:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("kE6>A=2E6 ,:5lQE\=:DEQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,52E2\2>\H:586ElQ=:DE0?6HDQ ,4=2DDlQ2>\=:DE\?6HD ,2>\=:DE\?6HD\5672F=EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\=:DE\?6HD\35Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,kF= ,4=2DDlQ2>\=:DEQm") & vbCrLf):Response.Write(CJCCCJJ(" ,LL6249NN") & vbCrLf):Response.Write(CJCCCJJ(" ,k=: ,4=2DDlQ2>\8 ,2>\=:DE\:E6>\56D465 ,2>\=:DE\:E6>\E9F>365 ,2>\=:DE\:E6>\E9F>3\=67EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k2 ,9C67lQ^=3^:?4^DE2CE]9E>n=3:5lLLSG2=F6]:5NNUE6DEEJA6l`Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\F\D>\c ,2>\=:DE\E9F>3Qmk:>8 ,DC4lQLLSG2=F6]A:4EFC6NNQ^m ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ ,2>\F\D>\g ,2>\=:DE\>2:?Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9b ,4=2DDlQ2>\=:DE\:E6>\95QmLLSG2=F6]?2>607CMMSG2=F6]?2>6049NNk^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\=:DE\:E6>\E6IEQmLLSG2=F6]:?EC@aNNk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^2m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,LL^6249NN") & vbCrLf):Response.Write(CJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("k^E6>A=2E6m") & vbCrLf):Response.Write(CJCCCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\:5Q ,G2=F6lQ")):Response.Write  CCJJJC:Response.Write(CJCCCJJ("Qm") & vbCrLf):Response.Write(CJCCCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=\:5Q ,G2=F6lQ")):Response.Write  CJJJCJJ:Response.Write(CJCCCJJ("Qm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6\H63];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ(" ,^^ ,刂@捝@逄@顴@卜@") & vbCrLf):Response.Write(CJCCCJJ(" ,SWV5:G,52E2\2>\E23D.VX]7:?5WV2VX]@?WV@A6?65]E23D]2>F:V[ ,7F?4E:@?W6X ,L") & vbCrLf):Response.Write(CJCCCJJ(" ,G2C ,ElSWE9:DX]2EECWV9C67VX]DF3DEC:?8WdX") & vbCrLf):Response.Write(CJCCCJJ(" ,86E=:DEWEX") & vbCrLf):Response.Write(CJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJCCCJJ(" ,^^ ,挄@孡@栜@咇@释@衣@籶@刦@发@凵@释@衣@划@衣@") & vbCrLf):Response.Write(CJCCCJJ(" ,86E=:DEWabX") & vbCrLf):Response.Write(CJCCCJJ(" ,7F?4E:@? ,86E=:DEWEXL") & vbCrLf):Response.Write(CJCCCJJ(" ,G2C ,S3@IlSWVRE23\VZEX") & vbCrLf):Response.Write(CJCCCJJ(" ,:7WS3@I]7:?5WV5:G]=@25:?8VX]=6?8E9m_XL") & vbCrLf):Response.Write(CJCCCJJ(" ,S]86Ey$~}Wv=@32=]w@DEZV^D49@@=^VZSWVRD49@@=\:5VX]G2=WXZV^D42=6=:DEV[LEiEN[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJCCCJJ(" ,:7W;D@?]4@56lll_XL") & vbCrLf):Response.Write(CJCCCJJ(" ,;D@?]52E2]7@Ct249W:E6>lmP:E6>]A:4EFC6UUW:E6>]A:4EFC6lV^=3^A:4EFC6^>9E];A8VXX") & vbCrLf):Response.Write(CJCCCJJ(" ,S3@I]9E>=WE6>A=2E6WVE\=:DEV[;D@?]52E2XX") & vbCrLf):Response.Write(CJCCCJJ(" ,N") & vbCrLf):Response.Write(CJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJCCCJJ(" ,N") & vbCrLf):Response.Write(CJCCCJJ(" ,N") & vbCrLf):Response.Write(CJCCCJJ("NX") & vbCrLf):Response.Write(CJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJCCCC.Close:Set CJCCCC=Nothing:CJCCCJ.Close:Set CJCCCJ=Nothing:CJCCJJ.Close:Set CJCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJJ(ByVal CJCCJCC)
Dim CJCJJJC, CJJJCCC, CJCJJCJ
CJCCJCC = Replace(CJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCC = 1 To Len(CJCCJCC)
If CJJJCCC <> CJCJJCJ Then
CJCJJJC = AscW(Mid(CJCCJCC, CJJJCCC, 1))
If CJCJJJC >= 33 And CJCJJJC <= 79 Then
CJCCCJJ = CJCCCJJ & Chr(CJCJJJC + 47)
ElseIf CJCJJJC >= 80 And CJCJJJC <= 126 Then
CJCCCJJ = CJCCCJJ & Chr(CJCJJJC - 47)
Else
CJCJJCJ = CJJJCCC + 1
If Mid(CJCCJCC, CJCJJCJ, 1) = Chr(64) Then CJCCCJJ = CJCCCJJ & ChrW(CJCJJJC + 5) Else CJCCCJJ = CJCCCJJ & Mid(CJCCJCC, CJJJCCC, 1)
End If
End If
Next
End Function
%>