<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJ, CJJJJC,CJJJCJ, CJJJCC, CJJCJJ:Set CJJJJJ = server.CreateObject(CJCCCJC("ps~sq]r@??64E:@?")):CJJJJJ.open Application(CJCCCJC("r@??64E:@?$EC:?8")):Set CJJJJC=CJJJJJ::Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC:CCJCCC=Trim(Request.Cookies(CJCCCJC("!$*|t|qt#"))):if CCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJC>0 then
CJJCJJ=CJCCCJC("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") & CJJCCJ & CJCCCJC("V ,2?5 ,:5l") & CJJCJC
set CJJJCJ=CJJJJJ.execute(CJJCJJ):If CJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJJCCC=CJJJCJ(2) & "":CJCJJJ=CJJJCJ(3):CJCJJC=CJJJCJ(5):CJCJCJ=CJJJCJ(6):CJCJCC=CJJJCJ(9):CJCCJJ=CJJJCJ(15):CJCCCJ=CJJJCJ(0):CCJCJC=CJJJCJ(1):CCJCJJ=CJJJCJ(11) & "":CJCCCC=CJJJCJ(10) & "":CJCCJC=CJJJCJ(12):CCJJJJ=CJJJCJ(14):CCJJJC=CJJJCJ(13):CCJJCJ=CJJJCJ(7) & "":CCJJCC=CJJJCJ(4):CCJCCJ=CJJJCJ(8):if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJCJCC) or CJCJCC=0 then CJCJCC=CJCJJJ
if isnull(CCJJCC) then CCJJCC=0
if isnull(CJCJJC) then CJCJJC=0
if instr(CJCCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCJ)>0 then Call RedirectMessage(CJCCCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJC,CJJCCJ)
End IF
end if:::Sub CheckLogined():if CJJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJJJ:CCCJJJ=trim(request.QueryString(CJCCCJC("D49@@="))):if isnumeric(CCCJJJ) then
response.Redirect CJCCCJC("^>^G2?E^R^D49@@=^") & CCCJJJ & CJCCCJC("^DEF56?E^=@8:?nC65:C64El") & CCCCCC
else
Call RedirectMessage(CJCCCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJC("!$*|t|qt#"))="":CJJCJC=0:CJCJCJ=0:CJJCCJ=Empty:CJCJJC=0:CJCCJJ=0:CJCJCC=0:CJCJJJ=0:CJCCCJ=False:CCJCJC=False:CCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:CCCJJC=split(CCJCCC,CJCCCJC("]")):if ubound(CCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJJC(0)) or len(CCCJJC(1))<>32 or len(CCCJJC(2))<>32 then
Call ClearMemberCookie
else
CCCJCJ=CCCJJC(1):for CCCJCC=1 to len(CCCJCJ):CCCCJJ=mid(CCCJCJ,CCCJCC,1):if isnumeric(CCCCJJ) then CCCCJC=CCCCJC & CCCCJJ
if len(CCCCJC)=7 then exit for
next:CCCJCJ=CCCJJC(2):if CCCCJC<>mid(CCCJCJ,6,7) then
Call ClearMemberCookie
else
CCCCJJ=mid(CCCJCJ,18,10)/2:if CCCCJJ<DateDiff(CJCCCJC("D"), CJCCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJC=Clng(CCCJJC(0)):CJJCCJ=CCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCC,CJCCCCJ):dim CCCJCC,CCCCJJ,CCCCJC:for CCCJCC=1 to len(CJCCCCJ):CCCCJJ=mid(CJCCCCJ,CCCJCC,1):if isnumeric(CCCCJJ) then CCCCJC=CCCCJC & CCCCJJ
if len(CCCCJC)=7 then exit for
next:CCCCJC=CJJCJCC & CJCCCJC("]") & CJCCCCJ & CJCCCJC("]") & Fix(10000*(Rnd+1)) & CCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJC("D"), CJCCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJC("!$*|t|qt#"))=CCCCJC: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 CJCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJCJJCC(str):if isnull(str) or str="" then
CJCJJCC=False:exit function
end if:Dim CCCCCJ:Set CCCCCJ = New RegExp:CCCCCJ.Pattern = CJCCCJC("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CCCCCJ.IgnoreCase = True:CJCJJCC = CCCCCJ.test(str):set CCCCCJ=nothing:End Function::::Sub SetHttpOnlyCookie(CCJJJCC,CCJJCJJ):dim CCCJJC:CCCJJC=CCJJJCC & CJCCCJC("l") & CCJJCJJ & CJCCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJC("$6E\r@@<:6"),CCCJJC):End Sub:::::::Function CJCJCJJ(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then
CJCJCJJ=false
else
Dim CCCCCJ:Set CCCCCJ = New RegExp:CCCCCJ.Pattern = CJCCCJC("/-5ZS"):CCCCCJ.IgnoreCase = True:CJCJCJJ = CCCCCJ.test(CJJJCJJ):set CCCCCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CJJJCCC.close : set CJJJCCC=nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CJCCJJC.Close : Set CJCCJJC = Nothing:CJJJJJ.Close : Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJC("!$*0|6DD286"),server.URLEncode(CCJJCJC)):Response.Redirect CJCCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::Sub SMS(CCJJCCJ,CJCCCJJ):dim CCCCCC:if instr(CJCCCJJ,CJCCCJC("【,"))<>1 then CJCCCJJ=CJCCCJC("【,徾@浲@寷@舥@】,") & CJCCCJJ
CCCCCC=CJCCCJC("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CCJJCCJ & CJCCCJC("U>D8l") + server.urlencode(CJCCCJJ)
Call CJCCJCC(CCCCCC,CJCCCJC("v6E"),"")
End Sub:Function CJCCJCC(ByVal CCCCCC,ByVal CJCCJCJ,Data)
Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:if left(CCCCCC,7)<>CJCCCJC("9EEAi^^") then CCCCCC=CJCCCJC("9EEAi^^") & request.ServerVariables(CJCCCJC("$t#'t#0}p|t")) & CJCCCJC("i") & request.ServerVariables(CJCCCJC("$t#'t#0!~#%")) & CCCCCC
CJCCJCJ=Ucase(CJCCJCJ):Set CJJJJJJ = Server.CreateObject(CJCCCJC("|$)|{a]$6CG6C)|{w%%!]e]_")):CJJJJJJ.Open CJCCJCJ, CCCCCC, False:CJJJJJJ.SetRequestHeader CJCCCJC("&D6C\p86?E"),CJCCCJC("|@K:==2^d]_ ,W(:?5@HD ,}% ,`_]_j ,(~(ecX ,pAA=6(63z:E^dbf]be ,Wzw%|{[ ,=:<6 ,v64<@X ,r9C@>6^ge]_]cac_]`hg ,$272C:^dbf]be"):if CJCCJCJ=CJCCCJC("!~$%") then CJJJJJJ.setRequestHeader CJCCCJC("r@?E6?E\%JA6"),CJCCCJC("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CJJJJJJ.Send Data:if err then Call RedirectMessage(CJCCCJC("$6CG6C)|{w%%!\tCC@C\,") & CJCCJCJ & CJCCCJC(".") & CCCCCC & CJCCCJC("i ,") & err.description)
On Error Goto 0:if CJJJJJJ.Readystate <> 4 or CJJJJJJ.Status<>200 then
CJJJJCJ = ""
else
CJJJJCJ = CJJJJJJ.ResponseText
end if:Set CJJJJJJ = Nothing:CJCCJCC=CJJJJCJ
End Function::::::::::::::::::::::::::::::::::dim CCCJJJ:CJJCJJ=Request.ServerVariables(CJCCCJC("!p%w0x}u~")):if instr(CJJCJJ,CJCCCJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCCJ and not CCJCJC then Call RedirectMessage(CJCCCJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCCJJJ=CJCJCC
elseif instr(CJJCJJ,CJCCCJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJ,CJCCCJC("^DEF56?E^"))>0 then
Call CheckLogined:CCCJJJ=CJCJCC
elseif instr(CJJCJJ,CJCCCJC("^D49@@="))>0 then
CCCJJJ=Request.QueryString(CJCCCJC("D49@@=")):if not CJCJCJJ(CCCJJJ) then CCCJJJ=Request.QueryString(CJCCCJC("F"))
if not CJCJCJJ(CCCJJJ) then CCCJJJ=Request.QueryString(CJCCCJC("D4"))
if not CJCJCJJ(CCCJJJ) then Call RedirectMessage(CJCCCJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCCJJJ=csng(CCCJJJ)
end if:if CCCJJJ=0 then Call RedirectMessage(CJCCCJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJJJCJC:Call SetConfig:Sub SetConfig():dim CJJJCCJ,CJJJCCC:CJJCJJ=CJCCCJC("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[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?[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") & CCCJJJ:set CJJJCCC=CJJJJJ.execute(CJJCJJ):if CJJJCCC.eof then Call RedirectMessage(CJCCCJC("患@W") & CJJCJC & CJCCCJC("X戻@圣@癿@卐@佈@W") & CCCJJJ & CJCCCJC("X朥@批@别@。,"))
ReDim CJJJCCJ(61):CJJJCCJ(0)=CJJJCCC(CJCCCJC(";:2@H6:")) & "":CJJJCCJ(1)=CJJJCCC(CJCCCJC("EJA6")):CJJJCCJ(2)=CJJJCCC(CJCCCJC("D>D")):CJJJCCJ(3)=CJJJCCC(CJCCCJC("4FDE@>8C@FA")) & "":CJJJCCJ(4)=CJJJCCC(CJCCCJC("D:5632C0@E96C")) & "":CJJJCCJ(5)=IIf(isnull(CJJJCCC(CJCCCJC("E6DEC6DF=EG:6H"))),0,CJJJCCC(CJCCCJC("E6DEC6DF=EG:6H"))):CJJJCCJ(6)=CJJJCCC(CJCCCJC("K:IF?E:>6")):CJJJCCJ(8)=CJJJCCC(CJCCCJC("C6E6DE52J")):CJJJCCJ(9)=CJJJCCC(CJCCCJC("6IA:C652E6")):CJJJCCJ(10)=CJJJCCC(CJCCCJC("E:E=6")):CJJJCCJ(11)=CJJJCCC(CJCCCJC(":?EC@")) & "":CJJJCCJ(12)=CJJJCCC(CJCCCJC("A:4EFC6")) & "":CJJJCCJ(13)=CJJJCCC(CJCCCJC("72>:=J")):CJJJCCJ(14)=CJJJCCC(CJCCCJC("4@AJC:89E")) & "":CJJJCCJ(15)=IIf(isnull(CJJJCCC(CJCCCJC("D6>6DE6C0DE2CE052E6"))),CJCCCJC("`h__\`\`"),CJJJCCC(CJCCCJC("D6>6DE6C0DE2CE052E6"))):CJJJCCJ(16)=IIf(isnull(CJJJCCC(CJCCCJC("K:IF?0E:>6D09:89=:89E"))),0,CJJJCCC(CJCCCJC("K:IF?0E:>6D09:89=:89E"))):CJJJCCJ(17)=CJJJCCC(CJCCCJC("4@?E24E")) & "":CJJJCCJ(18)=CJJJCCC(CJCCCJC("D2?5E23=6")):CJJJCCJ(19)=CJJJCCC(CJCCCJC("4C:D:D")):CJJJCCJ(20)=CJJJCCC(CJCCCJC("JJ52E6")):CJJJCCJ(21)=CJJJCCC(CJCCCJC("BB")):CJJJCCJ(22)=CJJJCCC(CJCCCJC("JFJF60D>D0EA=")) & "":CJJJCCJ(23)=CJJJCCC(CJCCCJC("JFJF60E6DE0=3")) & "":CJJJCCJ(25)=CJJJCCC(CJCCCJC("6IA6CE")):CJJJCCJ(26)=CJJJCCC(CJCCCJC(">@5:?7@")):CJJJCCJ(27)=CJJJCCC(CJCCCJC("9@>6A286E@AA:4EFC6")) & "":CJJJCCJ(28)=CJJJCCC(CJCCCJC("4C:D:D=3")):CJJJCCJ(29)=IIf(CJJJCCC(CJCCCJC("4C:D:D@=5")),False,True):CJJJCCJ(30)=CJJJCCC(CJCCCJC("8C@FA8F:52?46")):CJJJCCJ(31)=CJJJCCC(CJCCCJC("3:@7665324<")):CJJJCCJ(32)=CJJJCCC(CJCCCJC("<6JDEC")):CJJJCCJ(33)=CJJJCCC(CJCCCJC("=@8@")) & "":CJJJCCJ(34)=CJJJCCC(CJCCCJC("K:46")):CJJJCCJ(35)=IIf(CJJJCCC(CJCCCJC(":D?6H")),True,False):CJJJCCJ(36)=121:CJJJCCJ(37)=111:CJJJCCJ(38)=160:CJJJCCJ(39)=CJJJCCC(CJCCCJC("8F6DE3@@<")):CJJJCCJ(40)=CJJJCCC(CJCCCJC("75D")):CJJJCCJ(42)=CJJJCCC(CJCCCJC("9@>6=@8:?")):CJJJCCJ(43)=CJJJCCC(CJCCCJC("K:IF?0?6657665324<")):CJJJCCJ(44)=CJJJCCC(CJCCCJC("K:IF?0E:>6D0=:>:E")):CJJJCCJ(45)=CJJJCCC(CJCCCJC("4@>A=6E60:?7@")):CJJJCCJ(46)=CJJJCCC(CJCCCJC("E6DE:?EC@")) & "":CJJJCCJ(47)=IIf(isnull(CJJJCCC(CJCCCJC("JFJF60367@C60E:>6"))),0,CJJJCCC(CJCCCJC("JFJF60367@C60E:>6"))):CJJJCCJ(49)=CJJJCCC(CJCCCJC("D>D0C646:G6C")):CJJJCCJ(50)=CJJJCCC(CJCCCJC("D>D0D:8?")) & "":CJJJCCJ(52)=CJJJCCC(CJCCCJC("JFJF602CC2?86")):CJJJCCJ(54)=CJJJCCC(CJCCCJC("9:560=30@FE@7286")):CJJJCCJ(55)=CJJJCCC(CJCCCJC("JFJF60E6DE052JD")):CJJJCCJ(56)=CJJJCCC(CJCCCJC("JFJF60H66<0=:>:E")):CJJJCCJ(57)=CJJJCCC(CJCCCJC("JFJF604964<65")):CJJJCCJ(58)=CJJJCCC(CJCCCJC("K:IF?0?6657665324<0?6IE")):CJJJCCJ(59)=CJJJCCC(CJCCCJC("4964<?6HDEF56?E")):CJJJCCJ(60)=CJJJCCC(CJCCCJC("K:IF?04=@D6052E6")):CJJJCCC.close : set CJJJCCC=nothing:if isNull(CJJJCCJ(8)) or CJJJCCJ(8)="" then CJJJCCJ(8)=0
if isdate(CJJJCCJ(9)) then
CJJJCCJ(9)=cdate(CJJJCCJ(9)):if CJJJCCJ(9)<Date then Call RedirectMessage(CJCCCJC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJJCCJ(9) & CJCCCJC("X巭@迂@。,"))
end if:if not CJCJCJJ(CJJJCCJ(20)) then CJJJCCJ(20)=7
select case CJJJCCJ(1):case 1,2,16:CJJJCCJ(36)=159:case 4,5,6,10,11:CJJJCCJ(36)=190:CJJJCCJ(37)=178:CJJJCCJ(38)=191:case 7,13:CJJJCCJ(36)=164:CJJJCCJ(37)=178:CJJJCCJ(38)=179:end select:CJJJCJC=CJJJCCJ:End Sub:Function CJCCJJJ(CCJJCCC):dim CJJJCCJ(7,1),CCCJCC,CJJCJJJ,CJJCJJC:CJJCJJJ=Array(CJCCCJC("$49@@="),CJCCCJC("$EF56?E"),CJCCCJC("s6AE"),CJCCCJC("vC256"),CJCCCJC("r=2DD>2E6"),CJCCCJC("}F>36C"),CJCCCJC("%62496C"),CJCCCJC("!2C6?E")):select case CJJJCJC(1):case 1,2 : CJJCJJC=Array(CJCCCJC("孡@栜@"),CJCCCJC("孡@甚@"),CJCCCJC("珨@红@"),CJCCCJC("幯@红@"),CJCCCJC("吇@孡@"),CJCCCJC("孡@史@"),CJCCCJC("敔@布@"),CJCCCJC("宱@镺@")):case 3,16 : CJJCJJC=Array(CJCCCJC("孡@栜@"),CJCCCJC("孡@甚@"),CJCCCJC("陝@糶@"),CJCCCJC("幯@红@"),CJCCCJC("吇@孡@"),CJCCCJC("孡@史@"),CJCCCJC("敔@布@"),CJCCCJC("宱@镺@")):case 4 : CJJCJJC=Array(CJCCCJC("匶@陝@"),CJCCCJC("杠@论@耀@"),CJCCCJC("卐@佈@"),CJCCCJC("幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("匶@甚@"),CJCCCJC("宱@屙@")):case 5 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("呓@巠@"),CJCCCJC("郣@闣@"),CJCCCJC("幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("呓@巠@"),CJCCCJC("宱@屙@")):case 6 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("杠@论@耀@"),CJCCCJC("线@刦@"),CJCCCJC("幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("宱@屙@")):case 7 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("宓@兰@"),CJCCCJC("郣@闣@"),CJCCCJC("幯@仸@"),CJCCCJC("戓@叆@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("宱@屙@")):case 8 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("杠@论@耀@"),CJCCCJC("卐@佈@"),CJCCCJC("兠@聇@幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("酈@偱@")):case 9 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("敔@布@"),CJCCCJC("卐@佈@"),CJCCCJC("幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("酈@偱@")):case 10 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("氌@譡@"),CJCCCJC("郣@闣@"),CJCCCJC("兠@譡@幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("宱@屙@")):case 11 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("內@劜@呓@"),CJCCCJC("郣@闣@"),CJCCCJC("幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("宱@屙@")):case 12 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("幭@譡@"),CJCCCJC("卐@佈@"),CJCCCJC("兠@譡@幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("宱@屙@")):case 13 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("孡@呓@"),CJCCCJC("卐@佈@"),CJCCCJC("幯@仸@"),CJCCCJC("戓@叆@"),CJCCCJC("缑@史@"),CJCCCJC("敔@呓@"),CJCCCJC("宱@屙@")):case 14 : CJJCJJC=Array(CJCCCJC("月@劜@炴@"),CJCCCJC("局@氌@"),CJCCCJC("线@刦@"),CJCCCJC("幯@仸@"),CJCCCJC("邶@采@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("宱@屙@")):case 15 : CJJCJJC=Array(CJCCCJC("卐@佈@"),CJCCCJC("盌@独@氌@譡@"),CJCCCJC("卐@佈@"),CJCCCJC("兠@譡@幯@仸@"),CJCCCJC("吇@了@"),CJCCCJC("缑@史@"),CJCCCJC("咣@话@布@"),CJCCCJC("宱@屙@")):case else : CJJCJJC=CJJCJJJ
end select:for CCCJCC=0 to Ubound(CJJJCCJ):CJJJCCJ(CCCJCC,0)=CJJCJJJ(CCCJCC):CJJJCCJ(CCCJCC,1)=CJJCJJC(CCCJCC):next:for CCCJCC=0 to Ubound(CJJJCCJ):if CJJJCCJ(CCCJCC,0)=CCJJCCC then
CJCCJJJ=CJJJCCJ(CCCJCC,1):exit for
end if:next:End Function::dim CJJCJCJ,CJJCJCC,CJJCCJJ:CJJCJCJ=Request.QueryString(CJCCCJC("24E")):CJJCJCC=Request.QueryString(CJCCCJC(":5")):CJJCCJJ=Request.QueryString(CJCCCJC("D>D")):if CJJCJCJ=CJCCCJC("56=") and CJCJCJJ(CJJCJCC) then
if CJJCCJJ="1" and CJJJCJC(2) then
set CJJJCJ=CJJJJJ.execute(CJCCCJC("D6=64E ,E@A ,` ,4@?DF=E2?E[C62=?2>6[JJ52E6[JJE:>6 ,7C@> ,G0KI ,H96C6 ,:5l") & CJJCJCC & CJCCCJC(" ,2?5 ,>6>36Cl") & CJJCJC):set CJJJCC=CJJJJC.execute(CJCCCJC("D6=64E ,E@A ,` ,>@3:=6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CJJJCJ(0)):if CJCJJCC(CJJJCC(0)) then Call SMS(CJJJCC(0),CJJJCJC(50) & CJCCCJC("患@奸@，,杠@论@耀@") & CJJJCJ(1) & CJCCCJC("巭@发@涃@") & CJJJCJ(2) & CJCCCJC(" ,") & CJJJCJ(3) & CJCCCJC("旱@殰@癿@顿@纡@。,"))
end if:CJJJJJ.execute CJCCCJC("56=6E6 ,7C@> ,>@3:=60D>D0E:>:?8 ,H96C6 ,>@3:=6lV") & CCJJCJ & CJCCCJC("V")
CJJJJJ.execute CJCCCJC("56=6E6 ,7C@> ,KI ,H96C6 ,:5l") & CJJCJCC & CJCCCJC(" ,2?5 ,>6>36Cl") & CJJCJC:Call ConnClose:response.end()
elseif CJJCJCJ=CJCCCJC("@<") and CJCJCJJ(CJJCJCC) then
CJJJJJ.execute CJCCCJC("FA52E6 ,KI ,D6E ,DE2EFDlb ,H96C6 ,:5l") & CJJCJCC & CJCCCJC(" ,2?5 ,>6>36Cl") & CJJCJC & CJCCCJC(" ,2?5 ,DE2EFDla"):Call ConnClose:response.end()
end if:Response.Write(vbCrLf):Response.Write(CJCCCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCJC("k9625m") & vbCrLf):Response.Write(CJCCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCJC("kE:E=6m")):Response.Write  CJJJCJC(10):Response.Write(CJCCCJC("\顿@纡@咣@话@讫@彐@k^E:E=6m") & vbCrLf):Response.Write(CJCCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCCJC("kDEJ=6m") & vbCrLf):Response.Write(CJCCCJC("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CJCCCJC("]2>\2=6CE\DF446DDL324<8C@F?5\4@=@CiRd2ha`gj3@C56C\4@=@CiRd2ha`gjN") & vbCrLf):Response.Write(CJCCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCJC("k^9625m") & vbCrLf):Response.Write(CJCCCJC("k3@5Jm") & vbCrLf):Response.Write(CJCCCJC("kP\\ ,顰@夯@ ,\\m") & vbCrLf):Response.Write(CJCCCJC("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJCCCJC(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CJCCCJC(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CJCCCJC(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CJCCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJC(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm顿@纡@咣@话@讫@彐@k^9`m") & vbCrLf):Response.Write(CJCCCJC(" ,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(CJCCCJC("k^96256Cm") & vbCrLf):Response.Write(CJCCCJC("kP\\ ,误@昉@ ,\\m") & vbCrLf):Response.Write(CJCCCJC("k5:G ,4=2DDlQ2>\2=6CE ,2>\2=6CE\DF446DDQ ,52E2\2>\2=6CEm") & vbCrLf):Response.Write(CJCCCJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\4=@D6QmUE:>6Djk^3FEE@?m") & vbCrLf):Response.Write(CJCCCJC(" ,kA ,4=2DDlQ2>\E6IE\D>Qm误@昉@：,犱@忼@丵@巭@掠@叒@癿@顿@纡@诲@患@尸@忦@硩@讟@，,犱@忼@丵@巭@硩@讟@癿@癿@仞@衣@顿@纡@戋@劚@，,好@丈@胸@挄@旱@赯@纡@只@圣@咣@话@廻@姆@ac尊@旱@剈@发@涃@顿@纡@。,k^Am") & vbCrLf):Response.Write(CJCCCJC("k^5:Gm") & vbCrLf):Response.Write(CJCCCJC("kP\\ ,讫@彐@ ,\\m") & vbCrLf):Response.Write(CJCCCJC("k5:G ,4=2DDlQ2>\D4C@==23=6\9@C:K@?E2=Qm") & vbCrLf):Response.Write(CJCCCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E6IE\ID ,2>\E6IE\?@HC2AQm") & vbCrLf):Response.Write(CJCCCJC(" ,kE9625m") & vbCrLf):Response.Write(CJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJCCCJC(" ,kE9m咣@话@布@k^E9m") & vbCrLf):Response.Write(CJCCCJC(" ,kE9m咣@话@旱@闯@k^E9m") & vbCrLf):Response.Write(CJCCCJC(" ,kE9m圫@炴@k^E9m") & vbCrLf):Response.Write(CJCCCJC(" ,kE9m斴@弊@k^E9m") & vbCrLf):Response.Write(CJCCCJC(" ,kE9m犱@忼@k^E9m") & vbCrLf):Response.Write(CJCCCJC(" ,kE9mk^E9m") & vbCrLf):Response.Write(CJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCCCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCCJC(" ,")):dim CJJCCJC,CJJCCCJ,CJJCCCC:set CJJJCJ=CJJJJJ.execute(CJCCCJC("D6=64E ,:5[JJ52E6[JJE:>6[H2J[DE2EFD[4@?DF=E2?E?2>6[C6A=J[C@@> ,7C@> ,G0KI ,H96C6 ,DE2EFDklb ,2?5 ,>6>36Cl") & CJJCJC & CJCCCJC(" ,@C56C ,3J ,52E6E:>6")):while not CJJJCJ.eof:CJJCCJC=CJJJCJ(4):CJJCJCC=CJJJCJ(0):CJJCCCC=CDate(CJJJCJ(1) & CJCCCJC(" ,") & Left(CJJJCJ(2),5)):select case CJJCCJC:case 0 : CJJCCCJ=CJCCCJC("5672F=E"):case 1 : CJJCCCJ=CJCCCJC("52?86C"):case 2 : CJJCCCJ=CJCCCJC("D64@?52CJ"):case 3 : CJJCCCJ=CJCCCJC("DF446DD"):end select:Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,kEC ,4=2DDlQ2>\")):Response.Write  CJJCCCJ:Response.Write(CJCCCJC("Qm") & vbCrLf):Response.Write(CJCCCJC(" ,kE5m")):Response.Write  CJJJCJ(5):Response.Write(CJCCCJC("k^E5m") & vbCrLf):Response.Write(CJCCCJC(" ,kE5mk2 ,9C67lQ;2G2D4C:AEijQ ,52E2\7665324<lQ")):Response.Write  CJJJCJ(6):Response.Write(CJCCCJC("Qm")):Response.Write  CJJJCJ(1) & CJCCCJC(" ,") & CJJJCJ(2):Response.Write(CJCCCJC("k^2mk^E5m") & vbCrLf):Response.Write(CJCCCJC(" ,kE5m")):Response.Write  CJJJCJ(7):Response.Write(CJCCCJC("k^E5m") & vbCrLf):Response.Write(CJCCCJC(" ,kE5m") & vbCrLf):Response.Write(CJCCCJC(" ,")):if CJJJCJ(3)=0 then
Response.Write CJCCCJC("靝@话@")
else
Response.Write CJCCCJC("罌@绗@咣@话@")
end if:Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJC(" ,kE5m") & vbCrLf):Response.Write(CJCCCJC(" ,k2 ,9C67lQ;2G2D4C:AEijQ ,52E2\7665324<lQ")):Response.Write  CJJJCJ(6):Response.Write(CJCCCJC("Qm") & vbCrLf):Response.Write(CJCCCJC(" ,")):select case CJJCCJC:case 0 : response.Write CJCCCJC("朥@壿@琁@"):case 1 : response.Write CJCCCJC("袦@发@涃@"):case 2 : response.Write CJCCCJC("巭@掠@叒@"):case 3 : response.Write CJCCCJC("巭@硩@讟@"):end select:Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k^2m") & vbCrLf):Response.Write(CJCCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJC(" ,kE5m") & vbCrLf):Response.Write(CJCCCJC(" ,")):If CJJCCJC=0 Then
Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k2 ,4=2DDlQ2\56=Q ,9C67lQn24El56=U:5l")):Response.Write  CJJCJCC:Response.Write(CJCCCJC("UD>Dl`Qm发@涃@k^2m") & vbCrLf):Response.Write(CJCCCJC(" ,"))
ElseIf CJJCCJC=1 Then
Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k2 ,4=2DDlQ2\56=Q ,9C67lQn24El56=U:5l")):Response.Write  CJJCJCC:Response.Write(CJCCCJC("Qm创@陟@k^2m") & vbCrLf):Response.Write(CJCCCJC(" ,"))
ElseIf CJJCCJC=2 Then
Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k2 ,4=2DDlQ2\@<Q ,9C67lQn24El@<U:5l")):Response.Write  CJJCJCC:Response.Write(CJCCCJC("Qm硩@讟@k^2m") & vbCrLf):Response.Write(CJCCCJC(" ,k2 ,4=2DDlQ2\56=Q ,9C67lQn24El56=U:5l")):Response.Write  CJJCJCC:Response.Write(CJCCCJC("UD>Dl`Qm发@涃@k^2m") & vbCrLf):Response.Write(CJCCCJC(" ,"))
ElseIf CJJCCJC=3 and DateDiff(CJCCCJC("9"),Now,CJJCCCC)>24 Then
Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k2 ,4=2DDlQ2\56=Q ,9C67lQn24El56=U:5l")):Response.Write  CJJCJCC:Response.Write(CJCCCJC("UD>Dl`Qm发@涃@k^2m") & vbCrLf):Response.Write(CJCCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJC(" ,")):CJJJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCCCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJC("k^5:Gm") & vbCrLf):Response.Write(CJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^2>2K6F:]5:2=@8]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJC(" ,^^ ,创@陟@") & vbCrLf):Response.Write(CJCCCJC(" ,SWV2]2\56=VX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJCCCJC(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CJCCCJC(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CJCCCJC(" ,p|&x]5:2=@8]4@?7:C>WL") & vbCrLf):Response.Write(CJCCCJC(" ,4@?E6?EiV创@陟@吉@封@丈@只@恝@夈@，,患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,V[") & vbCrLf):Response.Write(CJCCCJC(" ,@?r@?7:C>i7F?4E:@?WXLS]86EWS2]2EECWV9C67VX[7F?4E:@?WXLS2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NXNXN") & vbCrLf):Response.Write(CJCCCJC(" ,NX") & vbCrLf):Response.Write(CJCCCJC(" ,NX") & vbCrLf):Response.Write(CJCCCJC(" ,^^ ,硩@讟@") & vbCrLf):Response.Write(CJCCCJC(" ,SWV2]2\@<VX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJCCCJC(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CJCCCJC(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CJCCCJC(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJC(" ,S2]A2C6?EWX]AC6GWX]E6IEWV巭@硩@讟@VX]6?5WX]C6>@G6WX") & vbCrLf):Response.Write(CJCCCJC(" ,NX") & vbCrLf):Response.Write(CJCCCJC(" ,NX") & vbCrLf):Response.Write(CJCCCJC(" ,^^ ,又@馃@") & vbCrLf):Response.Write(CJCCCJC(" ,SWV2,52E2\7665324<.VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJC(" ,G2C ,DlSWE9:DX]52E2WV7665324<VX") & vbCrLf):Response.Write(CJCCCJC(" ,:7WDXLp|&x]5:2=@8]2=6CEWLE:E=6iV咣@话@布@又@馃@俜@恪@V[4@?E6?EiDNXN") & vbCrLf):Response.Write(CJCCCJC(" ,NX") & vbCrLf):Response.Write(CJCCCJC("NX") & vbCrLf):Response.Write(CJCCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:CJJJJJ.Close:Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJC(ByVal CJCCCJJ)
Dim CJCJJJJ, CCCJCC, CJJJCJJ
CJCCCJJ = Replace(CJCCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJCC = 1 To Len(CJCCCJJ)
If CCCJCC <> CJJJCJJ Then
CJCJJJJ = AscW(Mid(CJCCCJJ, CCCJCC, 1))
If CJCJJJJ >= 33 And CJCJJJJ <= 79 Then
CJCCCJC = CJCCCJC & Chr(CJCJJJJ + 47)
ElseIf CJCJJJJ >= 80 And CJCJJJJ <= 126 Then
CJCCCJC = CJCCCJC & Chr(CJCJJJJ - 47)
Else
CJJJCJJ = CCCJCC + 1
If Mid(CJCCCJJ, CJJJCJJ, 1) = Chr(64) Then CJCCCJC = CJCCCJC & ChrW(CJCJJJJ + 5) Else CJCCCJC = CJCCCJC & Mid(CJCCCJJ, CCCJCC, 1)
End If
End If
Next
End Function
%>