<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCJ, CCJJCC,CCJCJJ, CCJCJC, CCJCCJ:Set CCJJCJ = server.CreateObject(CJCCJCC("ps~sq]r@??64E:@?")):CCJJCJ.open Application(CJCCJCC("r@??64E:@?$EC:?8")):Set CCJJCC=CCJJCJ::Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC:CJJCJJC=Trim(Request.Cookies(CJCCJCC("!$*|t|qt#"))):if CJJCJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCC>0 then
CCJCCJ=CJCCJCC("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") & CCCJJJ & CJCCJCC("V ,2?5 ,:5l") & CCJCCC
set CCJCJJ=CCJJCJ.execute(CCJCCJ):If CCJCJJ.EOF Then
Call ClearMemberCookie
Else
CCCJJC=CCJCJJ(2) & "":CCCJCJ=CCJCJJ(3):CCCJCC=CCJCJJ(5):CCCCJJ=CCJCJJ(6):CCCCJC=CCJCJJ(9):CCCCCJ=CCJCJJ(15):CJJJJJJ=CCJCJJ(0):CJJJCCC=CCJCJJ(1):CJJJCCJ=CCJCJJ(11) & "":CJJJJJC=CCJCJJ(10) & "":CCCCCC=CCJCJJ(12):CJJJJCJ=CCJCJJ(14):CJJJJCC=CCJCJJ(13):CJJJCJJ=CCJCJJ(7) & "":CJJJCJC=CCJCJJ(4):CJJCJJJ=CCJCJJ(8):if isnull(CCCCCJ) then CCCCCJ=0
if isnull(CCCCJC) or CCCCJC=0 then CCCCJC=CCCJCJ
if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CCCJCC) then CCCJCC=0
if instr(CJCCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJJ)>0 then Call RedirectMessage(CJCCJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCCC,CCCJJJ)
End IF
end if:Sub CheckRight(CJCCCJJ):dim CJJCJCJ,CJJCJCC:if CCJCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCJJCC(CJCCCJJ) then
Call RedirectMessage(CJCCJCC("朾@陋@W") & CJCCCJJ & CJCCJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCJJCC(CJCCCJJ):dim CJJCJCJ,CJJCJCC:CJJCJCC=split(CJCCCJJ,CJCCJCC("[")):CJCJJCC=False:for CJJCJCJ=0 to ubound(CJJCJCC):If Mid(CCCJJC,CJJCJCC(CJJCJCJ),1)="1" then
CJCJJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCJCC("!$*|t|qt#"))="":CCJCCC=0:CCCCJJ=0:CCCJJJ=Empty:CCCJCC=0:CCCCCJ=0:CCCCJC=0:CCCJCJ=0:CJJJJJJ=False:CJJJCCC=False:CJJCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJJ,CJJCCJC,CJJCJCJ,CJJCCCJ,CJJCCCC:CJJCCJJ=split(CJJCJJC,CJCCJCC("]")):if ubound(CJJCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJJ(0)) or len(CJJCCJJ(1))<>32 or len(CJJCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCJC=CJJCCJJ(1):for CJJCJCJ=1 to len(CJJCCJC):CJJCCCJ=mid(CJJCCJC,CJJCJCJ,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCJC=CJJCCJJ(2):if CJJCCCC<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJJCCCJ=mid(CJJCCJC,18,10)/2:if CJJCCCJ<DateDiff(CJCCJCC("D"), CJCCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCC=Clng(CJJCCJJ(0)):CCCJJJ=CJJCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJC,CJCCCCJ):dim CJJCJCJ,CJJCCCJ,CJJCCCC:for CJJCJCJ=1 to len(CJCCCCJ):CJJCCCJ=mid(CJCCCCJ,CJJCJCJ,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCCC=CJCCCJC & CJCCJCC("]") & CJCCCCJ & CJCCJCC("]") & Fix(10000*(Rnd+1)) & CJJCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJCCJCC("D"), CJCCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJCC("!$*|t|qt#"))=CJJCCCC:End Sub::::Const CJCJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCCC,CCJJJJJ):dim CJJCCJJ:CJJCCJJ=CJCCCCC & "=" & CCJJJJJ & CJCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJCC("$6E\r@@<:6"),CJJCCJJ):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CJCJCJJ=nothing:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:CJCCJJJ.close : set CJCCJJJ=nothing:CCJCJC.Close : Set CCJCJC=Nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CJCCJJC.Close : Set CJCCJJC = Nothing:CCJJCJ.Close : Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJCC("!$*0|6DD286"),server.URLEncode(CCJJJJC)):Response.Redirect CJCCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(13):Response.Write(vbCrLf):Response.Write(CJCCJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCJCC("k9E>=m") & vbCrLf):Response.Write(CJCCJCC("k9625m") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCCJCC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCCJCC("kDEJ=6m") & vbCrLf):Response.Write(CJCCJCC("F= ,L ,>2C8:?\=67Ei ,a_AIj ,N") & vbCrLf):Response.Write(CJCCJCC("F= ,=: ,DA2? ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCCJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJCC("k^9625m") & vbCrLf):Response.Write(CJCCJCC("k3@5Jm") & vbCrLf):Response.Write(CJCCJCC("k5:G ,4=2DDlQE:E=6Qm甚@戋@兣@郣@释@衣@k^5:Gm") & vbCrLf):Response.Write(CJCCJCC("kF=m") & vbCrLf):Response.Write(CJCCJCC(" ,")):set CCJCJJ=CCJJCJ.execute(CJCCJCC("D6=64E ,:5[?2>6049 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE[:5")):while not CCJCJJ.eof:response.Write CJCCJCC("k=:m") & CCJCJJ(1) & CJCCJCC("kDA2?m") & CCJCJJ(0) & CJCCJCC("k^DA2?mk^=:m"):CCJCJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCCJCC("k^F=m") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCC(" ,SWVF=m=:VX]6249W7F?4E:@?W:?56I[ ,6=6>6?EX ,L") & vbCrLf):Response.Write(CJCCJCC(" ,G2C ,@lSWE9:DX") & vbCrLf):Response.Write(CJCCJCC(" ,S]86EWV>2<6@?6]2DAn:5lVZ@]49:=5C6?WVDA2?VX]E6IEWXZVU0VZ|2E9]C2?5@>WX[7F?4E:@?W52E2XL") & vbCrLf):Response.Write(CJCCJCC(" ,:7W52E2lllV_VXL@]AC6A6?5WV√, ,VXN") & vbCrLf):Response.Write(CJCCJCC(" ,NX") & vbCrLf):Response.Write(CJCCJCC(" ,NX") & vbCrLf):Response.Write(CJCCJCC("NX") & vbCrLf):Response.Write(CJCCJCC("7F?4E:@? ,>2<6@?6W:5XLN") & vbCrLf):Response.Write(CJCCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCJJ=nothing:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:CCJCJC.Close:Set CCJCJC=Nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCJ.Close:Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJCC(ByVal CJCCJCJ)
Dim CJCJJJJ, CJJCJCJ, CJCJJJC
CJCCJCJ = Replace(CJCCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CJCCJCJ)
If CJJCJCJ <> CJCJJJC Then
CJCJJJJ = AscW(Mid(CJCCJCJ, CJJCJCJ, 1))
If CJCJJJJ >= 33 And CJCJJJJ <= 79 Then
CJCCJCC = CJCCJCC & Chr(CJCJJJJ + 47)
ElseIf CJCJJJJ >= 80 And CJCJJJJ <= 126 Then
CJCCJCC = CJCCJCC & Chr(CJCJJJJ - 47)
Else
CJCJJJC = CJJCJCJ + 1
If Mid(CJCCJCJ, CJCJJJC, 1) = Chr(64) Then CJCCJCC = CJCCJCC & ChrW(CJCJJJJ + 5) Else CJCCJCC = CJCCJCC & Mid(CJCCJCJ, CJJCJCJ, 1)
End If
End If
Next
End Function
%>