<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCJJ, CJJCJC,CJJCCJ, CJJCCC, CJCJJJ:Set CJJCJJ = server.CreateObject(CJJCCCJ("ps~sq]r@??64E:@?")):CJJCJJ.open Application(CJJCCCJ("r@??64E:@?$EC:?8")):Set CJJCJC=CJJCJJ::Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC:CCCJCC=Trim(Request.Cookies(CJJCCCJ("!$*|t|qt#"))):if CCCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJJC>0 then
CJCJJJ=CJJCCCJ("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") & CJCJCJ & CJJCCCJ("V ,2?5 ,:5l") & CJCJJC
set CJJCCJ=CJJCJJ.execute(CJCJJJ):If CJJCCJ.EOF Then
Call ClearMemberCookie
Else
CJCJCC=CJJCCJ(2) & "":CJCCJJ=CJJCCJ(3):CJCCJC=CJJCCJ(5):CJCCCJ=CJJCCJ(6):CJCCCC=CJJCCJ(9):CCJJJJ=CJJCCJ(15):CCJJCJ=CJJCCJ(0):CCCJJC=CJJCCJ(1):CCCJJJ=CJJCCJ(11) & "":CCJJCC=CJJCCJ(10) & "":CCJJJC=CJJCCJ(12):CCJCJJ=CJJCCJ(14):CCJCJC=CJJCCJ(13):CCJCCJ=CJJCCJ(7) & "":CCJCCC=CJJCCJ(4):CCCJCJ=CJJCCJ(8):if isnull(CCJJJJ) then CCJJJJ=0
if isnull(CJCCCC) or CJCCCC=0 then CJCCCC=CJCCJJ
if isnull(CCJCCC) then CCJCCC=0
if isnull(CJCCJC) then CJCCJC=0
if instr(CJJCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJCJ)>0 then Call RedirectMessage(CJJCCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCJJC,CJCJCJ)
End IF
end if:Sub CheckRight(CJJCCCC):dim CCCCJJ,CCCCJC:if CJCJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJCCJ(CJJCCCC) then
Call RedirectMessage(CJJCCCJ("朾@陋@W") & CJJCCCC & CJJCCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJCCJ(CJJCCCC):dim CCCCJJ,CCCCJC:CCCCJC=split(CJJCCCC,CJJCCCJ("[")):CJJJCCJ=False:for CCCCJJ=0 to ubound(CCCCJC):If Mid(CJCJCC,CCCCJC(CCCCJJ),1)="1" then
CJJJCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCCCJ("!$*|t|qt#"))="":CJCJJC=0:CJCCCJ=0:CJCJCJ=Empty:CJCCJC=0:CCJJJJ=0:CJCCCC=0:CJCCJJ=0:CCJJCJ=False:CCCJJC=False:CCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCCJ,CCCCCC,CCCCJJ,CJJJJJJ,CJJJJJC:CCCCCJ=split(CCCJCC,CJJCCCJ("]")):if ubound(CCCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCCJ(0)) or len(CCCCCJ(1))<>32 or len(CCCCCJ(2))<>32 then
Call ClearMemberCookie
else
CCCCCC=CCCCCJ(1):for CCCCJJ=1 to len(CCCCCC):CJJJJJJ=mid(CCCCCC,CCCCJJ,1):if isnumeric(CJJJJJJ) then CJJJJJC=CJJJJJC & CJJJJJJ
if len(CJJJJJC)=7 then exit for
next:CCCCCC=CCCCCJ(2):if CJJJJJC<>mid(CCCCCC,6,7) then
Call ClearMemberCookie
else
CJJJJJJ=mid(CCCCCC,18,10)/2:if CJJJJJJ<DateDiff(CJJCCCJ("D"), CJJCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJJC=Clng(CCCCCJ(0)):CJCJCJ=CCCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJJJ,CJCJJJC):dim CCCCJJ,CJJJJJJ,CJJJJJC:for CCCCJJ=1 to len(CJCJJJC):CJJJJJJ=mid(CJCJJJC,CCCCJJ,1):if isnumeric(CJJJJJJ) then CJJJJJC=CJJJJJC & CJJJJJJ
if len(CJJJJJC)=7 then exit for
next:CJJJJJC=CJCJJJJ & CJJCCCJ("]") & CJCJJJC & CJJCCCJ("]") & Fix(10000*(Rnd+1)) & CJJJJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCJ("D"), CJJCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCJ("!$*|t|qt#"))=CJJJJJC:End Sub::::Const CJJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJCJ,CJCJJCC):dim CCCCCJ:CCCCCJ=CJCJJCJ & "=" & CJCJJCC & CJJCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJ("$6E\r@@<:6"),CCCCCJ):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CJJJCCC=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJJCCC.Close : Set CJJCCC=Nothing:CJJCCJ.Close : Set CJJCCJ=Nothing:CJJCCJJ.Close : Set CJJCCJJ = Nothing:CJJCJJ.Close : Set CJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJ("!$*0|6DD286"),server.URLEncode(CJCJCJJ)):Response.Redirect CJJCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(5):Response.Write(vbCrLf):Response.Write(CJJCCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCCJ("k9625m") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJ("k^9625m") & vbCrLf):Response.Write(CJJCCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJ("kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf):Response.Write(CJJCCCJ(" ,kEC ,384@=@ClQRset_ugQm") & vbCrLf):Response.Write(CJJCCCJ(" ,kE5mkE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf):Response.Write(CJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJ(" ,kE5mk:>8 ,DC4lQ:>286D^DE2CD]8:7Q ,H:5E9lQbaQ ,96:89ElQbaQ ,9DA246lQ`_Q ,2=:8?lQ23D>:55=6Qm")):Response.Write  CCJCJC:Response.Write(CJJCCCJ("，,欝@迉@患@迖@兠@徾@琁@箜@琁@糶@绚@k^E5m") & vbCrLf):Response.Write(CJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJ(" ,k^E23=6mk^E5m") & vbCrLf):Response.Write(CJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJ("k^E23=6m") & vbCrLf)::dim CJJJJCJ,CJJJJCC(30),CCCCJJ:CJJJJCJ=Array(CJJCCCJ("丅@浲@"),CJJCCCJ("沮@匒@"),CJJCCCJ("屬@襺@"),CJJCCCJ("冀@蒔@叟@"),CJJCCCJ("辸@孼@"),CJJCCCJ("各@枒@"),CJJCCCJ("黌@龔@汚@"),CJJCCCJ("汚@苊@"),CJJCCCJ("浔@汚@"),CJJCCCJ("宄@徸@"),CJJCCCJ("禊@廵@"),CJJCCCJ("汚@襺@"),CJJCCCJ("屬@丗@"),CJJCCCJ("沮@卒@"),CJJCCCJ("湑@匒@"),CJJCCCJ("湑@卒@"),CJJCCCJ("幺@丗@"),CJJCCCJ("幺@襺@"),CJJCCCJ("浲@卒@"),CJJCCCJ("囖@巘@"),CJJCCCJ("贰@巙@"),CJJCCCJ("二@卒@"),CJJCCCJ("襺@藊@"),CJJCCCJ("限@襺@"),CJJCCCJ("甓@聾@"),CJJCCCJ("靍@浲@"),CJJCCCJ("孼@夊@"),CJJCCCJ("斫@疁@"),CJJCCCJ("匒@产@"),CJJCCCJ("夤@洠@"),CJJCCCJ("釈@庁@"),CJJCCCJ("馔@渪@"),CJJCCCJ("澮@闣@")):Randomize:for CCCCJJ=0 to 30:CJJJJCC(CCCCJJ)=Int(10000*Rnd):next:Response.Write(vbCrLf):Response.Write(CJJCCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  join(CJJJJCJ,CJJCCCJ("M")):Response.Write(CJJCCCJ("Qm") & vbCrLf):Response.Write(CJJCCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQGQ ,G2=F6lQ")):Response.Write  join(CJJJJCC,CJJCCCJ("M")):Response.Write(CJJCCCJ("Qm") & vbCrLf):Response.Write(CJJCCCJ("kP\\D4C:AE ,DC4lQ^$4C:AED^492CE06492CED];Dn4l>2AUKlC@>2UEl廵@桞@亵@敫@（,敫@孒@丵@隊@朵@）,U9ld__Qmk^D4C:AE\\m") & vbCrLf):Response.Write(CJJCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCC=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CJJCCC.Close:Set CJJCCC=Nothing:CJJCCJ.Close:Set CJJCCJ=Nothing:CJJCJJ.Close:Set CJJCJJ = Nothing:err.Clear:On Error Goto 0
Function CJJCCCJ(ByVal CJJCCJC)
Dim CJJJJCC, CCCCJJ, CJJJCJJ
CJJCCJC = Replace(CJJCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCJJ = 1 To Len(CJJCCJC)
If CCCCJJ <> CJJJCJJ Then
CJJJJCC = AscW(Mid(CJJCCJC, CCCCJJ, 1))
If CJJJJCC >= 33 And CJJJJCC <= 79 Then
CJJCCCJ = CJJCCCJ & Chr(CJJJJCC + 47)
ElseIf CJJJJCC >= 80 And CJJJJCC <= 126 Then
CJJCCCJ = CJJCCCJ & Chr(CJJJJCC - 47)
Else
CJJJCJJ = CCCCJJ + 1
If Mid(CJJCCJC, CJJJCJJ, 1) = Chr(64) Then CJJCCCJ = CJJCCCJ & ChrW(CJJJJCC + 5) Else CJJCCCJ = CJJCCCJ & Mid(CJJCCJC, CCCCJJ, 1)
End If
End If
Next
End Function
%>