<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJC, CJCCJ,CJCCC, CCJJJ, CCJJC:Set CJCJC = server.CreateObject(CJJJJJC("ps~sq]r@??64E:@?")):CJCJC.open Application(CJJJJJC("r@??64E:@?$EC:?8")):Set CJCCJ=CJCJC::Dim CCJCJ,CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ:Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ:CJCCJJ=Trim(Request.Cookies(CJJJJJC("!$*|t|qt#"))):if CJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJ>0 then
CCJJC=CJJJJJC("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") & CCJCC & CJJJJJC("V ,2?5 ,:5l") & CCJCJ
set CJCCC=CJCJC.execute(CCJJC):If CJCCC.EOF Then
Call ClearMemberCookie
Else
CCCJJ=CJCCC(2) & "":CCCJC=CJCCC(3):CCCCJ=CJCCC(5):CCCCC=CJCCC(6):CJJJJJ=CJCCC(9):CJJJJC=CJCCC(15):CJJJCC=CJCCC(0):CJCJCJ=CJCCC(1):CJCJJC=CJCCC(11) & "":CJJCJJ=CJCCC(10) & "":CJJJCJ=CJCCC(12):CJJCJC=CJCCC(14):CJJCCJ=CJCCC(13):CJJCCC=CJCCC(7) & "":CJCJJJ=CJCCC(4):CJCJCC=CJCCC(8):if isnull(CJJJJC) then CJJJJC=0
if isnull(CJJJJJ) or CJJJJJ=0 then CJJJJJ=CCCJC
if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CCCCJ) then CCCCJ=0
if instr(CJJJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCC)>0 then Call RedirectMessage(CJJJJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCJ,CCJCC)
End IF
end if:Sub CheckRight(CJJJJCJ):dim CJCCJC,CJCCCJ:if CCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJJJ(CJJJJCJ) then
Call RedirectMessage(CJJJJJC("朾@陋@W") & CJJJJCJ & CJJJJJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJJJ(CJJJJCJ):dim CJCCJC,CJCCCJ:CJCCCJ=split(CJJJJCJ,CJJJJJC("[")):CCCJJJ=False:for CJCCJC=0 to ubound(CJCCCJ):If Mid(CCCJJ,CJCCCJ(CJCCJC),1)="1" then
CCCJJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJC("!$*|t|qt#"))="":CCJCJ=0:CCCCC=0:CCJCC=Empty:CCCCJ=0:CJJJJC=0:CJJJJJ=0:CCCJC=0:CJJJCC=False:CJCJCJ=False:CJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCC,CCJJJJ,CJCCJC,CCJJJC,CCJJCJ:CJCCCC=split(CJCCJJ,CJJJJJC("]")):if ubound(CJCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCC(0)) or len(CJCCCC(1))<>32 or len(CJCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJ=CJCCCC(1):for CJCCJC=1 to len(CCJJJJ):CCJJJC=mid(CCJJJJ,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJJJ=CJCCCC(2):if CCJJCJ<>mid(CCJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJC=mid(CCJJJJ,18,10)/2:if CCJJJC<DateDiff(CJJJJJC("D"), CJJJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJ=Clng(CJCCCC(0)):CCJCC=CJCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJCC,CJJJCJJ):dim CJCCJC,CCJJJC,CCJJCJ:for CJCCJC=1 to len(CJJJCJJ):CCJJJC=mid(CJJJCJJ,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJCJ=CJJJJCC & CJJJJJC("]") & CJJJCJJ & CJJJJJC("]") & Fix(10000*(Rnd+1)) & CCJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJC("D"), CJJJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJC("!$*|t|qt#"))=CCJJCJ:End Sub::::Const CCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJCJC,CJJJCCJ):dim CJCCCC:CJCCCC=CJJJCJC & "=" & CJJJCCJ & CJJJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJC("$6E\r@@<:6"),CJCCCC):End Sub:::::::Function CCCJJC(CCJCCJ):if isnull(CCJCCJ) or trim(CCJCCJ)="" or not isnumeric(CCJCCJ) then
CCCJJC=false
else
Dim CCJJCC:Set CCJJCC = New RegExp:CCJJCC.Pattern = CJJJJJC("/-5ZS"):CCJJCC.IgnoreCase = True:CCCJJC = CCJJCC.test(CCJCCJ):set CCJJCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:set CCCCJC=nothing:CCCCCJ.close : set CCCCCJ=nothing:CCJJJ.Close : Set CCJJJ=Nothing:CJCCC.Close : Set CJCCC=Nothing:CCCCCC.Close : Set CCCCCC = Nothing:CJCJC.Close : Set CJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJC("!$*0|6DD286"),server.URLEncode(CJJJCCC)):Response.Redirect CJJJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(25):dim CCJCJJ:CCJCJJ=request.QueryString(CJJJJJC("EJA6:5")):if CCCJJC(CCJCJJ) then
CJCJC.execute CJJJJJC("FA52E6 ,>6>36C ,D6E ,EJA6l") & CCJCJJ & CJJJJJC("[8C256l_ ,H96C6 ,:5l") & CCJCJ:response.Redirect CJJJJJC("]]^]]^D49@@=^:?56I]2DAnD49@@=l") & CCJCJJ
else
Call RedirectMessage(CJJJJJC("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
end if::On Error Resume Next:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:set CCCCJC=nothing:CCJJJ.Close:Set CCJJJ=Nothing:CJCCC.Close:Set CJCCC=Nothing:CJCJC.Close:Set CJCJC = Nothing:err.Clear:On Error Goto 0
Function CJJJJJC(ByVal CJJJJJJ)
Dim CCJCJC, CJCCJC, CCJCCJ
CJJJJJJ = Replace(CJJJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJC = 1 To Len(CJJJJJJ)
If CJCCJC <> CCJCCJ Then
CCJCJC = AscW(Mid(CJJJJJJ, CJCCJC, 1))
If CCJCJC >= 33 And CCJCJC <= 79 Then
CJJJJJC = CJJJJJC & Chr(CCJCJC + 47)
ElseIf CCJCJC >= 80 And CCJCJC <= 126 Then
CJJJJJC = CJJJJJC & Chr(CCJCJC - 47)
Else
CCJCCJ = CJCCJC + 1
If Mid(CJJJJJJ, CCJCCJ, 1) = Chr(64) Then CJJJJJC = CJJJJJC & ChrW(CCJCJC + 5) Else CJJJJJC = CJJJJJC & Mid(CJJJJJJ, CJCCJC, 1)
End If
End If
Next
End Function
%>