<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CJCJCCJ("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CJCJCCJ("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC:CJJJCJC=Trim(Request.Cookies(CJCJCCJ("!$*|t|qt#"))):if CJJJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCC>0 then
CCJJCJ=CJCJCCJ("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") & CCJCJJ & CJCJCCJ("V ,2?5 ,:5l") & CCJJCC
set CCJJJJ=CJCCCJ.execute(CCJJCJ):If CCJJJJ.EOF Then
Call ClearMemberCookie
Else
CCJCJC=CCJJJJ(2) & "":CCJCCJ=CCJJJJ(3):CCJCCC=CCJJJJ(5):CCCJJJ=CCJJJJ(6):CCCJJC=CCJJJJ(9):CCCJCJ=CCJJJJ(15):CCCCJJ=CCJJJJ(0):CJJJJCC=CCJJJJ(1):CJJJJCJ=CCJJJJ(11) & "":CCCCJC=CCJJJJ(10) & "":CCCJCC=CCJJJJ(12):CCCCCJ=CCJJJJ(14):CCCCCC=CCJJJJ(13):CJJJJJJ=CCJJJJ(7) & "":CJJJJJC=CCJJJJ(4):CJJJCJJ=CCJJJJ(8):if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCCJJC) or CCCJJC=0 then CCCJJC=CCJCCJ
if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CCJCCC) then CCJCCC=0
if instr(CJCJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJJ)>0 then Call RedirectMessage(CJCJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJCC,CCJCJJ)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CJCJCCJ("!$*|t|qt#"))="":CCJJCC=0:CCCJJJ=0:CCJCJJ=Empty:CCJCCC=0:CCCJCJ=0:CCCJJC=0:CCJCCJ=0:CCCCJJ=False:CJJJJCC=False:CJJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:CJJJCCJ=split(CJJJCJC,CJCJCCJ("]")):if ubound(CJJJCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCCJ(0)) or len(CJJJCCJ(1))<>32 or len(CJJJCCJ(2))<>32 then
Call ClearMemberCookie
else
CJJJCCC=CJJJCCJ(1):for CJJCJJJ=1 to len(CJJJCCC):CJJCJJC=mid(CJJJCCC,CJJCJJJ,1):if isnumeric(CJJCJJC) then CJJCJCJ=CJJCJCJ & CJJCJJC
if len(CJJCJCJ)=7 then exit for
next:CJJJCCC=CJJJCCJ(2):if CJJCJCJ<>mid(CJJJCCC,6,7) then
Call ClearMemberCookie
else
CJJCJJC=mid(CJJJCCC,18,10)/2:if CJJCJJC<DateDiff(CJCJCCJ("D"), CJCJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCC=Clng(CJJJCCJ(0)):CCJCJJ=CJJJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCC,CJCJCCC):dim CJJCJJJ,CJJCJJC,CJJCJCJ:for CJJCJJJ=1 to len(CJCJCCC):CJJCJJC=mid(CJCJCCC,CJJCJJJ,1):if isnumeric(CJJCJJC) then CJJCJCJ=CJJCJCJ & CJJCJJC
if len(CJJCJCJ)=7 then exit for
next:CJJCJCJ=CJJCJCC & CJCJCCJ("]") & CJCJCCC & CJCJCCJ("]") & Fix(10000*(Rnd+1)) & CJJCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJCCJ("D"), CJCJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCCJ("!$*|t|qt#"))=CJJCJCJ:End Sub::::Const CJJCCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCJJJ,CJCCJJC):dim CJJJCCJ:CJJJCCJ=CJCCJJJ & "=" & CJCCJJC & CJCJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCCJ("$6E\r@@<:6"),CJJJCCJ):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CJJCCCC=nothing:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:CJCJJCC.close : set CJCJJCC=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CJCJCJJ.Close : Set CJCJCJJ = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCCJ("!$*0|6DD286"),server.URLEncode(CJCCJCJ)):Response.Redirect CJCJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJCJCC:CJJCJCC=Request.QueryString(CJCJCCJ(":5")):set CCJJJJ=CJCCCJ.execute(CJCJCCJ("D6=64E ,E@A ,` ,?2>6[56D4C:AE:@?[A:4EFC6 ,7C@> ,D2?5A=2J0E9:?8 ,H96C6 ,:5l") & CJJCJCC):if CCJJJJ.eof then RedirectMessage(CJCJCCJ("寴@丈@赲@，,沜@朄@批@别@盳@序@癿@冀@宴@！,"))
Response.Write(vbCrLf):Response.Write(CJCJCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJCCJ("k9E>=m") & vbCrLf):Response.Write(CJCJCCJ("k9625m") & vbCrLf):Response.Write(CJCJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCJCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJCJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJCCJ("E5 ,L ,7@?E\D:K6i ,`cAIj ,=:?6\96:89Ei ,a_AIj ,N") & vbCrLf):Response.Write(CJCJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCCJ("k^9625m") & vbCrLf):Response.Write(CJCJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJCJCCJ("k5:G ,4=2DDlQE:E=6Qm厚@垆@俜@恪@k^5:Gm") & vbCrLf):Response.Write(CJCJCCJ("kE23=6 ,46==DA24:?8lQdQm") & vbCrLf):Response.Write(CJCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5 ,G2=:8?lQE@AQmk:>8 ,DC4lQ]]^]]^D2?5A=2J^A:4EFC6^")):Response.Write  CCJJJJ(2):Response.Write(CJCJCCJ("Q ,H:5E9lQc__Q ,96:89ElQb__Q ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5 ,G2=:8?lQE@AQm") & vbCrLf):Response.Write(CJCJCCJ(" ,kE23=6m") & vbCrLf):Response.Write(CJCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5 ,?@HC2AlQ?@HC2AQm合@秫@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5m")):Response.Write  CCJJJJ(0):Response.Write(CJCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5 ,G2=:8?lQE@AQm揊@迫@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5m")):Response.Write  replace(CCJJJJ(1),vbcrlf,CJCJCCJ("k3C ,^m")):Response.Write(CJCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,kE5mk:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ迏@ ,囙@Q ,@?4=:4<lQ;2G2D4C:AEi9:DE@CJ]324<WXjQ ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJ("k^E23=6m") & vbCrLf):Response.Write(CJCJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCC=nothing:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCCJ(ByVal CJCJCJC)
Dim CJJCCJJ, CJJCJJJ, CJJCCJC
CJCJCJC = Replace(CJCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJJJ = 1 To Len(CJCJCJC)
If CJJCJJJ <> CJJCCJC Then
CJJCCJJ = AscW(Mid(CJCJCJC, CJJCJJJ, 1))
If CJJCCJJ >= 33 And CJJCCJJ <= 79 Then
CJCJCCJ = CJCJCCJ & Chr(CJJCCJJ + 47)
ElseIf CJJCCJJ >= 80 And CJJCCJJ <= 126 Then
CJCJCCJ = CJCJCCJ & Chr(CJJCCJJ - 47)
Else
CJJCCJC = CJJCJJJ + 1
If Mid(CJCJCJC, CJJCCJC, 1) = Chr(64) Then CJCJCCJ = CJCJCCJ & ChrW(CJJCCJJ + 5) Else CJCJCCJ = CJCJCCJ & Mid(CJCJCJC, CJJCJJJ, 1)
End If
End If
Next
End Function
%>