<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CCJJJCC("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CCJJJCC("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC:CJJJCJC=Trim(Request.Cookies(CCJJJCC("!$*|t|qt#"))):if CJJJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCC>0 then
CCJJCJ=CCJJJCC("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") & CCJCJJ & CCJJJCC("V ,2?5 ,:5l") & CCJJCC
set CCJJJJ=CJCCCJ.execute(CCJJCJ):If CCJJJJ.EOF Then
Call ClearMemberCookie
Else
CCJCJC=CCJJJJ(2) & "":CCJCCJ=CCJJJJ(3):CCJCCC=CCJJJJ(5):CCCJJJ=CCJJJJ(6):CCCJJC=CCJJJJ(9):CCCJCJ=CCJJJJ(15):CCCCJJ=CCJJJJ(0):CJJJJCC=CCJJJJ(1):CJJJJCJ=CCJJJJ(11) & "":CCCCJC=CCJJJJ(10) & "":CCCJCC=CCJJJJ(12):CCCCCJ=CCJJJJ(14):CCCCCC=CCJJJJ(13):CJJJJJJ=CCJJJJ(7) & "":CJJJJJC=CCJJJJ(4):CJJJCJJ=CCJJJJ(8):if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCCJJC) or CCCJJC=0 then CCCJJC=CCJCCJ
if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CCJCCC) then CCJCCC=0
if instr(CCJJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJJ)>0 then Call RedirectMessage(CCJJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJCC,CCJCJJ)
End IF
end if:Sub CheckRight(CCJJCJJ):dim CJJJCCJ,CJJJCCC:if CCJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCCJJC(CCJJCJJ) then
Call RedirectMessage(CCJJJCC("朾@陋@W") & CCJJCJJ & CCJJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCCJJC(CCJJCJJ):dim CJJJCCJ,CJJJCCC:CJJJCCC=split(CCJJCJJ,CCJJJCC("[")):CJCCJJC=False:for CJJJCCJ=0 to ubound(CJJJCCC):If Mid(CCJCJC,CJJJCCC(CJJJCCJ),1)="1" then
CJCCJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJJJ:CJJCJJJ=trim(request.QueryString(CCJJJCC("D49@@="))):if isnumeric(CJJCJJJ) then
response.Redirect CCJJJCC("^>^G2?E^R^D49@@=^") & CJJCJJJ & CCJJJCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJJCC("!$*|t|qt#"))="":CCJJCC=0:CCCJJJ=0:CCJCJJ=Empty:CCJCCC=0:CCCJCJ=0:CCCJJC=0:CCJCCJ=0:CCCCJJ=False:CJJJJCC=False:CJJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJJCCJ,CJJCJCC,CJJCCJJ:CJJCJJC=split(CJJJCJC,CCJJJCC("]")):if ubound(CJJCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then
Call ClearMemberCookie
else
CJJCJCJ=CJJCJJC(1):for CJJJCCJ=1 to len(CJJCJCJ):CJJCJCC=mid(CJJCJCJ,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCJCJ=CJJCJJC(2):if CJJCCJJ<>mid(CJJCJCJ,6,7) then
Call ClearMemberCookie
else
CJJCJCC=mid(CJJCJCJ,18,10)/2:if CJJCJCC<DateDiff(CCJJJCC("D"), CCJJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCC=Clng(CJJCJJC(0)):CCJCJJ=CJJCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJCJ,CCJJCJC):dim CJJJCCJ,CJJCJCC,CJJCCJJ:for CJJJCCJ=1 to len(CCJJCJC):CJJCJCC=mid(CCJJCJC,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCCJJ=CJCJJCJ & CCJJJCC("]") & CCJJCJC & CCJJJCC("]") & Fix(10000*(Rnd+1)) & CJJCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJJJCC("D"), CCJJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJCC("!$*|t|qt#"))=CJJCCJJ:End Sub:::Function IIf(CCJJCCJ, CCJJCCC, CCJCJJJ):if isnull(CCJJCCJ) or isempty(CCJJCCJ) then
IIf = CCJCJJJ
elseif CCJJCCJ Then
IIf = CCJJCCC
Else
IIf = CCJCJJJ
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(CCJCJJC,CCJCJCJ):dim CJJCJJC:CJJCJJC=CCJCJJC & "=" & CCJCJCJ & CCJJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJCC("$6E\r@@<:6"),CJJCJJC):End Sub:::::::Function CJCCJCC(CJCJCCC):if isnull(CJCJCCC) or trim(CJCJCCC)="" or not isnumeric(CJCJCCC) then
CJCCJCC=false
else
Dim CJJCCJC:Set CJJCCJC = New RegExp:CJJCCJC.Pattern = CCJJJCC("/-5ZS"):CJJCCJC.IgnoreCase = True:CJCCJCC = CJJCCJC.test(CJCJCCC):set CJJCCJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CJJCCCC.close : set CJJCCCC=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CCJJJJJ.Close : Set CCJJJJJ = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJCC("!$*0|6DD286"),server.URLEncode(CCJCJCC)):Response.Redirect CCJJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJCJJJ:CCJJCJ=Request.ServerVariables(CCJJJCC("!p%w0x}u~")):if instr(CCJJCJ,CCJJJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCJJ and not CJJJJCC then Call RedirectMessage(CCJJJCC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CCJJJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCJ,CCJJJCC("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CCJJJCC("^D49@@="))>0 then
CJJCJJJ=Request.QueryString(CCJJJCC("D49@@=")):if not CJCCJCC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CCJJJCC("F"))
if not CJCCJCC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CCJJJCC("D4"))
if not CJCCJCC(CJJCJJJ) then Call RedirectMessage(CCJJJCC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCJJJ=csng(CJJCJJJ)
end if:if CJJCJJJ=0 then Call RedirectMessage(CCJJJCC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJJCCCJ:Call SetConfig:Sub SetConfig():dim CJJJCCC,CJJCCCC:CCJJCJ=CCJJJCC("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") & CJJCJJJ:set CJJCCCC=CJCCCJ.execute(CCJJCJ):if CJJCCCC.eof then Call RedirectMessage(CCJJJCC("患@W") & CCJJCC & CCJJJCC("X戻@圣@癿@卐@佈@W") & CJJCJJJ & CCJJJCC("X朥@批@别@。,"))
ReDim CJJJCCC(61):CJJJCCC(0)=CJJCCCC(CCJJJCC(";:2@H6:")) & "":CJJJCCC(1)=CJJCCCC(CCJJJCC("EJA6")):CJJJCCC(2)=CJJCCCC(CCJJJCC("D>D")):CJJJCCC(3)=CJJCCCC(CCJJJCC("4FDE@>8C@FA")) & "":CJJJCCC(4)=CJJCCCC(CCJJJCC("D:5632C0@E96C")) & "":CJJJCCC(5)=IIf(isnull(CJJCCCC(CCJJJCC("E6DEC6DF=EG:6H"))),0,CJJCCCC(CCJJJCC("E6DEC6DF=EG:6H"))):CJJJCCC(6)=CJJCCCC(CCJJJCC("K:IF?E:>6")):CJJJCCC(7)=CJJCCCC(CCJJJCC("766")):CJJJCCC(8)=CJJCCCC(CCJJJCC("C6E6DE52J")):CJJJCCC(9)=CJJCCCC(CCJJJCC("6IA:C652E6")):CJJJCCC(10)=CJJCCCC(CCJJJCC("E:E=6")):CJJJCCC(11)=CJJCCCC(CCJJJCC(":?EC@")) & "":CJJJCCC(12)=CJJCCCC(CCJJJCC("A:4EFC6")) & "":CJJJCCC(13)=CJJCCCC(CCJJJCC("72>:=J")):CJJJCCC(14)=CJJCCCC(CCJJJCC("4@AJC:89E")) & "":CJJJCCC(15)=IIf(isnull(CJJCCCC(CCJJJCC("D6>6DE6C0DE2CE052E6"))),CCJJJCC("`h__\`\`"),CJJCCCC(CCJJJCC("D6>6DE6C0DE2CE052E6"))):CJJJCCC(16)=IIf(isnull(CJJCCCC(CCJJJCC("K:IF?0E:>6D09:89=:89E"))),0,CJJCCCC(CCJJJCC("K:IF?0E:>6D09:89=:89E"))):CJJJCCC(17)=CJJCCCC(CCJJJCC("4@?E24E")) & "":CJJJCCC(18)=CJJCCCC(CCJJJCC("D2?5E23=6")):CJJJCCC(19)=CJJCCCC(CCJJJCC("4C:D:D")):CJJJCCC(20)=CJJCCCC(CCJJJCC("JJ52E6")):CJJJCCC(21)=CJJCCCC(CCJJJCC("BB")):CJJJCCC(22)=CJJCCCC(CCJJJCC("JFJF60D>D0EA=")) & "":CJJJCCC(23)=CJJCCCC(CCJJJCC("JFJF60E6DE0=3")) & "":CJJJCCC(25)=CJJCCCC(CCJJJCC("6IA6CE")):CJJJCCC(26)=CJJCCCC(CCJJJCC(">@5:?7@")):CJJJCCC(27)=CJJCCCC(CCJJJCC("9@>6A286E@AA:4EFC6")) & "":CJJJCCC(28)=CJJCCCC(CCJJJCC("4C:D:D=3")):CJJJCCC(29)=IIf(CJJCCCC(CCJJJCC("4C:D:D@=5")),False,True):CJJJCCC(30)=CJJCCCC(CCJJJCC("8C@FA8F:52?46")):CJJJCCC(31)=CJJCCCC(CCJJJCC("3:@7665324<")):CJJJCCC(32)=CJJCCCC(CCJJJCC("<6JDEC")):CJJJCCC(33)=CJJCCCC(CCJJJCC("=@8@")) & "":CJJJCCC(34)=CJJCCCC(CCJJJCC("K:46")):CJJJCCC(35)=IIf(CJJCCCC(CCJJJCC(":D?6H")),True,False):CJJJCCC(36)=121:CJJJCCC(37)=111:CJJJCCC(38)=160:CJJJCCC(39)=CJJCCCC(CCJJJCC("8F6DE3@@<")):CJJJCCC(40)=CJJCCCC(CCJJJCC("75D")):CJJJCCC(42)=CJJCCCC(CCJJJCC("9@>6=@8:?")):CJJJCCC(43)=CJJCCCC(CCJJJCC("K:IF?0?6657665324<")):CJJJCCC(44)=CJJCCCC(CCJJJCC("K:IF?0E:>6D0=:>:E")):CJJJCCC(45)=CJJCCCC(CCJJJCC("4@>A=6E60:?7@")):CJJJCCC(46)=CJJCCCC(CCJJJCC("E6DE:?EC@")) & "":CJJJCCC(47)=IIf(isnull(CJJCCCC(CCJJJCC("JFJF60367@C60E:>6"))),0,CJJCCCC(CCJJJCC("JFJF60367@C60E:>6"))):CJJJCCC(49)=CJJCCCC(CCJJJCC("D>D0C646:G6C")):CJJJCCC(50)=CJJCCCC(CCJJJCC("D>D0D:8?")) & "":CJJJCCC(52)=CJJCCCC(CCJJJCC("JFJF602CC2?86")):CJJJCCC(53)=IIf(isnull(CJJCCCC(CCJJJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCCCC(CCJJJCC("DEF56?E0BF6DE:@?04@F?E"))):CJJJCCC(54)=CJJCCCC(CCJJJCC("9:560=30@FE@7286")):CJJJCCC(55)=CJJCCCC(CCJJJCC("JFJF60E6DE052JD")):CJJJCCC(56)=CJJCCCC(CCJJJCC("JFJF60H66<0=:>:E")):CJJJCCC(57)=CJJCCCC(CCJJJCC("JFJF604964<65")):CJJJCCC(58)=CJJCCCC(CCJJJCC("K:IF?0?6657665324<0?6IE")):CJJJCCC(59)=CJJCCCC(CCJJJCC("4964<?6HDEF56?E")):CJJJCCC(60)=CJJCCCC(CCJJJCC("K:IF?04=@D6052E6")):CJJCCCC.close : set CJJCCCC=nothing:if isNull(CJJJCCC(8)) or CJJJCCC(8)="" then CJJJCCC(8)=0
if isdate(CJJJCCC(9)) then
CJJJCCC(9)=cdate(CJJJCCC(9)):if CJJJCCC(9)<Date then Call RedirectMessage(CCJJJCC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJJCCC(9) & CCJJJCC("X巭@迂@。,"))
end if:if not CJCCJCC(CJJJCCC(20)) then CJJJCCC(20)=7
select case CJJJCCC(1):case 1,2,16:CJJJCCC(36)=159:case 4,5,6,10,11:CJJJCCC(36)=190:CJJJCCC(37)=178:CJJJCCC(38)=191:case 7,13:CJJJCCC(36)=164:CJJJCCC(37)=178:CJJJCCC(38)=179:end select:CJJCCCJ=CJJJCCC:End Sub:Function CJCCCCC(CCJCCJJ):dim CJJJCCC(7,1),CJJJCCJ,CJCJJJJ,CJCJJJC:CJCJJJJ=Array(CCJJJCC("$49@@="),CCJJJCC("$EF56?E"),CCJJJCC("s6AE"),CCJJJCC("vC256"),CCJJJCC("r=2DD>2E6"),CCJJJCC("}F>36C"),CCJJJCC("%62496C"),CCJJJCC("!2C6?E")):select case CJJCCCJ(1):case 1,2 : CJCJJJC=Array(CCJJJCC("孡@栜@"),CCJJJCC("孡@甚@"),CCJJJCC("珨@红@"),CCJJJCC("幯@红@"),CCJJJCC("吇@孡@"),CCJJJCC("孡@史@"),CCJJJCC("敔@布@"),CCJJJCC("宱@镺@")):case 3,16 : CJCJJJC=Array(CCJJJCC("孡@栜@"),CCJJJCC("孡@甚@"),CCJJJCC("陝@糶@"),CCJJJCC("幯@红@"),CCJJJCC("吇@孡@"),CCJJJCC("孡@史@"),CCJJJCC("敔@布@"),CCJJJCC("宱@镺@")):case 4 : CJCJJJC=Array(CCJJJCC("匶@陝@"),CCJJJCC("杠@论@耀@"),CCJJJCC("卐@佈@"),CCJJJCC("幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("匶@甚@"),CCJJJCC("宱@屙@")):case 5 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("呓@巠@"),CCJJJCC("郣@闣@"),CCJJJCC("幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("呓@巠@"),CCJJJCC("宱@屙@")):case 6 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("杠@论@耀@"),CCJJJCC("线@刦@"),CCJJJCC("幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("宱@屙@")):case 7 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("宓@兰@"),CCJJJCC("郣@闣@"),CCJJJCC("幯@仸@"),CCJJJCC("戓@叆@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("宱@屙@")):case 8 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("杠@论@耀@"),CCJJJCC("卐@佈@"),CCJJJCC("兠@聇@幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("酈@偱@")):case 9 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("敔@布@"),CCJJJCC("卐@佈@"),CCJJJCC("幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("酈@偱@")):case 10 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("氌@譡@"),CCJJJCC("郣@闣@"),CCJJJCC("兠@譡@幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("宱@屙@")):case 11 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("內@劜@呓@"),CCJJJCC("郣@闣@"),CCJJJCC("幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("宱@屙@")):case 12 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("幭@譡@"),CCJJJCC("卐@佈@"),CCJJJCC("兠@譡@幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("宱@屙@")):case 13 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("孡@呓@"),CCJJJCC("卐@佈@"),CCJJJCC("幯@仸@"),CCJJJCC("戓@叆@"),CCJJJCC("缑@史@"),CCJJJCC("敔@呓@"),CCJJJCC("宱@屙@")):case 14 : CJCJJJC=Array(CCJJJCC("月@劜@炴@"),CCJJJCC("局@氌@"),CCJJJCC("线@刦@"),CCJJJCC("幯@仸@"),CCJJJCC("邶@采@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("宱@屙@")):case 15 : CJCJJJC=Array(CCJJJCC("卐@佈@"),CCJJJCC("盌@独@氌@譡@"),CCJJJCC("卐@佈@"),CCJJJCC("兠@譡@幯@仸@"),CCJJJCC("吇@了@"),CCJJJCC("缑@史@"),CCJJJCC("咣@话@布@"),CCJJJCC("宱@屙@")):case else : CJCJJJC=CJCJJJJ
end select:for CJJJCCJ=0 to Ubound(CJJJCCC):CJJJCCC(CJJJCCJ,0)=CJCJJJJ(CJJJCCJ):CJJJCCC(CJJJCCJ,1)=CJCJJJC(CJJJCCJ):next:for CJJJCCJ=0 to Ubound(CJJJCCC):if CJJJCCC(CJJJCCJ,0)=CCJCCJJ then
CJCCCCC=CJJJCCC(CJJJCCJ,1):exit for
end if:next:End Function::Call CheckRight(15):Dim CJCJJCJ,CJCJJCC,CJCJCJJ:CJCJJCJ=Request.QueryString(CCJJJCC("xs")):CJCJJCC=Request.QueryString(CCJJJCC("p4E")):CJCJCJJ=1:Response.Write(vbCrLf):Response.Write(CCJJJCC("k9E>=m") & vbCrLf):Response.Write(CCJJJCC("k9625m") & vbCrLf):Response.Write(CCJJJCC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CCJJJCC("kE:E=6m徾@琁@桞@桃@k^E:E=6m") & vbCrLf):Response.Write(CCJJJCC("kDEJ=6m") & vbCrLf):Response.Write(CCJJJCC("3@5J[ ,E5[ ,E9[ ,5:G ,L ,7@?E\D:K6i ,`cAIj ,7@?E\72>:=Ji ,Q宆@低@Qj ,N") & vbCrLf):Response.Write(CCJJJCC("E23=6 ,L ,3@C56C\E@Ai ,`AI ,D@=:5 ,R___j ,3@C56C\=67Ei ,`AI ,D@=:5 ,R___j ,N") & vbCrLf):Response.Write(CCJJJCC("E5 ,L ,3@C56C\C:89Ei ,`AI ,D@=:5 ,R___j ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R___j ,N") & vbCrLf):Response.Write(CCJJJCC("]A286 ,L ,H:5E9i ,`f4>j ,>2C8:?\E@Ai ,d_AIj ,N") & vbCrLf):Response.Write(CCJJJCC("3@5J ,L ,>2C8:?i ,_AIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CCJJJCC("R4@G6C ,L ,H:5E9i`f4>j ,N") & vbCrLf):Response.Write(CCJJJCC("R4@G6C0E:E=6 ,L ,7@?E\D:K6i ,acAIj ,7@?E\H6:89Ei ,3@=5j ,7@?E\72>:=Ji ,Q卉@斂@丨@宆@Qj ,>2C8:?\E@Ai ,`d_AIj ,N") & vbCrLf):Response.Write(CCJJJCC("R4@G6C0DEF56?E ,L ,>2C8:?\E@Ai ,a__AIj ,3@C56Ci ,?@?6j ,N") & vbCrLf):Response.Write(CCJJJCC("R4@G6C0DEF56?E ,E5 ,L ,3@C56Ci ,?@?6j ,N") & vbCrLf):Response.Write(CCJJJCC("R4@G6C0DEF56?E ,E9 ,L ,7@?E\72>:=Ji ,Q楲@低@0vqab`aQj ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R___j ,7@?E\H6:89Ei ,?@C>2=j ,N") & vbCrLf):Response.Write(CCJJJCC("R4@G6C052E6 ,L ,>2C8:?\E@Ai ,bd_AIj ,7@?E\D:K6i ,`gAIj ,N") & vbCrLf):Response.Write(CCJJJCC("]A286096256C ,L ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R___j ,7@?E\D:K6i ,`aAIj ,H:5E9i ,`f4>j ,>2C8:?\E@Ai ,d_AIj ,A286\3C62<\367@C6i ,2=H2JDj ,N") & vbCrLf):Response.Write(CCJJJCC("]A286096256C0E:E=6 ,L ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CCJJJCC("]A286096256C0A286?F> ,L ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CCJJJCC("A ,L ,=:?6\96:89Ei ,`d_Tj ,E6IE\:?56?Ei ,a6>j ,N") & vbCrLf):Response.Write(CCJJJCC("R?@E:46 ,L ,E6IE\2=:8?i ,=67Ej ,3@C56Ci ,`AI ,D@=:5 ,Rghcc`uj ,324<8C@F?5iRuuuurrj ,A255:?8icAIj ,>2C8:?i ,dAIj ,7@?E\D:K6i ,`aAIj ,N") & vbCrLf):Response.Write(CCJJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CCJJJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCJJJCC("R?@E:46 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCJJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CCJJJCC("k^9625m") & vbCrLf):Response.Write(CCJJJCC("k3@5Jm") & vbCrLf):Response.Write(CCJJJCC("k5:G ,:5lQ?@E:46Qmk:>8 ,DC4lQ]]^]]^:>286D^3F=3]8:7Q ,H:5E9lQa_Q ,96:89ElQa_Q ,2=:8?lQ23D>:55=6Qm叆@惀@揋@礵@：,甬@争@罌@顰@扎@卫@癿@牴@殅@怢@，,丵@亁@俘@讼@扎@卫@敃@林@笡@吃@曻@刘@讹@讜@襼@氽@，,诲@患@圣@逄@拤@“,扎@卫@”,乆@剈@，,挄@煢@丆@囹@迖@衇@“,顰@靝@讹@罩@”,，,谝@谝@吃@佗@。,k3Cm") & vbCrLf):Response.Write(CCJJJCC(" ,k:>8 ,DC4lQ]]^]]^DEF56?E^:>286D^AC:?ED6EE:?8];A8Q ,H:5E9lQbhbQ ,96:89ElQbfgQ ,9DA246lQ`_Q ,2=:8?lQ23D>:55=6Qm ,k2 ,9C67lQ;2G2D4C:AEijQ ,@?r=:4<lQ;2G2D4C:AEiD6=7]AC:?EWXQmk:>8 ,DC4lQ]]^]]^DEF56?E^:>286D^AC:?E];A8Q ,2=ElQ扎@卫@Q ,H:5E9lQ`baQ ,96:89ElQbfQ ,3@C56ClQ_Qmk^2mk^5:Gm") & vbCrLf):Response.Write(CCJJJCC("kP\\ ,导@靝@廻@姆@ ,\\m") & vbCrLf)::set CCJJJJ=CJCCCJ.execute(CCJJJCC("D6=64E ,E@A ,` ,C62=?2>6[D6I[286[?F>36C ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CJCJJCJ):Response.Write(vbCrLf):Response.Write(CCJJJCC("k5:G ,:5lQ4@G6CQm") & vbCrLf):Response.Write(CCJJJCC(" ,k5:G ,:5lQ4@G6C0E:E=6Qm")):Response.Write  CJJCCCJ(10):Response.Write(CCJJJCC("k3Cm") & vbCrLf):Response.Write(CCJJJCC(" ,k3Cm") & vbCrLf):Response.Write(CCJJJCC(" ,徾@琁@桞@桃@k^5:Gm") & vbCrLf):Response.Write(CCJJJCC(" ,kE23=6 ,H:5E9lQa__Q ,46==A255:?8lQbQ ,:5lQ4@G6C0DEF56?EQm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,H:5E9lQd_Q ,2=:8?lQC:89EQm姎@合@：,k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE9m")):Response.Write  CCJJJJ(0):Response.Write(CCJJJCC("k^E9m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQC:89EQm怢@刦@：,k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE9m")):Response.Write  IIf(CCJJJJ(1),CCJJJCC("甲@"),CCJJJCC("奮@")):Response.Write(CCJJJCC("k^E9m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQC:89EQm幯@齿@：,k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE9m")):Response.Write  CCJJJJ(2):Response.Write(CCJJJCC("k^E9m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJCCCCC(CCJJJCC("}F>36C")):Response.Write(CCJJJCC("：,k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE9m")):Response.Write  CCJJJJ(3):Response.Write(CCJJJCC("k^E9m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJJCC(" ,k5:G ,:5lQ4@G6C052E6Qm")):Response.Write  CCJJJJC:Response.Write(CCJJJCC("k^5:Gm") & vbCrLf):Response.Write(CCJJJCC("k^5:Gm") & vbCrLf):Response.Write(CCJJJCC("kP\\ ,导@靝@绎@杚@ ,\\m") & vbCrLf):Response.Write(CCJJJCC("kP\\ ,浆@诐@讫@彐@ ,\\m") & vbCrLf)::set CCJJJJ=CJCCCJ.execute(CCJJJCC("D6=64E ,=3?2>649[52E6E:>6[E62496C[6IA=2:? ,7C@> ,G0E6DE ,H96C6 ,G2=:5l` ,2?5 ,>6>36Cl") & CJCJJCJ & CCJJJCC(" ,@C56C ,3J ,:5")):while not CCJJJJ.eof:Response.Write(vbCrLf):Response.Write(CCJJJCC("kP\\ ,顰@眄@ ,\\m") & vbCrLf):Response.Write(CCJJJCC("k5:G ,4=2DDlQA286096256CQm") & vbCrLf):Response.Write(CCJJJCC(" ,k5:G ,4=2DDlQA286096256C0E:E=6Qm")):Response.Write  CJJCCCJ(10):Response.Write(CCJJJCC("k^5:Gm") & vbCrLf):Response.Write(CCJJJCC(" ,k5:G ,4=2DDlQA286096256C0A286?F>Qm笧@ ,")):Response.Write  CJCJCJJ:Response.Write(CCJJJCC(" ,顰@k^5:Gm") & vbCrLf):Response.Write(CCJJJCC("k^5:Gm") & vbCrLf):Response.Write(CCJJJCC("kE23=6 ,46==A255:?8lQcQ ,46==DA24:?8lQ_Q ,4=2DDlQA286Qm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm释@　,　,衣@k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,4@=DA2?lQbQ ,2=:8?lQ46?E6CQm")):Response.Write  CCJJJJ(0):Response.Write(CCJJJCC("k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm浆@诐@旱@闯@k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJJJ(1):Response.Write(CCJJJCC("k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm挂@寷@敔@布@k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJJJ(2):Response.Write(CCJJJCC("U?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,4@=DA2?lQcQm")):Response.Write  CCJJJCC("kAm") & replace(CCJJJJ(3) & "",vbcrlf,CCJJJCC("kAm")):Response.Write(CCJJJCC("k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC("k^E23=6m") & vbCrLf)::CCJJJJ.movenext:CJCJCJJ=CJCJCJJ+1:wend:set CCJJJJ=CJCCCJ.execute(CCJJJCC("D6=64E ,4@?DF=E2?E[52E6E:>6[4@?E6?E ,7C@> ,G0KI ,H96C6 ,>6>36Cl") & CJCJJCJ & CCJJJCC(" ,@C56C ,3J ,:5")):while not CCJJJJ.eof:Response.Write(vbCrLf):Response.Write(CCJJJCC("kP\\ ,咣@话@讫@彐@ ,\\m") & vbCrLf):Response.Write(CCJJJCC("kP\\ ,顰@眄@ ,\\m") & vbCrLf):Response.Write(CCJJJCC("k5:G ,4=2DDlQA286096256CQm") & vbCrLf):Response.Write(CCJJJCC(" ,k5:G ,4=2DDlQA286096256C0E:E=6Qm")):Response.Write  CJJCCCJ(10):Response.Write(CCJJJCC("k^5:Gm") & vbCrLf):Response.Write(CCJJJCC(" ,k5:G ,4=2DDlQA286096256C0A286?F>Qm笧@ ,")):Response.Write  CJCJCJJ:Response.Write(CCJJJCC(" ,顰@k^5:Gm") & vbCrLf):Response.Write(CCJJJCC("k^5:Gm") & vbCrLf):Response.Write(CCJJJCC("kE23=6 ,46==A255:?8lQcQ ,46==DA24:?8lQ_Q ,4=2DDlQA286Qm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,4@=DA2?lQcQ ,2=:8?lQ46?E6CQm徾@琁@咣@话@讫@彐@k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm咣@话@布@k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJJJ(0):Response.Write(CCJJJCC("U?3DAjk^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm咣@话@旱@闯@k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJJJ(1):Response.Write(CCJJJCC("k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC(" ,kECm") & vbCrLf):Response.Write(CCJJJCC(" ,kE5 ,4@=DA2?lQcQm")):Response.Write  replace(CCJJJJ(2) & "",vbcrlf,CCJJJCC("k3Cm")):Response.Write(CCJJJCC("k^E5m") & vbCrLf):Response.Write(CCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCC("k^E23=6m") & vbCrLf)::CCJJJJ.movenext:CJCJCJJ=CJCJCJJ+1:wend:function CCJJJJC():dim CJCJCJC,CJJJCCJ:CJCJCJC=CCJJJCC("〇,M一,M亇@M丄@M囖@M亏@M全@M七,M兦@M乘@M匼@M匼@一,M匼@亇@"):CJCJCJC=split(CJCJCJC,CCJJJCC("M")):CCJJJJC=Year(Date):for CJJJCCJ=0 to 9:CCJJJJC=replace(CCJJJJC,CJJJCCJ,CJCJCJC(CJJJCCJ)):next:CCJJJJC=CCJJJJC & CCJJJCC("幯@") & CJCJCJC(Month(Date)) & CCJJJCC("會@"):end function:Response.Write(vbCrLf):Response.Write(CCJJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCJJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJJCC(ByVal CCJJJCJ)
Dim CJCJCCJ, CJJJCCJ, CJCJCCC
CCJJJCJ = Replace(CCJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCJ = 1 To Len(CCJJJCJ)
If CJJJCCJ <> CJCJCCC Then
CJCJCCJ = AscW(Mid(CCJJJCJ, CJJJCCJ, 1))
If CJCJCCJ >= 33 And CJCJCCJ <= 79 Then
CCJJJCC = CCJJJCC & Chr(CJCJCCJ + 47)
ElseIf CJCJCCJ >= 80 And CJCJCCJ <= 126 Then
CCJJJCC = CCJJJCC & Chr(CJCJCCJ - 47)
Else
CJCJCCC = CJJJCCJ + 1
If Mid(CCJJJCJ, CJCJCCC, 1) = Chr(64) Then CCJJJCC = CCJJJCC & ChrW(CJCJCCJ + 5) Else CCJJJCC = CCJJJCC & Mid(CCJJJCJ, CJJJCCJ, 1)
End If
End If
Next
End Function
%>