<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJC, CCCCCJ,CCCCCC, CJJJJJJ, CJJJJJC:Set CCCCJC = server.CreateObject(CCJJCCC("ps~sq]r@??64E:@?")):CCCCJC.open Application(CCJJCCC("r@??64E:@?$EC:?8")):Set CCCCCJ=CCCCJC::Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ:CJCJCJJ=Trim(Request.Cookies(CCJJCCC("!$*|t|qt#"))):if CJCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCJ>0 then
CJJJJJC=CCJJCCC("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") & CJJJJCC & CCJJCCC("V ,2?5 ,:5l") & CJJJJCJ
set CCCCCC=CCCCJC.execute(CJJJJJC):If CCCCCC.EOF Then
Call ClearMemberCookie
Else
CJJJCJJ=CCCCCC(2) & "":CJJJCJC=CCCCCC(3):CJJJCCJ=CCCCCC(5):CJJJCCC=CCCCCC(6):CJJCJJJ=CCCCCC(9):CJJCJJC=CCCCCC(15):CJJCJCC=CCCCCC(0):CJCJJCJ=CCCCCC(1):CJCJJJC=CCCCCC(11) & "":CJJCCJJ=CCCCCC(10) & "":CJJCJCJ=CCCCCC(12):CJJCCJC=CCCCCC(14):CJJCCCJ=CCCCCC(13):CJJCCCC=CCCCCC(7) & "":CJCJJJJ=CCCCCC(4):CJCJJCC=CCCCCC(8):if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CJJCJJJ) or CJJCJJJ=0 then CJJCJJJ=CJJJCJC
if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJJCCJ) then CJJJCCJ=0
if instr(CCJJCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCC)>0 then Call RedirectMessage(CCJJCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJCJ,CJJJJCC)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CCJJCCC("!$*|t|qt#"))="":CJJJJCJ=0:CJJJCCC=0:CJJJJCC=Empty:CJJJCCJ=0:CJJCJJC=0:CJJCJJJ=0:CJJJCJC=0:CJJCJCC=False:CJCJJCJ=False:CJCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:CJCJCJC=split(CJCJCJJ,CCJJCCC("]")):if ubound(CJCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJC(0)) or len(CJCJCJC(1))<>32 or len(CJCJCJC(2))<>32 then
Call ClearMemberCookie
else
CJCJCCJ=CJCJCJC(1):for CJCJCCC=1 to len(CJCJCCJ):CJCCJJJ=mid(CJCJCCJ,CJCJCCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCJCCJ=CJCJCJC(2):if CJCCJJC<>mid(CJCJCCJ,6,7) then
Call ClearMemberCookie
else
CJCCJJJ=mid(CJCJCCJ,18,10)/2:if CJCCJJJ<DateDiff(CCJJCCC("D"), CCJJCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCJ=Clng(CJCJCJC(0)):CJJJJCC=CJCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCJCC,CCJCJJJ):dim CJCJCCC,CJCCJJJ,CJCCJJC:for CJCJCCC=1 to len(CCJCJJJ):CJCCJJJ=mid(CCJCJJJ,CJCJCCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJC=CJCCJCC & CCJJCCC("]") & CCJCJJJ & CCJJCCC("]") & Fix(10000*(Rnd+1)) & CJCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CCJJCCC("D"), CCJJCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCCC("!$*|t|qt#"))=CJCCJJC:End Sub::::Const CJCCCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCJJC,CCJCJCJ):dim CJCJCJC:CJCJCJC=CCJCJJC & "=" & CCJCJCJ & CCJJCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCCC("$6E\r@@<:6"),CJCJCJC):End Sub:::::::Function CJCCCCC(CJCCCJC):if isnull(CJCCCJC) or trim(CJCCCJC)="" or not isnumeric(CJCCCJC) then
CJCCCCC=false
else
Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CCJJCCC("/-5ZS"):CJCCJCJ.IgnoreCase = True:CJCCCCC = CJCCJCJ.test(CJCCCJC):set CJCCJCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJJJJ=nothing:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:CCJJCJJ.close : set CCJJCJJ=nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:CCCCCC.Close : Set CCCCCC=Nothing:CCJJCJC.Close : Set CCJJCJC = Nothing:CCCCJC.Close : Set CCCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCCC("!$*0|6DD286"),server.URLEncode(CCJCJCC)):Response.Redirect CCJJCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJCCJCC:CJCCJCC=request.QueryString(CCJJCCC(":5")):if not CJCCCCC(CJCCJCC) then Call RedirectMessage(CCJJCCC("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
set CCCCCC=CCCCJC.execute(CCJJCCC("D6=64E ,E@A ,` ,E@@= ,7C@> ,vC@FAvF:52?46 ,H96C6 ,:5l") & CJCCJCC):if CCCCCC.eof then Call RedirectMessage(CCJJCCC("寴@丈@赲@，,沜@朄@批@别@讫@彐@！,"))
Response.Write(vbCrLf):Response.Write(CCJJCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCCC("k9625m") & vbCrLf):Response.Write(CCJJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCCC("kE:E=6m淶@力@噣@杋@k^E:E=6m") & vbCrLf):Response.Write(CCJJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^DEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^:>286\A:4<6C^:>286\A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCCC("kDEJ=6m") & vbCrLf):Response.Write(CCJJCCC("E6IE2C62 ,L ,5:DA=2Ji ,?@?6 ,N") & vbCrLf):Response.Write(CCJJCCC("D6=64E ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCJJCCC("A ,L ,E6IE\:?56?Ei ,_j ,>2C8:?\3@EE@>i ,_j ,N") & vbCrLf):Response.Write(CCJJCCC("5:G]D6=64E65 ,A ,L ,4@=@Ci ,R777j ,N") & vbCrLf):Response.Write(CCJJCCC(":>8 ,L ,96:89Ei ,`__AIj ,N") & vbCrLf):Response.Write(CCJJCCC("R=:DE ,:>8 ,L ,3@C56Ci ,`AI ,D@=:5 ,R444j ,A255:?8i ,dAIj ,>2C8:?\C:89Ei ,`_AIj ,N") & vbCrLf):Response.Write(CCJJCCC("5:G]E9F>3?2:= ,L ,4FCD@Ci ,A@:?E6Cj ,N") & vbCrLf):Response.Write(CCJJCCC("k^DEJ=6m") & vbCrLf):Response.Write(CCJJCCC("k^9625m") & vbCrLf):Response.Write(CCJJCCC("k3@5Jm") & vbCrLf):Response.Write(CCJJCCC("k7@C>m") & vbCrLf):Response.Write(CCJJCCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJJCCC(" ,k=686?5m丅@伛@k^=686?5m") & vbCrLf):Response.Write(CCJJCCC(" ,k:7C2>6 ,DC4lQ]]^]]^]]^:?4^FA=@25]2DAnp4El`Uu%l`Uu|lFC=Qmk^:7C2>6m") & vbCrLf):Response.Write(CCJJCCC(" ,kE6IE2C62 ,?2>6lQ7:=6=:DEQmk^E6IE2C62m") & vbCrLf):Response.Write(CCJJCCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQFC=Q ,:5lQFC=Qm") & vbCrLf):Response.Write(CCJJCCC(" ,k5:G ,:5lQ=:DEQmk^5:Gm") & vbCrLf):Response.Write(CCJJCCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJJCCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJJCCC(" ,k=686?5m仉@噣@杋@庎@逄@拤@k^=686?5m") & vbCrLf):Response.Write(CCJJCCC(" ,kD6=64E ,>F=E:A=6m") & vbCrLf):Response.Write(CCJJCCC(" ,")):CJJJJJC=CCJJCCC("D6=64E ,:5[?2>6[FC=[:?EC@ ,7C@> ,vC@FAvF:52?460%@@= ,H96C6 ,W>6>36CEJA6l_ ,@C ,>6>36CEJA6l") & CJJJCJC & CCJJCCC("X"):if len(CCCCCC(0))>0 then CJJJJJC=CJJJJJC & CCJJCCC(" ,2?5 ,:5 ,?@E ,:? ,W") & CCCCCC(0) & CCJJCCC("X")
CJJJJJC=CJJJJJC & CCJJCCC(" ,@C56C ,3J ,52E6E:>6 ,56D4"):set CCCCCC=CCCCJC.execute(CJJJJJC):while not CCCCCC.eof:response.Write CCJJCCC("k@AE:@? ,52E2\:>8\DC4lV") & replace(CCCCCC(2),chr(9),"") & CCJJCCC("V ,52E2\:>8\2=ElV") & CCCCCC(3) & CCJJCCC("V ,G2=F6lV") & CCCCCC(0) & CCJJCCC("Vm") & CCCCCC(1) & CCJJCCC("k^@AE:@?m")
CCCCCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCJJCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJJCCC(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJJCCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ硩@ ,宕@Qm") & vbCrLf):Response.Write(CCJJCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCC("k^7@C>m") & vbCrLf):Response.Write(CCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^:>286\A:4<6C^:>286\A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCC("kD4C:AEm") & vbCrLf):Response.Write(CCJJCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCC(" ,D6Ex?E6CG2=W7F?4E:@?WXLSWVRFC=VX]EC:886Cw2?5=6CWV492?86VXjN[a___Xj") & vbCrLf):Response.Write(CCJJCCC(" ,SWVRFC=VX]@?WV492?86V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCC(" ,G2C ,GlSWE9:DX]G2=WXj") & vbCrLf):Response.Write(CCJJCCC(" ,:7WGPllVVXL") & vbCrLf):Response.Write(CCJJCCC(" ,SWE9:DX]G2=WVVXj") & vbCrLf):Response.Write(CCJJCCC(" ,SWVR=:DEVX]2AA6?5WVk:>8 ,DC4lQVZGZVQmVXj") & vbCrLf):Response.Write(CCJJCCC(" ,N") & vbCrLf):Response.Write(CCJJCCC(" ,NXj") & vbCrLf):Response.Write(CCJJCCC(" ,SWVD6=64EVX]:>286A:4<6CWLD9@H0=236=i ,ECF6NXj") & vbCrLf):Response.Write(CCJJCCC(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCC(" ,G2C ,S>2:?lA2C6?E]SWVR>2:?VXj") & vbCrLf):Response.Write(CCJJCCC(" ,G2C ,7:=6lSWVE6IE2C62VX]G2=WX]C6A=246W^-?^8[VMVXj") & vbCrLf):Response.Write(CCJJCCC(" ,G2C ,E@@=lSWVD6=64EVX]G2=WX]E@$EC:?8WXj") & vbCrLf):Response.Write(CCJJCCC(" ,7:=6l7:=6]DF3DEC:?8W_[7:=6]=6?8E9\`Xj") & vbCrLf):Response.Write(CCJJCCC(" ,^^逄@拤@囹@牂@") & vbCrLf):Response.Write(CCJJCCC(" ,:7WE@@=PllVVXL") & vbCrLf):Response.Write(CCJJCCC(" ,G2C ,SE@@=lS>2:?]4@?E6?EDWX]7:?5WVRE@@=VXj") & vbCrLf):Response.Write(CCJJCCC(" ,:7WSE@@=]G2=WXlllVVXLSE@@=]G2=WE@@=XjN") & vbCrLf):Response.Write(CCJJCCC(" ,6=D6LSE@@=]G2=WSE@@=]G2=WXZV[VZE@@=XjN") & vbCrLf):Response.Write(CCJJCCC(" ,N") & vbCrLf):Response.Write(CCJJCCC(" ,^^丅@伛@囹@牂@") & vbCrLf):Response.Write(CCJJCCC(" ,:7W7:=6PllVVXL") & vbCrLf):Response.Write(CCJJCCC(" ,G2C ,SE@@=0>JlS>2:?]4@?E6?EDWX]7:?5WVRE@@=0>JVXj") & vbCrLf):Response.Write(CCJJCCC(" ,:7WSE@@=0>J]G2=WXlllVVXLSE@@=0>J]G2=W7:=6XjN") & vbCrLf):Response.Write(CCJJCCC(" ,6=D6LSE@@=0>J]G2=WSE@@=0>J]G2=WXZVMVZ7:=6XjN") & vbCrLf):Response.Write(CCJJCCC(" ,N") & vbCrLf):Response.Write(CCJJCCC(" ,S>2:?,_.]4@?E6?E(:?5@H]A@DEE@@=WXj") & vbCrLf):Response.Write(CCJJCCC(" ,A2C6?E]=2J6C]4=@D6p==WXj") & vbCrLf):Response.Write(CCJJCCC(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CCJJCCC(" ,NXj") & vbCrLf):Response.Write(CCJJCCC("NXj") & vbCrLf):Response.Write(CCJJCCC("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCCC("k^3@5Jm") & vbCrLf):Response.Write(CCJJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJJ=nothing:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCJC.Close:Set CCCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCCC(ByVal CCJJCCJ)
Dim CJCCCJJ, CJCJCCC, CJCCCJC
CCJJCCJ = Replace(CCJJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCC = 1 To Len(CCJJCCJ)
If CJCJCCC <> CJCCCJC Then
CJCCCJJ = AscW(Mid(CCJJCCJ, CJCJCCC, 1))
If CJCCCJJ >= 33 And CJCCCJJ <= 79 Then
CCJJCCC = CCJJCCC & Chr(CJCCCJJ + 47)
ElseIf CJCCCJJ >= 80 And CJCCCJJ <= 126 Then
CCJJCCC = CCJJCCC & Chr(CJCCCJJ - 47)
Else
CJCCCJC = CJCJCCC + 1
If Mid(CCJJCCJ, CJCCCJC, 1) = Chr(64) Then CCJJCCC = CCJJCCC & ChrW(CJCCCJJ + 5) Else CCJJCCC = CCJJCCC & Mid(CCJJCCJ, CJCJCCC, 1)
End If
End If
Next
End Function
%>