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