<%
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(CJCCCCC("!$*|t|qt#"))):if CJCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCJ>0 then
CJCCCJJ=CJCCCCC("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 & CJCCCCC("V ,2?5 ,:5l") & CJJJJCJ
set CJCCCJC=con.execute(CJCCCJJ):If CJCCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJJ=CJCCCJC(2) & "":CJJJCJC=CJCCCJC(3):CJJJCCJ=CJCCCJC(5):CJJJCCC=CJCCCJC(6):CJJCJJJ=CJCCCJC(9):CJJCJJC=CJCCCJC(15):CJJCJCC=CJCCCJC(0):CJCJJCJ=CJCCCJC(1):CJCJJJC=CJCCCJC(11) & "":CJJCCJJ=CJCCCJC(10) & "":CJJCJCJ=CJCCCJC(12):CJJCCJC=CJCCCJC(14):CJJCCCJ=CJCCCJC(13):CJJCCCC=CJCCCJC(7) & "":CJCJJJJ=CJCCCJC(4):CJCJJCC=CJCCCJC(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(CJCCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCC)>0 then Call RedirectMessage(CJCCCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJCJ,CJJJJCC)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CJCCCCC("!$*|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,CJCCCCC("]")):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(CJCCCCC("D"), CJCCCCC("`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(CCJJJJJ,CCJJJJC):dim CJCJCCC,CJCCJJJ,CJCCJJC:for CJCJCCC=1 to len(CCJJJJC):CJCCJJJ=mid(CCJJJJC,CJCJCCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJC=CCJJJJJ & CJCCCCC("]") & CCJJJJC & CJCCCCC("]") & Fix(10000*(Rnd+1)) & CJCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCCC("D"), CJCCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCCC("!$*|t|qt#"))=CJCCJJC:End Sub:Response.Write(vbCrLf)
Function CJCCCCC(ByVal CJCCCCJ)
Dim CJCCJCJ, CJCJCCC, CJCCJCC
CJCCCCJ = Replace(CJCCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCC = 1 To Len(CJCCCCJ)
If CJCJCCC <> CJCCJCC Then
CJCCJCJ = AscW(Mid(CJCCCCJ, CJCJCCC, 1))
If CJCCJCJ >= 33 And CJCCJCJ <= 79 Then
CJCCCCC = CJCCCCC & Chr(CJCCJCJ + 47)
ElseIf CJCCJCJ >= 80 And CJCCJCJ <= 126 Then
CJCCCCC = CJCCCCC & Chr(CJCCJCJ - 47)
Else
CJCCJCC = CJCJCCC + 1
If Mid(CJCCCCJ, CJCCJCC, 1) = Chr(64) Then CJCCCCC = CJCCCCC & ChrW(CJCCJCJ + 5) Else CJCCCCC = CJCCCCC & Mid(CJCCCCJ, CJCJCCC, 1)
End If
End If
Next
End Function
%>