<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJC, CCCJCJ,CCCJCC, CCCCJJ, CCCCJC:Set CCCJJC = server.CreateObject(CCCJCJC("ps~sq]r@??64E:@?")):CCCJJC.open Application(CCCJCJC("r@??64E:@?$EC:?8")):Set CCCJCJ=CCCJJC::Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ:CJCJJJJ=Trim(Request.Cookies(CCCJCJC("!$*|t|qt#"))):if CJCJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCJ>0 then
CCCCJC=CCCJCJC("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") & CCCCCC & CCCJCJC("V ,2?5 ,:5l") & CCCCCJ
set CCCJCC=CCCJJC.execute(CCCCJC):If CCCJCC.EOF Then
Call ClearMemberCookie
Else
CJJJJJJ=CCCJCC(2) & "":CJJJJJC=CCCJCC(3):CJJJJCJ=CCCJCC(5):CJJJJCC=CCCJCC(6):CJJJCJJ=CCCJCC(9):CJJJCJC=CCCJCC(15):CJJJCCC=CCCJCC(0):CJJCCCJ=CCCJCC(1):CJJCCJC=CCCJCC(11) & "":CJJCJJJ=CCCJCC(10) & "":CJJJCCJ=CCCJCC(12):CJJCJJC=CCCJCC(14):CJJCJCJ=CCCJCC(13):CJJCJCC=CCCJCC(7) & "":CJJCCJJ=CCCJCC(4):CJJCCCC=CCCJCC(8):if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CJJJCJJ) or CJJJCJJ=0 then CJJJCJJ=CJJJJJC
if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJJJCJ) then CJJJJCJ=0
if instr(CCCJCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCC)>0 then Call RedirectMessage(CCCJCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCCJ,CCCCCC)
End IF
end if:::Sub CheckLogined():if CCCCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJJC:CJCJJJC=trim(request.QueryString(CCCJCJC("D49@@="))):if isnumeric(CJCJJJC) then
response.Redirect CCCJCJC("^>^G2?E^R^D49@@=^") & CJCJJJC & CCCJCJC("^DEF56?E^=@8:?nC65:C64El") & CJCCJJJ
else
Call RedirectMessage(CCCJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJCJC("!$*|t|qt#"))="":CCCCCJ=0:CJJJJCC=0:CCCCCC=Empty:CJJJJCJ=0:CJJJCJC=0:CJJJCJJ=0:CJJJJJC=0:CJJJCCC=False:CJJCCCJ=False:CJJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ:CJCJJCJ=split(CJCJJJJ,CCCJCJC("]")):if ubound(CJCJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCJ(0)) or len(CJCJJCJ(1))<>32 or len(CJCJJCJ(2))<>32 then
Call ClearMemberCookie
else
CJCJJCC=CJCJJCJ(1):for CJCJCJJ=1 to len(CJCJJCC):CJCJCJC=mid(CJCJJCC,CJCJCJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJJCC=CJCJJCJ(2):if CJCJCCJ<>mid(CJCJJCC,6,7) then
Call ClearMemberCookie
else
CJCJCJC=mid(CJCJJCC,18,10)/2:if CJCJCJC<DateDiff(CCCJCJC("D"), CCCJCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCJ=Clng(CJCJJCJ(0)):CCCCCC=CJCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCCJ,CCCJCCC):dim CJCJCJJ,CJCJCJC,CJCJCCJ:for CJCJCJJ=1 to len(CCCJCCC):CJCJCJC=mid(CCCJCCC,CJCJCJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJCCJ=CCCJCCJ & CCCJCJC("]") & CCCJCCC & CCCJCJC("]") & Fix(10000*(Rnd+1)) & CJCJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCJCJC("D"), CCCJCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJCJC("!$*|t|qt#"))=CJCJCCJ:End Sub:::Function IIf(CCCCJJJ, CCCCJJC, CCCCJCJ):if isnull(CCCCJJJ) or isempty(CCCCJJJ) then
IIf = CCCCJCJ
elseif CCCCJJJ Then
IIf = CCCCJJC
Else
IIf = CCCCJCJ
end if:End Function:Const CCJCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CCJCJCC(str):if isnull(str) or str="" then
CCJCJCC=False:exit function
end if:Dim CJCJCCC:Set CJCJCCC = New RegExp:CJCJCCC.Pattern = CCCJCJC("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCJCCC.IgnoreCase = True:CCJCJCC = CJCJCCC.test(str):set CJCJCCC=nothing:End Function::::Sub SetHttpOnlyCookie(CCCCCJJ,CCCCCJC):dim CJCJJCJ:CJCJJCJ=CCCCCJJ & CCCJCJC("l") & CCCCCJC & CCCJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCJC("$6E\r@@<:6"),CJCJJCJ):End Sub:::::::Function CCJCCJJ(CJCCCJC):if isnull(CJCCCJC) or trim(CJCCCJC)="" or not isnumeric(CJCCCJC) then
CCJCCJJ=false
else
Dim CJCJCCC:Set CJCJCCC = New RegExp:CJCJCCC.Pattern = CCCJCJC("/-5ZS"):CJCJCCC.IgnoreCase = True:CCJCCJJ = CJCJCCC.test(CJCCCJC):set CJCJCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCJJJJJ.close : set CCJJJJJ=nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCCJCC.Close : Set CCCJCC=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CCCJJC.Close : Set CCCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCJC("!$*0|6DD286"),server.URLEncode(CCCCCCJ)):Response.Redirect CCCJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::Sub SMS(CCCCCCC,CCCJCJJ):dim CJCCJJJ:if instr(CCCJCJJ,CCCJCJC("【,"))<>1 then CCCJCJJ=CCCJCJC("【,徾@浲@寷@舥@】,") & CCCJCJJ
CJCCJJJ=CCCJCJC("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CCCCCCC & CCCJCJC("U>D8l") + server.urlencode(CCCJCJJ)
Call CCCJJCC(CJCCJJJ,CCCJCJC("v6E"),"")
End Sub:Function CCCJJCC(ByVal CJCCJJJ,ByVal CCCJJCJ,Data)
Dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:if left(CJCCJJJ,7)<>CCCJCJC("9EEAi^^") then CJCCJJJ=CCCJCJC("9EEAi^^") & request.ServerVariables(CCCJCJC("$t#'t#0}p|t")) & CCCJCJC("i") & request.ServerVariables(CCCJCJC("$t#'t#0!~#%")) & CJCCJJJ
CCCJJCJ=Ucase(CCCJJCJ):Set CJCCJJC = Server.CreateObject(CCCJCJC("|DI>=a]$6CG6C)|{w%%!")):CJCCJJC.Open CCCJJCJ, CJCCJJJ, False:if CCCJJCJ=CCCJCJC("!~$%") then CJCCJJC.setRequestHeader CCCJCJC("r@?E6?E\%JA6"),CCCJCJC("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CJCCJJC.Send Data:if err then Call RedirectMessage(CCCJCJC("$6CG6C)|{w%%!\tCC@C\,") & CCCJJCJ & CCCJCJC(".") & CJCCJJJ & CCCJCJC("i ,") & err.description)
On Error Goto 0:if CJCCJJC.Readystate <> 4 or CJCCJJC.Status<>200 then
CJCCJCC = ""
else
CJCCJCC = CJCCJJC.ResponseText
end if:Set CJCCJJC = Nothing:CCCJJCC=CJCCJCC
End Function:::::::::::::::::::::::::::::dim CJCJJJC:CCCCJC=Request.ServerVariables(CCCJCJC("!p%w0x}u~")):if instr(CCCCJC,CCCJCJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCCC and not CJJCCCJ then Call RedirectMessage(CCCJCJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCJJJC=CJJJCJJ
elseif instr(CCCCJC,CCCJCJC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCJC,CCCJCJC("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJJC=CJJJCJJ
elseif instr(CCCCJC,CCCJCJC("^D49@@="))>0 then
CJCJJJC=Request.QueryString(CCCJCJC("D49@@=")):if not CCJCCJJ(CJCJJJC) then CJCJJJC=Request.QueryString(CCCJCJC("F"))
if not CCJCCJJ(CJCJJJC) then CJCJJJC=Request.QueryString(CCCJCJC("D4"))
if not CCJCCJJ(CJCJJJC) then Call RedirectMessage(CCCJCJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCJJJC=csng(CJCJJJC)
end if:if CJCJJJC=0 then Call RedirectMessage(CCCJCJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCCCCJ:Call SetConfig:Sub SetConfig():dim CJCCCCC,CCJJJJJ:CCCCJC=CCCJCJC("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") & CJCJJJC:set CCJJJJJ=CCCJJC.execute(CCCCJC):if CCJJJJJ.eof then Call RedirectMessage(CCCJCJC("患@W") & CCCCCJ & CCCJCJC("X戻@圣@癿@卐@佈@W") & CJCJJJC & CCCJCJC("X朥@批@别@。,"))
ReDim CJCCCCC(61):CJCCCCC(0)=CCJJJJJ(CCCJCJC(";:2@H6:")) & "":CJCCCCC(1)=CCJJJJJ(CCCJCJC("EJA6")):CJCCCCC(2)=CCJJJJJ(CCCJCJC("D>D")):CJCCCCC(3)=CCJJJJJ(CCCJCJC("4FDE@>8C@FA")) & "":CJCCCCC(4)=CCJJJJJ(CCCJCJC("D:5632C0@E96C")) & "":CJCCCCC(5)=IIf(isnull(CCJJJJJ(CCCJCJC("E6DEC6DF=EG:6H"))),0,CCJJJJJ(CCCJCJC("E6DEC6DF=EG:6H"))):CJCCCCC(6)=CCJJJJJ(CCCJCJC("K:IF?E:>6")):CJCCCCC(7)=CCJJJJJ(CCCJCJC("766")):CJCCCCC(8)=CCJJJJJ(CCCJCJC("C6E6DE52J")):CJCCCCC(9)=CCJJJJJ(CCCJCJC("6IA:C652E6")):CJCCCCC(10)=CCJJJJJ(CCCJCJC("E:E=6")):CJCCCCC(11)=CCJJJJJ(CCCJCJC(":?EC@")) & "":CJCCCCC(12)=CCJJJJJ(CCCJCJC("A:4EFC6")) & "":CJCCCCC(13)=CCJJJJJ(CCCJCJC("72>:=J")):CJCCCCC(14)=CCJJJJJ(CCCJCJC("4@AJC:89E")) & "":CJCCCCC(15)=IIf(isnull(CCJJJJJ(CCCJCJC("D6>6DE6C0DE2CE052E6"))),CCCJCJC("`h__\`\`"),CCJJJJJ(CCCJCJC("D6>6DE6C0DE2CE052E6"))):CJCCCCC(16)=IIf(isnull(CCJJJJJ(CCCJCJC("K:IF?0E:>6D09:89=:89E"))),0,CCJJJJJ(CCCJCJC("K:IF?0E:>6D09:89=:89E"))):CJCCCCC(17)=CCJJJJJ(CCCJCJC("4@?E24E")) & "":CJCCCCC(18)=CCJJJJJ(CCCJCJC("D2?5E23=6")):CJCCCCC(19)=CCJJJJJ(CCCJCJC("4C:D:D")):CJCCCCC(20)=CCJJJJJ(CCCJCJC("JJ52E6")):CJCCCCC(21)=CCJJJJJ(CCCJCJC("BB")):CJCCCCC(22)=CCJJJJJ(CCCJCJC("JFJF60D>D0EA=")) & "":CJCCCCC(23)=CCJJJJJ(CCCJCJC("JFJF60E6DE0=3")) & "":CJCCCCC(25)=CCJJJJJ(CCCJCJC("6IA6CE")):CJCCCCC(26)=CCJJJJJ(CCCJCJC(">@5:?7@")):CJCCCCC(27)=CCJJJJJ(CCCJCJC("9@>6A286E@AA:4EFC6")) & "":CJCCCCC(28)=CCJJJJJ(CCCJCJC("4C:D:D=3")):CJCCCCC(29)=IIf(CCJJJJJ(CCCJCJC("4C:D:D@=5")),False,True):CJCCCCC(30)=CCJJJJJ(CCCJCJC("8C@FA8F:52?46")):CJCCCCC(31)=CCJJJJJ(CCCJCJC("3:@7665324<")):CJCCCCC(32)=CCJJJJJ(CCCJCJC("<6JDEC")):CJCCCCC(33)=CCJJJJJ(CCCJCJC("=@8@")) & "":CJCCCCC(34)=CCJJJJJ(CCCJCJC("K:46")):CJCCCCC(35)=IIf(CCJJJJJ(CCCJCJC(":D?6H")),True,False):CJCCCCC(36)=121:CJCCCCC(37)=111:CJCCCCC(38)=160:CJCCCCC(39)=CCJJJJJ(CCCJCJC("8F6DE3@@<")):CJCCCCC(40)=CCJJJJJ(CCCJCJC("75D")):CJCCCCC(42)=CCJJJJJ(CCCJCJC("9@>6=@8:?")):CJCCCCC(43)=CCJJJJJ(CCCJCJC("K:IF?0?6657665324<")):CJCCCCC(44)=CCJJJJJ(CCCJCJC("K:IF?0E:>6D0=:>:E")):CJCCCCC(45)=CCJJJJJ(CCCJCJC("4@>A=6E60:?7@")):CJCCCCC(46)=CCJJJJJ(CCCJCJC("E6DE:?EC@")) & "":CJCCCCC(47)=IIf(isnull(CCJJJJJ(CCCJCJC("JFJF60367@C60E:>6"))),0,CCJJJJJ(CCCJCJC("JFJF60367@C60E:>6"))):CJCCCCC(49)=CCJJJJJ(CCCJCJC("D>D0C646:G6C")):CJCCCCC(50)=CCJJJJJ(CCCJCJC("D>D0D:8?")) & "":CJCCCCC(52)=CCJJJJJ(CCCJCJC("JFJF602CC2?86")):CJCCCCC(53)=IIf(isnull(CCJJJJJ(CCCJCJC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJJJJ(CCCJCJC("DEF56?E0BF6DE:@?04@F?E"))):CJCCCCC(54)=CCJJJJJ(CCCJCJC("9:560=30@FE@7286")):CJCCCCC(55)=CCJJJJJ(CCCJCJC("JFJF60E6DE052JD")):CJCCCCC(56)=CCJJJJJ(CCCJCJC("JFJF60H66<0=:>:E")):CJCCCCC(57)=CCJJJJJ(CCCJCJC("JFJF604964<65")):CJCCCCC(58)=CCJJJJJ(CCCJCJC("K:IF?0?6657665324<0?6IE")):CJCCCCC(59)=CCJJJJJ(CCCJCJC("4964<?6HDEF56?E")):CJCCCCC(60)=CCJJJJJ(CCCJCJC("K:IF?04=@D6052E6")):CCJJJJJ.close : set CCJJJJJ=nothing:if isNull(CJCCCCC(8)) or CJCCCCC(8)="" then CJCCCCC(8)=0
if isdate(CJCCCCC(9)) then
CJCCCCC(9)=cdate(CJCCCCC(9)):if CJCCCCC(9)<Date then Call RedirectMessage(CCCJCJC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCCCCC(9) & CCCJCJC("X巭@迂@。,"))
end if:if not CCJCCJJ(CJCCCCC(20)) then CJCCCCC(20)=7
select case CJCCCCC(1):case 1,2,16:CJCCCCC(36)=159:case 4,5,6,10,11:CJCCCCC(36)=190:CJCCCCC(37)=178:CJCCCCC(38)=191:case 7,13:CJCCCCC(36)=164:CJCCCCC(37)=178:CJCCCCC(38)=179:end select:CJCCCCJ=CJCCCCC:End Sub:Function CCCJJJJ(CJJJJJJJ):dim CJCCCCC(7,1),CJCJCJJ,CCJJJJC,CCJJJCJ:CCJJJJC=Array(CCCJCJC("$49@@="),CCCJCJC("$EF56?E"),CCCJCJC("s6AE"),CCCJCJC("vC256"),CCCJCJC("r=2DD>2E6"),CCCJCJC("}F>36C"),CCCJCJC("%62496C"),CCCJCJC("!2C6?E")):select case CJCCCCJ(1):case 1,2 : CCJJJCJ=Array(CCCJCJC("孡@栜@"),CCCJCJC("孡@甚@"),CCCJCJC("珨@红@"),CCCJCJC("幯@红@"),CCCJCJC("吇@孡@"),CCCJCJC("孡@史@"),CCCJCJC("敔@布@"),CCCJCJC("宱@镺@")):case 3,16 : CCJJJCJ=Array(CCCJCJC("孡@栜@"),CCCJCJC("孡@甚@"),CCCJCJC("陝@糶@"),CCCJCJC("幯@红@"),CCCJCJC("吇@孡@"),CCCJCJC("孡@史@"),CCCJCJC("敔@布@"),CCCJCJC("宱@镺@")):case 4 : CCJJJCJ=Array(CCCJCJC("匶@陝@"),CCCJCJC("杠@论@耀@"),CCCJCJC("卐@佈@"),CCCJCJC("幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("匶@甚@"),CCCJCJC("宱@屙@")):case 5 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("呓@巠@"),CCCJCJC("郣@闣@"),CCCJCJC("幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("呓@巠@"),CCCJCJC("宱@屙@")):case 6 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("杠@论@耀@"),CCCJCJC("线@刦@"),CCCJCJC("幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("宱@屙@")):case 7 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("宓@兰@"),CCCJCJC("郣@闣@"),CCCJCJC("幯@仸@"),CCCJCJC("戓@叆@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("宱@屙@")):case 8 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("杠@论@耀@"),CCCJCJC("卐@佈@"),CCCJCJC("兠@聇@幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("酈@偱@")):case 9 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("敔@布@"),CCCJCJC("卐@佈@"),CCCJCJC("幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("酈@偱@")):case 10 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("氌@譡@"),CCCJCJC("郣@闣@"),CCCJCJC("兠@譡@幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("宱@屙@")):case 11 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("內@劜@呓@"),CCCJCJC("郣@闣@"),CCCJCJC("幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("宱@屙@")):case 12 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("幭@譡@"),CCCJCJC("卐@佈@"),CCCJCJC("兠@譡@幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("宱@屙@")):case 13 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("孡@呓@"),CCCJCJC("卐@佈@"),CCCJCJC("幯@仸@"),CCCJCJC("戓@叆@"),CCCJCJC("缑@史@"),CCCJCJC("敔@呓@"),CCCJCJC("宱@屙@")):case 14 : CCJJJCJ=Array(CCCJCJC("月@劜@炴@"),CCCJCJC("局@氌@"),CCCJCJC("线@刦@"),CCCJCJC("幯@仸@"),CCCJCJC("邶@采@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("宱@屙@")):case 15 : CCJJJCJ=Array(CCCJCJC("卐@佈@"),CCCJCJC("盌@独@氌@譡@"),CCCJCJC("卐@佈@"),CCCJCJC("兠@譡@幯@仸@"),CCCJCJC("吇@了@"),CCCJCJC("缑@史@"),CCCJCJC("咣@话@布@"),CCCJCJC("宱@屙@")):case else : CCJJJCJ=CCJJJJC
end select:for CJCJCJJ=0 to Ubound(CJCCCCC):CJCCCCC(CJCJCJJ,0)=CCJJJJC(CJCJCJJ):CJCCCCC(CJCJCJJ,1)=CCJJJCJ(CJCJCJJ):next:for CJCJCJJ=0 to Ubound(CJCCCCC):if CJCCCCC(CJCJCJJ,0)=CJJJJJJJ then
CCCJJJJ=CJCCCCC(CJCJCJJ,1):exit for
end if:next:End Function::dim CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC:CCJJJCC=Request.QueryString(CCCJCJC(":5=:DE")):CCJJCCC=Request.QueryString(CCCJCJC("E23=6")):CCJJCJC=request.QueryString(CCCJCJC(">@3:=6")):CCJJCCJ=request.QueryString(CCCJCJC("4@?E6?E")):if not CJCCCCJ(2) then Call RedirectMessage(CCCJCJC("彎@剈@朥@廻@逕@扆@朵@矨@俜@劚@胸@，,晽@丈@胸@佺@産@。,"))
if CCJJJCC<>"" then
CCCCJC=CCCJCJC("D6=64E ,5:DE:?4E ,>@3:=6 ,7C@> ,") & IIf(CCJJCCC="",CCCJCJC(">6>36C"),CCJJCCC) & CCCJCJC(" ,H96C6 ,:5 ,:? ,W") & CCJJJCC & CCCJCJC("X"):set CCCJCC=CCCJJC.execute(CCCCJC):while not CCCJCC.eof:CCJJCJJ=CCCJCC(0):if CCJCJCC(CCJJCJJ) then CCJJCJC=CCJJCJC & CCCJCJC("[") & CCJJCJJ
CCCJCC.movenext:wend:if CCJJCJC<>"" then CCJJCJC=mid(CCJJCJC,2)
end if:if Request.Form(CCCJCJC("D6?5"))="1" then
dim CJCJCJJ:CCJJCJC=replace(Trim(Request.Form(CCCJCJC(">@3:=6"))),CCCJCJC("，,"),CCCJCJC("[")):CCJJCCJ=Trim(Request.Form(CCCJCJC("4@?E6?E"))):if CCJJCJC="" then Call RedirectMessage(CCCJCJC("诲@辎@兠@扆@朵@史@矼@，,夕@严@史@矼@産@递@史@随@廻@。,"))
if CCJJCCJ="" then Call RedirectMessage(CCCJCJC("双@迼@冀@宴@丵@穵@，,诲@患@塦@冔@双@迼@冀@宴@。,"))
CCJJCJC=split(CCJJCJC,CCCJCJC("[")):for CJCJCJJ=0 to ubound(CCJJCJC):Call SMS(CCJJCJC(CJCJCJJ),CJCCCCJ(50) & CCJJCCJ):next:Call RedirectMessage(CCCJCJC("扆@朵@矨@俜@巭@绊@双@迼@戋@劚@！,"))
end if:Response.Write(vbCrLf):Response.Write(CCCJCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJCJC("k9625m") & vbCrLf):Response.Write(CCCJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJCJC("kE:E=6m双@迼@扆@朵@矨@俜@k^E:E=6m") & vbCrLf):Response.Write(CCCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJCJC("k^9625m") & vbCrLf):Response.Write(CCCJCJC("k3@5Jm") & vbCrLf):Response.Write(CCCJCJC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCCJCJC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQD6?5D>D]2DAQm双@迼@扆@朵@矨@俜@k^2mk^=:m") & vbCrLf):Response.Write(CCCJCJC(" ,k=:mk2 ,9C67lQD6?5D>D032E49]2DAQm同@夕@严@扆@朵@双@迼@冀@宴@丈@吇@癿@矨@俜@k^2mk^=:m") & vbCrLf):Response.Write(CCCJCJC("k^F=m") & vbCrLf):Response.Write(CCCJCJC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCCJCJC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CCCJCJC(" ,kECm") & vbCrLf):Response.Write(CCCJCJC(" ,kE5 ,H:5E9lQd_Q ,G2=:8?lQE@AQm扆@朵@：,k^E5m") & vbCrLf):Response.Write(CCCJCJC(" ,kE5m") & vbCrLf):Response.Write(CCCJCJC(" ,kE6IE2C62 ,?2>6lQ>@3:=6Q ,DEJ=6lQH:5E9i`__TQ ,C@HDlQbQm")):Response.Write  CCJJCJC:Response.Write(CCCJCJC("k^E6IE2C62m") & vbCrLf):Response.Write(CCCJCJC(" ,k3Cm") & vbCrLf):Response.Write(CCCJCJC(" ,（,夕@严@扆@朵@史@矼@産@递@史@随@廻@）,") & vbCrLf):Response.Write(CCCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CCCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJC(" ,kECm") & vbCrLf):Response.Write(CCCJCJC(" ,kE5 ,G2=:8?lQE@AQm冀@宴@：,k^E5m") & vbCrLf):Response.Write(CCCJCJC(" ,kE5m") & vbCrLf):Response.Write(CCCJCJC(" ,kE6IE2C62 ,?2>6lQ4@?E6?EQ ,C@HDlQdQ ,:5lQ4@?E6?EQ ,DEJ=6lQH:5E9i`__TQ ,>2I=6?8E9lQedQm")):Response.Write  CCJJCCJ:Response.Write(CCCJCJC("k^E6IE2C62m") & vbCrLf):Response.Write(CCCJCJC(" ,k3Cm") & vbCrLf):Response.Write(CCCJCJC(" ,（,陋@ed严@孒@笡@）,") & vbCrLf):Response.Write(CCCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CCCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJC(" ,kECm") & vbCrLf):Response.Write(CCCJCJC(" ,kE5 ,4@=DA2?lQaQmk9C ,D:K6lQ`Qmk^E5m") & vbCrLf):Response.Write(CCCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJC(" ,kECm") & vbCrLf):Response.Write(CCCJCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCCJCJC(" ,kE5m") & vbCrLf):Response.Write(CCCJCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ双@ ,迼@Qm") & vbCrLf):Response.Write(CCCJCJC(" ,k:?AFE ,?2>6lQD6?5Q ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CCCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJCJC("k^7@C>m") & vbCrLf):Response.Write(CCCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJC("kD4C:AE ,DC4lQ^$4C:AED^3@@EDEC2A\>2I=6?8E9]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CCCJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJCJC(" ,SWVR4@?E6?EVX]>2I=6?8E9WX") & vbCrLf):Response.Write(CCCJCJC("NX") & vbCrLf):Response.Write(CCCJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CCCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CCCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJJC.Close:Set CCCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJCJC(ByVal CCCJCJJ)
Dim CCJCJJJ, CJCJCJJ, CJCCCJC
CCCJCJJ = Replace(CCCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJJ = 1 To Len(CCCJCJJ)
If CJCJCJJ <> CJCCCJC Then
CCJCJJJ = AscW(Mid(CCCJCJJ, CJCJCJJ, 1))
If CCJCJJJ >= 33 And CCJCJJJ <= 79 Then
CCCJCJC = CCCJCJC & Chr(CCJCJJJ + 47)
ElseIf CCJCJJJ >= 80 And CCJCJJJ <= 126 Then
CCCJCJC = CCCJCJC & Chr(CCJCJJJ - 47)
Else
CJCCCJC = CJCJCJJ + 1
If Mid(CCCJCJJ, CJCCCJC, 1) = Chr(64) Then CCCJCJC = CCCJCJC & ChrW(CCJCJJJ + 5) Else CCCJCJC = CCCJCJC & Mid(CCCJCJJ, CJCJCJJ, 1)
End If
End If
Next
End Function
%>