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