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