<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCJ, CCCJCC,CCCCJJ, CCCCJC, CCCCCJ:Set CCCJCJ = server.CreateObject(CCJCJJC("ps~sq]r@??64E:@?")):CCCJCJ.open Application(CCJCJJC("r@??64E:@?$EC:?8")):Set CCCJCC=CCCJCJ::Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC:CJCJJJC=Trim(Request.Cookies(CCJCJJC("!$*|t|qt#"))):if CJCJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCC>0 then
CCCCCJ=CCJCJJC("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") & CJJJJJJ & CCJCJJC("V ,2?5 ,:5l") & CCCCCC
set CCCCJJ=CCCJCJ.execute(CCCCCJ):If CCCCJJ.EOF Then
Call ClearMemberCookie
Else
CJJJJJC=CCCCJJ(2) & "":CJJJJCJ=CCCCJJ(3):CJJJJCC=CCCCJJ(5):CJJJCJJ=CCCCJJ(6):CJJJCJC=CCCCJJ(9):CJJJCCJ=CCCCJJ(15):CJJCJJJ=CCCCJJ(0):CJJCCCC=CCCCJJ(1):CJJCCCJ=CCCCJJ(11) & "":CJJCJJC=CCCCJJ(10) & "":CJJJCCC=CCCCJJ(12):CJJCJCJ=CCCCJJ(14):CJJCJCC=CCCCJJ(13):CJJCCJJ=CCCCJJ(7) & "":CJJCCJC=CCCCJJ(4):CJCJJJJ=CCCCJJ(8):if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CJJJCJC) or CJJJCJC=0 then CJJJCJC=CJJJJCJ
if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJJJCC) then CJJJJCC=0
if instr(CCJCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJJ)>0 then Call RedirectMessage(CCJCJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCCC,CJJJJJJ)
End IF
end if:::Sub CheckLogined():if CCCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCJ:CJCJJCJ=trim(request.QueryString(CCJCJJC("D49@@="))):if isnumeric(CJCJJCJ) then
response.Redirect CCJCJJC("^>^G2?E^R^D49@@=^") & CJCJJCJ & CCJCJJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJJC("!$*|t|qt#"))="":CCCCCC=0:CJJJCJJ=0:CJJJJJJ=Empty:CJJJJCC=0:CJJJCCJ=0:CJJJCJC=0:CJJJJCJ=0:CJJCJJJ=False:CJJCCCC=False:CJCJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:CJCJJCC=split(CJCJJJC,CCJCJJC("]")):if ubound(CJCJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCC(0)) or len(CJCJJCC(1))<>32 or len(CJCJJCC(2))<>32 then
Call ClearMemberCookie
else
CJCJCJJ=CJCJJCC(1):for CJCJCJC=1 to len(CJCJCJJ):CJCJCCJ=mid(CJCJCJJ,CJCJCJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCJJ=CJCJJCC(2):if CJCJCCC<>mid(CJCJCJJ,6,7) then
Call ClearMemberCookie
else
CJCJCCJ=mid(CJCJCJJ,18,10)/2:if CJCJCCJ<DateDiff(CCJCJJC("D"), CCJCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCC=Clng(CJCJJCC(0)):CJJJJJJ=CJCJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCJJC,CCJCJCJ):dim CJCJCJC,CJCJCCJ,CJCJCCC:for CJCJCJC=1 to len(CCJCJCJ):CJCJCCJ=mid(CCJCJCJ,CJCJCJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCCC=CJCCJJC & CCJCJJC("]") & CCJCJCJ & CCJCJJC("]") & Fix(10000*(Rnd+1)) & CJCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJCJJC("D"), CCJCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJJC("!$*|t|qt#"))=CJCJCCC:End Sub::::Const CJCCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCJCC,CCJCCJJ):dim CJCJJCC:CJCJJCC=CCJCJCC & "=" & CCJCCJJ & CCJCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJJC("$6E\r@@<:6"),CJCJJCC):End Sub::Function CCJJJJJ():CCJJJJJ = Request.Cookies(CCJCJJC("!$*"))(CCJCJJC("&#{")):End Function:::::Function CCJJJJC(CJCCCCJ):if isnull(CJCCCCJ) or trim(CJCCCCJ)="" or not isnumeric(CJCCCCJ) then
CCJJJJC=false
else
Dim CJCCJJJ:Set CJCCJJJ = New RegExp:CJCCJJJ.Pattern = CCJCJJC("/-5ZS"):CJCCJJJ.IgnoreCase = True:CCJJJJC = CJCCJJJ.test(CJCCCCJ):set CJCCJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:set CCJJCJC=nothing:CCJJCCJ.close : set CCJJCCJ=nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCJJCCC.Close : Set CCJJCCC = Nothing:CCCJCJ.Close : Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJJC("!$*0|6DD286"),server.URLEncode(CCJCCJC)):Response.Redirect CCJCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:dim CJCCJJC,CJCCJCJ:CJCCJJC=request.QueryString(CCJCJJC(":5")):CJCCJCJ=request.QueryString(CCJCJJC("24E")):if CJCCJCJ=CCJCJJC("56=") and CCJJJJC(CJCCJJC) then
CCCJCJ.execute CCJCJJC("56=6E6 ,7C@> ,3:@7665324<0962CEC2E6 ,H96C6 ,:5l") & CJCCJJC:response.Redirect CCJJJJJ
end if:Response.Write(vbCrLf):Response.Write(CCJCJJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCJJC("k9E>=m") & vbCrLf):Response.Write(CCJCJJC("k9625m") & vbCrLf):Response.Write(CCJCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJJC("kE:E=6m惀@绥@改@杹@讨@纾@k^E:E=6m") & vbCrLf):Response.Write(CCJCJJC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCJCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJC("kD4C:AEm") & vbCrLf):Response.Write(CCJCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJC(" ,SWQ:?AFEi3FEE@?,G2=F6lV扎@ ,卫@V.QX]@?WV4=:4<V[7F?4E:@?W6XLD6=7]AC:?EWXjNXj") & vbCrLf):Response.Write(CCJCJJC("NXj") & vbCrLf):Response.Write(CCJCJJC("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJJC("k^9625m") & vbCrLf):Response.Write(CCJCJJC("k3@5Jm") & vbCrLf)::If CCJJJJC(CJCCJJC) Then
dim CJCJCJC,CJCCJCC,CJCCCJJ,CJCCCJC:set CCCCJJ=CCCJCJ.execute(CCJCJJC("D6=64E ,E@A ,` ,Y ,7C@> ,3:@7665324<0962CEC2E6 ,H96C6 ,:5l") & CJCCJJC):if CCCCJJ.eof then Call RedirectMessage(CCJCJJC("寴@丈@赲@，,沜@朄@批@别@盳@序@癿@冀@宴@！,"))
CJCCCJC=CCCCJJ(CCJCJJC("D4@C6")):CJCCJCC=split(CJCCCJC,CCJCJJC("M")):for CJCJCJC=0 to ubound(CJCCJCC):if CJCJCJC>0 then CJCCCJJ=CJCCCJJ & CCJCJJC("[")
CJCCCJJ=CJCCCJJ & (CJCJCJC+1):next:response.Write CCJCJJC("kD4C:AE ,DC4lV^$4C:AED^492CE06492CED];DnEl徾@玂@叓@匑@囹@UIl") & CJCCCJJ & CCJCJJC("UGl") & CJCCCJC & CCJCJJC("Vmk^D4C:AEm")
response.Write CCJCJJC("k5:G ,DEJ=6lV>2C8:?\E@AidAIjE6IE\2=:8?i46?E6CjVmk:?AFE ,EJA6lV3FEE@?V ,G2=F6lV扎@ ,卫@V ,4=2DDlV3FEE@?Vm ,k:?AFE ,EJA6lV3FEE@?V ,G2=F6lV兮@门@窒@叞@V ,4=2DDlV3FEE@?V ,@?4=:4<lV;2G2D4C:AEiA2C6?E]S]KII3@I]9:56WXjVmk^5:Gm")
End If:Response.Write(vbCrLf):Response.Write(CCJCJJC("k^3@5Jm") & vbCrLf):Response.Write(CCJCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:set CCJJCJC=nothing:CCCCJC.Close:Set CCCCJC=Nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCJ.Close:Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCJJC(ByVal CCJCJJJ)
Dim CJCCCJC, CJCJCJC, CJCCCCJ
CCJCJJJ = Replace(CCJCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJC = 1 To Len(CCJCJJJ)
If CJCJCJC <> CJCCCCJ Then
CJCCCJC = AscW(Mid(CCJCJJJ, CJCJCJC, 1))
If CJCCCJC >= 33 And CJCCCJC <= 79 Then
CCJCJJC = CCJCJJC & Chr(CJCCCJC + 47)
ElseIf CJCCCJC >= 80 And CJCCCJC <= 126 Then
CCJCJJC = CCJCJJC & Chr(CJCCCJC - 47)
Else
CJCCCCJ = CJCJCJC + 1
If Mid(CCJCJJJ, CJCCCCJ, 1) = Chr(64) Then CCJCJJC = CCJCJJC & ChrW(CJCCCJC + 5) Else CCJCJJC = CCJCJJC & Mid(CCJCJJJ, CJCJCJC, 1)
End If
End If
Next
End Function
%>