<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJCC, CJJJCJJ,CJJJCJC, CJJJCCJ, CJJJCCC:Set CJJJJCC = server.CreateObject(CCCCCCJ("ps~sq]r@??64E:@?")):CJJJJCC.open Application(CCCCCCJ("r@??64E:@?$EC:?8")):Set CJJJCJJ=CJJJJCC::Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC,CJCCJJJ,CJCCJJC:Dim CJCCJCJ:CJCCJCJ=Trim(Request.Cookies(CCCCCCJ("!$*|t|qt#"))):if CJCCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJJ>0 then
CJJJCCC=CCCCCCJ("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") & CJJCJJC & CCCCCCJ("V ,2?5 ,:5l") & CJJCJJJ
set CJJJCJC=CJJJJCC.execute(CJJJCCC):If CJJJCJC.EOF Then
Call ClearMemberCookie
Else
CJJCJCJ=CJJJCJC(2) & "":CJJCJCC=CJJJCJC(3):CJJCCJJ=CJJJCJC(5):CJJCCJC=CJJJCJC(6):CJJCCCJ=CJJJCJC(9):CJJCCCC=CJJJCJC(15):CJCJJJC=CJJJCJC(0):CJCCJJJ=CJJJCJC(1):CJCJCCC=CJJJCJC(11) & "":CJCJJCJ=CJJJCJC(10) & "":CJCJJJJ=CJJJCJC(12):CJCJJCC=CJJJCJC(14):CJCJCJJ=CJJJCJC(13):CJCJCJC=CJJJCJC(7) & "":CJCJCCJ=CJJJCJC(4):CJCCJJC=CJJJCJC(8):if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJCCCJ) or CJJCCCJ=0 then CJJCCCJ=CJJCJCC
if isnull(CJCJCCJ) then CJCJCCJ=0
if isnull(CJJCCJJ) then CJJCCJJ=0
if instr(CCCCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJC)>0 then Call RedirectMessage(CCCCCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJJJ,CJJCJJC)
End IF
end if:::Sub CheckLogined():if CJJCJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJCC:CJCCJCC=trim(request.QueryString(CCCCCCJ("D49@@="))):if isnumeric(CJCCJCC) then
response.Redirect CCCCCCJ("^>^G2?E^R^D49@@=^") & CJCCJCC & CCCCCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCCCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCCCJ("!$*|t|qt#"))="":CJJCJJJ=0:CJJCCJC=0:CJJCJJC=Empty:CJJCCJJ=0:CJJCCCC=0:CJJCCCJ=0:CJJCJCC=0:CJCJJJC=False:CJCCJJJ=False:CJCCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:CJCCCJJ=split(CJCCJCJ,CCCCCCJ("]")):if ubound(CJCCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJJ(0)) or len(CJCCCJJ(1))<>32 or len(CJCCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCCJC=CJCCCJJ(1):for CJCCCCJ=1 to len(CJCCCJC):CJCCCCC=mid(CJCCCJC,CJCCCCJ,1):if isnumeric(CJCCCCC) then CCJJJJJ=CCJJJJJ & CJCCCCC
if len(CCJJJJJ)=7 then exit for
next:CJCCCJC=CJCCCJJ(2):if CCJJJJJ<>mid(CJCCCJC,6,7) then
Call ClearMemberCookie
else
CJCCCCC=mid(CJCCCJC,18,10)/2:if CJCCCCC<DateDiff(CCCCCCJ("D"), CCCCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJJ=Clng(CJCCCJJ(0)):CJJCJJC=CJCCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCCC,CJJJJJJJ):dim CJCCCCJ,CJCCCCC,CCJJJJJ:for CJCCCCJ=1 to len(CJJJJJJJ):CJCCCCC=mid(CJJJJJJJ,CJCCCCJ,1):if isnumeric(CJCCCCC) then CCJJJJJ=CCJJJJJ & CJCCCCC
if len(CCJJJJJ)=7 then exit for
next:CCJJJJJ=CCCCCCC & CCCCCCJ("]") & CJJJJJJJ & CCCCCCJ("]") & Fix(10000*(Rnd+1)) & CCJJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCCCJ("D"), CCCCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCCJ("!$*|t|qt#"))=CCJJJJJ:End Sub:::Function IIf(CJJJJJJC, CJJJJJCJ, CJJJJJCC):if isnull(CJJJJJJC) or isempty(CJJJJJJC) then
IIf = CJJJJJCC
elseif CJJJJJJC Then
IIf = CJJJJJCJ
Else
IIf = CJJJJJCC
end if:End Function:Const CCCJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJJCJJ,CJJJJCJC):dim CJCCCJJ:CJCCCJJ=CJJJJCJJ & "=" & CJJJJCJC & CCCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCCJ("$6E\r@@<:6"),CJCCCJJ):End Sub:::::::Function CCCJCJC(CCCJJCJ):if isnull(CCCJJCJ) or trim(CCCJJCJ)="" or not isnumeric(CCCJJCJ) then
CCCJCJC=false
else
Dim CCJJJJC:Set CCJJJJC = New RegExp:CCJJJJC.Pattern = CCCCCCJ("/-5ZS"):CCJJJJC.IgnoreCase = True:CCCJCJC = CCJJJJC.test(CCCJJCJ):set CCJJJJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJCCJ=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CCJCJJJ.close : set CCJCJJJ=nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CJJJCJC.Close : Set CJJJCJC=Nothing:CCCCJCJ.Close : Set CCCCJCJ = Nothing:CJJJJCC.Close : Set CJJJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCCJ("!$*0|6DD286"),server.URLEncode(CJJJJCCJ)):Response.Redirect CCCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCCJCC(ByVal CCCCCJJ,style):if not isdate(CCCCCJJ) then
CCCCJCC=CCCCCJJ:exit function
end if:dim CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC:CCCCCJJ=cdate(CCCCCJJ):CCJJJCJ=Year(CCCCCJJ):CCJJJCC=Month(CCCCCJJ):CCJJCJJ=Day(CCCCCJJ):select case style:case 0:CCCCJCC=CCJJJCJ & CCCCCCJ("\") & right(0 & CCJJJCC,2) & CCCCCCJ("\") & right(0 & CCJJCJJ,2):case 1:CCCCJCC=CCJJJCJ & right(0 & CCJJJCC,2) & right(0 & CCJJCJJ,2):case 2:CCCCJCC=right(CCJJJCJ,2) & CCCCCCJ("\") & right(0 & CCJJJCC,2) & CCCCCCJ("\") & right(0 & CCJJCJJ,2):case 3:CCCCJCC=CCJJJCJ & CCCCCCJ("\") & right(0 & CCJJJCC,2):case 4:CCCCJCC=right(0 & CCJJJCC,2) & CCCCCCJ("\") & right(0 & CCJJCJJ,2):case 5:CCCCJCC=right(0 & CCJJCJJ,2):case 6:CCCCJCC=CCJJJCJ & CCCCCCJ("幯@") & right(0 & CCJJJCC,2) & CCCCCCJ("會@") & right(0 & CCJJCJJ,2) & CCCCCCJ("无@"):case else
CCCCJCC=CCCCCJJ:end select:End Function::::::::::::::::::::::dim CJCCJCC:CJJJCCC=Request.ServerVariables(CCCCCCJ("!p%w0x}u~")):if instr(CJJJCCC,CCCCCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJJC and not CJCCJJJ then Call RedirectMessage(CCCCCCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCCJCC=CJJCCCJ
elseif instr(CJJJCCC,CCCCCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJCCC,CCCCCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJCC=CJJCCCJ
elseif instr(CJJJCCC,CCCCCCJ("^D49@@="))>0 then
CJCCJCC=Request.QueryString(CCCCCCJ("D49@@=")):if not CCCJCJC(CJCCJCC) then CJCCJCC=Request.QueryString(CCCCCCJ("F"))
if not CCCJCJC(CJCCJCC) then CJCCJCC=Request.QueryString(CCCCCCJ("D4"))
if not CCCJCJC(CJCCJCC) then Call RedirectMessage(CCCCCCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCCJCC=csng(CJCCJCC)
end if:if CJCCJCC=0 then Call RedirectMessage(CCCCCCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJJCCJ:Call SetConfig:Sub SetConfig():dim CCJJCCC,CCJCJJJ:CJJJCCC=CCCCCCJ("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") & CJCCJCC:set CCJCJJJ=CJJJJCC.execute(CJJJCCC):if CCJCJJJ.eof then Call RedirectMessage(CCCCCCJ("患@W") & CJJCJJJ & CCCCCCJ("X戻@圣@癿@卐@佈@W") & CJCCJCC & CCCCCCJ("X朥@批@别@。,"))
ReDim CCJJCCC(61):CCJJCCC(0)=CCJCJJJ(CCCCCCJ(";:2@H6:")) & "":CCJJCCC(1)=CCJCJJJ(CCCCCCJ("EJA6")):CCJJCCC(2)=CCJCJJJ(CCCCCCJ("D>D")):CCJJCCC(3)=CCJCJJJ(CCCCCCJ("4FDE@>8C@FA")) & "":CCJJCCC(4)=CCJCJJJ(CCCCCCJ("D:5632C0@E96C")) & "":CCJJCCC(5)=IIf(isnull(CCJCJJJ(CCCCCCJ("E6DEC6DF=EG:6H"))),0,CCJCJJJ(CCCCCCJ("E6DEC6DF=EG:6H"))):CCJJCCC(6)=CCJCJJJ(CCCCCCJ("K:IF?E:>6")):CCJJCCC(7)=CCJCJJJ(CCCCCCJ("766")):CCJJCCC(8)=CCJCJJJ(CCCCCCJ("C6E6DE52J")):CCJJCCC(9)=CCJCJJJ(CCCCCCJ("6IA:C652E6")):CCJJCCC(10)=CCJCJJJ(CCCCCCJ("E:E=6")):CCJJCCC(11)=CCJCJJJ(CCCCCCJ(":?EC@")) & "":CCJJCCC(12)=CCJCJJJ(CCCCCCJ("A:4EFC6")) & "":CCJJCCC(13)=CCJCJJJ(CCCCCCJ("72>:=J")):CCJJCCC(14)=CCJCJJJ(CCCCCCJ("4@AJC:89E")) & "":CCJJCCC(15)=IIf(isnull(CCJCJJJ(CCCCCCJ("D6>6DE6C0DE2CE052E6"))),CCCCCCJ("`h__\`\`"),CCJCJJJ(CCCCCCJ("D6>6DE6C0DE2CE052E6"))):CCJJCCC(16)=IIf(isnull(CCJCJJJ(CCCCCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJCJJJ(CCCCCCJ("K:IF?0E:>6D09:89=:89E"))):CCJJCCC(17)=CCJCJJJ(CCCCCCJ("4@?E24E")) & "":CCJJCCC(18)=CCJCJJJ(CCCCCCJ("D2?5E23=6")):CCJJCCC(19)=CCJCJJJ(CCCCCCJ("4C:D:D")):CCJJCCC(20)=CCJCJJJ(CCCCCCJ("JJ52E6")):CCJJCCC(21)=CCJCJJJ(CCCCCCJ("BB")):CCJJCCC(22)=CCJCJJJ(CCCCCCJ("JFJF60D>D0EA=")) & "":CCJJCCC(23)=CCJCJJJ(CCCCCCJ("JFJF60E6DE0=3")) & "":CCJJCCC(25)=CCJCJJJ(CCCCCCJ("6IA6CE")):CCJJCCC(26)=CCJCJJJ(CCCCCCJ(">@5:?7@")):CCJJCCC(27)=CCJCJJJ(CCCCCCJ("9@>6A286E@AA:4EFC6")) & "":CCJJCCC(28)=CCJCJJJ(CCCCCCJ("4C:D:D=3")):CCJJCCC(29)=IIf(CCJCJJJ(CCCCCCJ("4C:D:D@=5")),False,True):CCJJCCC(30)=CCJCJJJ(CCCCCCJ("8C@FA8F:52?46")):CCJJCCC(31)=CCJCJJJ(CCCCCCJ("3:@7665324<")):CCJJCCC(32)=CCJCJJJ(CCCCCCJ("<6JDEC")):CCJJCCC(33)=CCJCJJJ(CCCCCCJ("=@8@")) & "":CCJJCCC(34)=CCJCJJJ(CCCCCCJ("K:46")):CCJJCCC(35)=IIf(CCJCJJJ(CCCCCCJ(":D?6H")),True,False):CCJJCCC(36)=121:CCJJCCC(37)=111:CCJJCCC(38)=160:CCJJCCC(39)=CCJCJJJ(CCCCCCJ("8F6DE3@@<")):CCJJCCC(40)=CCJCJJJ(CCCCCCJ("75D")):CCJJCCC(42)=CCJCJJJ(CCCCCCJ("9@>6=@8:?")):CCJJCCC(43)=CCJCJJJ(CCCCCCJ("K:IF?0?6657665324<")):CCJJCCC(44)=CCJCJJJ(CCCCCCJ("K:IF?0E:>6D0=:>:E")):CCJJCCC(45)=CCJCJJJ(CCCCCCJ("4@>A=6E60:?7@")):CCJJCCC(46)=CCJCJJJ(CCCCCCJ("E6DE:?EC@")) & "":CCJJCCC(47)=IIf(isnull(CCJCJJJ(CCCCCCJ("JFJF60367@C60E:>6"))),0,CCJCJJJ(CCCCCCJ("JFJF60367@C60E:>6"))):CCJJCCC(49)=CCJCJJJ(CCCCCCJ("D>D0C646:G6C")):CCJJCCC(50)=CCJCJJJ(CCCCCCJ("D>D0D:8?")) & "":CCJJCCC(52)=CCJCJJJ(CCCCCCJ("JFJF602CC2?86")):CCJJCCC(53)=IIf(isnull(CCJCJJJ(CCCCCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJCJJJ(CCCCCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJCCC(54)=CCJCJJJ(CCCCCCJ("9:560=30@FE@7286")):CCJJCCC(55)=CCJCJJJ(CCCCCCJ("JFJF60E6DE052JD")):CCJJCCC(56)=CCJCJJJ(CCCCCCJ("JFJF60H66<0=:>:E")):CCJJCCC(57)=CCJCJJJ(CCCCCCJ("JFJF604964<65")):CCJJCCC(58)=CCJCJJJ(CCCCCCJ("K:IF?0?6657665324<0?6IE")):CCJJCCC(59)=CCJCJJJ(CCCCCCJ("4964<?6HDEF56?E")):CCJJCCC(60)=CCJCJJJ(CCCCCCJ("K:IF?04=@D6052E6")):CCJCJJJ.close : set CCJCJJJ=nothing:if isNull(CCJJCCC(8)) or CCJJCCC(8)="" then CCJJCCC(8)=0
if isdate(CCJJCCC(9)) then
CCJJCCC(9)=cdate(CCJJCCC(9)):if CCJJCCC(9)<Date then Call RedirectMessage(CCCCCCJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJJCCC(9) & CCCCCCJ("X巭@迂@。,"))
end if:if not CCCJCJC(CCJJCCC(20)) then CCJJCCC(20)=7
select case CCJJCCC(1):case 1,2,16:CCJJCCC(36)=159:case 4,5,6,10,11:CCJJCCC(36)=190:CCJJCCC(37)=178:CCJJCCC(38)=191:case 7,13:CCJJCCC(36)=164:CCJJCCC(37)=178:CCJJCCC(38)=179:end select:CCJJCCJ=CCJJCCC:End Sub:Function CCCCJJC(CJJJJCCC):dim CCJJCCC(7,1),CJCCCCJ,CCJCJJC,CCJCJCJ:CCJCJJC=Array(CCCCCCJ("$49@@="),CCCCCCJ("$EF56?E"),CCCCCCJ("s6AE"),CCCCCCJ("vC256"),CCCCCCJ("r=2DD>2E6"),CCCCCCJ("}F>36C"),CCCCCCJ("%62496C"),CCCCCCJ("!2C6?E")):select case CCJJCCJ(1):case 1,2 : CCJCJCJ=Array(CCCCCCJ("孡@栜@"),CCCCCCJ("孡@甚@"),CCCCCCJ("珨@红@"),CCCCCCJ("幯@红@"),CCCCCCJ("吇@孡@"),CCCCCCJ("孡@史@"),CCCCCCJ("敔@布@"),CCCCCCJ("宱@镺@")):case 3,16 : CCJCJCJ=Array(CCCCCCJ("孡@栜@"),CCCCCCJ("孡@甚@"),CCCCCCJ("陝@糶@"),CCCCCCJ("幯@红@"),CCCCCCJ("吇@孡@"),CCCCCCJ("孡@史@"),CCCCCCJ("敔@布@"),CCCCCCJ("宱@镺@")):case 4 : CCJCJCJ=Array(CCCCCCJ("匶@陝@"),CCCCCCJ("杠@论@耀@"),CCCCCCJ("卐@佈@"),CCCCCCJ("幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("匶@甚@"),CCCCCCJ("宱@屙@")):case 5 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("呓@巠@"),CCCCCCJ("郣@闣@"),CCCCCCJ("幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("呓@巠@"),CCCCCCJ("宱@屙@")):case 6 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("杠@论@耀@"),CCCCCCJ("线@刦@"),CCCCCCJ("幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("宱@屙@")):case 7 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("宓@兰@"),CCCCCCJ("郣@闣@"),CCCCCCJ("幯@仸@"),CCCCCCJ("戓@叆@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("宱@屙@")):case 8 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("杠@论@耀@"),CCCCCCJ("卐@佈@"),CCCCCCJ("兠@聇@幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("酈@偱@")):case 9 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("敔@布@"),CCCCCCJ("卐@佈@"),CCCCCCJ("幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("酈@偱@")):case 10 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("氌@譡@"),CCCCCCJ("郣@闣@"),CCCCCCJ("兠@譡@幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("宱@屙@")):case 11 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("內@劜@呓@"),CCCCCCJ("郣@闣@"),CCCCCCJ("幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("宱@屙@")):case 12 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("幭@譡@"),CCCCCCJ("卐@佈@"),CCCCCCJ("兠@譡@幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("宱@屙@")):case 13 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("孡@呓@"),CCCCCCJ("卐@佈@"),CCCCCCJ("幯@仸@"),CCCCCCJ("戓@叆@"),CCCCCCJ("缑@史@"),CCCCCCJ("敔@呓@"),CCCCCCJ("宱@屙@")):case 14 : CCJCJCJ=Array(CCCCCCJ("月@劜@炴@"),CCCCCCJ("局@氌@"),CCCCCCJ("线@刦@"),CCCCCCJ("幯@仸@"),CCCCCCJ("邶@采@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("宱@屙@")):case 15 : CCJCJCJ=Array(CCCCCCJ("卐@佈@"),CCCCCCJ("盌@独@氌@譡@"),CCCCCCJ("卐@佈@"),CCCCCCJ("兠@譡@幯@仸@"),CCCCCCJ("吇@了@"),CCCCCCJ("缑@史@"),CCCCCCJ("咣@话@布@"),CCCCCCJ("宱@屙@")):case else : CCJCJCJ=CCJCJJC
end select:for CJCCCCJ=0 to Ubound(CCJJCCC):CCJJCCC(CJCCCCJ,0)=CCJCJJC(CJCCCCJ):CCJJCCC(CJCCCCJ,1)=CCJCJCJ(CJCCCCJ):next:for CJCCCCJ=0 to Ubound(CCJJCCC):if CCJJCCC(CJCCCCJ,0)=CJJJJCCC then
CCCCJJC=CCJJCCC(CJCCCCJ,1):exit for
end if:next:End Function::If Request.ServerVariables(CCCCCCJ("#t""&t$%0|t%w~s"))=CCCCCCJ("!~$%") then
dim CCJCJCC,CCJCCJJ,CCJCCJC:CCJCCJJ=request.form(CCCCCCJ("E:>6:5")):set CJJJCJC=CJJJJCC.execute(CCCCCCJ("D6=64E ,E@A ,` ,E96E:>6[>2IDEF56?E ,7C@> ,:?E6CG:6H0E:>6 ,H96C6 ,:5l") & CCJCCJJ):CCJCCJC=CJJJCJC(0):CCJCJCC=CJJJCJC(1):set CJJJCJC=CJJJJCC.execute(CCCCCCJ("D6=64E ,4@F?EW:5X ,7C@> ,:?E6CG:6H0:?G:E6 ,H96C6 ,E:>6:5l") & CCJCCJJ):if CCJCJCC>0 and CJJJCJC(0)>=CCJCJCC then
response.write CCCCCCJ("寴@丈@赲@，,诠@旱@殰@巭@绊@边@别@曻@夢@论@调@亵@敫@！,")
else
CJJJCCC=CCCCCCJ("FA52E6 ,:?E6CG:6H0:?G:E6 ,D6E") & CCCCCCJ(" ,DE2EFDla") & CCCCCCJ("[52E6lV") & request.form(CCCCCCJ("5E")) & CCCCCCJ("V") & CCCCCCJ("[E96E:>6lV") & CCJCCJC & CCCCCCJ("V") & CCCCCCJ("[E:>6:5l") & CCJCCJJ  & CCCCCCJ(" ,H96C6 ,:5l") & request.form(CCCCCCJ(":?G:E6:5"))
CJJJJCC.execute CJJJCCC
end if:Call ConnClose:response.end
end if:Response.Write(vbCrLf):Response.Write(CCCCCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCCJ("k9625m") & vbCrLf):Response.Write(CCCCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCCJ("kE:E=6m")):Response.Write  CCJJCCJ(10):Response.Write(CCCCCCJ("k^E:E=6m") & vbCrLf):Response.Write(CCCCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCCCCJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCCCJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CCCCCCJ("E23=6]2>\E23=6 ,3FEE@? ,L ,>2C8:?\3@EE@>i ,bAIj ,N") & vbCrLf):Response.Write(CCCCCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCCJ("k^9625m") & vbCrLf):Response.Write(CCCCCCJ("k3@5Jm") & vbCrLf):Response.Write(CCCCCCJ("kP\\顰@夯@\\m") & vbCrLf):Response.Write(CCCCCCJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CCCCCCJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm论@调@k^9`m") & vbCrLf):Response.Write(CCCCCCJ(" ,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(CCCCCCJ("k^96256Cm") & vbCrLf):Response.Write(CCCCCCJ("k3Cm") & vbCrLf):Response.Write(CCCCCCJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):set CJJJCJC=CJJJJCC.execute(CCCCCCJ("D6=64E ,E@A ,` ,:5[52E6[E96E:>6[DE2EFD ,7C@> ,:?E6CG:6H0:?G:E6 ,H96C6 ,>6>36Cl") & CJJCJJJ & CCCCCCJ(" ,@C56C ,3J ,52E6E:>6 ,56D4")):if CJJJCJC.eof then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\2=6CE ,2>\2=6CE\D64@?52CJQm患@彎@剈@沜@朄@论@调@俜@恪@！,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
elseif CJJJCJC(3)=2 then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\2=6CE ,2>\2=6CE\DF446DDQm患@硩@讟@癿@论@调@旱@闯@丵@：, ,")):Response.Write  CJJJCJC(1) & CCCCCCJ(" ,") & CJJJCJC(2):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
else
dim CCJCCCJ:CCJCCCJ=CJJJCJC(0):CJJJJCC.execute CCCCCCJ("FA52E6 ,:?E6CG:6H0:?G:E6 ,D6E ,DE2EFDl` ,H96C6 ,:5l") & CCJCCCJ:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\2=6CE ,2>\2=6CE\D64@?52CJQm诲@佛@逄@拤@丆@划@旱@闯@乆@一,迖@衇@硩@讟@，,幱@凁@旱@别@咣@话@丨@徾@靝@调@！,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):dim CJCCCCJ,CCJCCCC,CCCJJJJ:CCJCCCC=Array(CCCCCCJ("昚@朚@夤@"),CCCCCCJ("昚@朚@一,"),CCCCCCJ("昚@朚@亇@"),CCCCCCJ("昚@朚@丄@"),CCCCCCJ("昚@朚@囖@"),CCCCCCJ("昚@朚@亏@"),CCCCCCJ("昚@朚@全@")):for CJCCCCJ=1 to 7:CCCJJJJ=Date+CJCCCCJ:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQ ,G2=:8?lQE@AQm")):Response.Write  CCCCJCC(CCCJJJJ,0):Response.Write(CCCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQ ,G2=:8?lQE@AQm")):Response.Write  CCJCCCC(weekday(CCCJJJJ)-1):Response.Write(CCCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCCJ(" ,kE5m")):set CJJJCJC=CJJJJCC.execute(CCCCCCJ("D6=64E ,:5[E96E:>6 ,7C@> ,:?E6CG:6H0E:>6 ,H96C6 ,>6>36CEJA6l") & CJJCCCJ & CCCCCCJ(" ,2?5 ,H66<52Jl") & weekday(CCCJJJJ)-1):while not CJJJCJC.eof:response.write CCCCCCJ("k3FEE@? ,EJA6lV3FEE@?V ,4=2DDlV2>\3E? ,2>\3E?\D64@?52CJ ,2>\C25:FD ,2>\3E?\IDV ,52E2\:?G:E6:5lV") & CCJCCCJ & CCCCCCJ("V ,52E2\E:>6:5lV") & CJJJCJC(0) & CCCCCCJ("V ,52E2\52E6lV") & CCCCJCC(CCCJJJJ,0) & CCCCCCJ("Vmk: ,4=2DDlV2>\:4@?\4=@4<\@Vmk^:m ,") & CJJJCJC(1) & CCCCCCJ("k^3FEE@?mk3Cm")
CJJJCJC.movenext:wend:Response.Write(CCCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^2>2K6F:]5:2=@8]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCJ(" ,SWV3FEE@?,52E2\:?G:E6:5.VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCJ(" ,G2C ,S3E?lSWE9:DX") & vbCrLf):Response.Write(CCCCCCJ(" ,p|&x]5:2=@8]4@?7:C>WL") & vbCrLf):Response.Write(CCCCCCJ(" ,4@?E6?EiV患@硩@宙@襼@硩@讟@诠@旱@闯@别@咣@话@丨@徾@迖@衇@论@调@吒@？,V[") & vbCrLf):Response.Write(CCCCCCJ(" ,@?r@?7:C>i7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCJ(" ,S]A@DEWVV[L:?G:E6:5iS3E?]52E2WV:?G:E6:5VX[E:>6:5iS3E?]52E2WVE:>6:5VX[5EiS3E?]52E2WV52E6VXN[7F?4E:@?W52E2XL") & vbCrLf):Response.Write(CCCCCCJ(" ,:7W52E2lllVVXL=@42E:@?]C6=@25WXN") & vbCrLf):Response.Write(CCCCCCJ(" ,6=D6Lp|&x]5:2=@8]2=6CEWL4@?E6?Ei52E2NXN") & vbCrLf):Response.Write(CCCCCCJ(" ,NX") & vbCrLf):Response.Write(CCCCCCJ(" ,N") & vbCrLf):Response.Write(CCCCCCJ(" ,NX") & vbCrLf):Response.Write(CCCCCCJ(" ,NX") & vbCrLf):Response.Write(CCCCCCJ("NX") & vbCrLf):Response.Write(CCCCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCCJ=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJC.Close:Set CJJJCJC=Nothing:CJJJJCC.Close:Set CJJJJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCCJ(ByVal CCCCCJC)
Dim CCCJJJC, CJCCCCJ, CCCJJCJ
CCCCCJC = Replace(CCCCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCCJ = 1 To Len(CCCCCJC)
If CJCCCCJ <> CCCJJCJ Then
CCCJJJC = AscW(Mid(CCCCCJC, CJCCCCJ, 1))
If CCCJJJC >= 33 And CCCJJJC <= 79 Then
CCCCCCJ = CCCCCCJ & Chr(CCCJJJC + 47)
ElseIf CCCJJJC >= 80 And CCCJJJC <= 126 Then
CCCCCCJ = CCCCCCJ & Chr(CCCJJJC - 47)
Else
CCCJJCJ = CJCCCCJ + 1
If Mid(CCCCCJC, CCCJJCJ, 1) = Chr(64) Then CCCCCCJ = CCCCCCJ & ChrW(CCCJJJC + 5) Else CCCCCCJ = CCCCCCJ & Mid(CCCCCJC, CJCCCCJ, 1)
End If
End If
Next
End Function
%>