<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJ, CCCJC,CCCCJ, CCCCC, CJJJJJ:Set CCCJJ = server.CreateObject(CJJCCCC("ps~sq]r@??64E:@?")):CCCJJ.open Application(CJJCCCC("r@??64E:@?$EC:?8")):Set CCCJC=CCCJJ::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJJCCCC("!$*|t|qt#"))):if CCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJC>0 then
CJJJJJ=CJJCCCC("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") & CJJJCJ & CJJCCCC("V ,2?5 ,:5l") & CJJJJC
set CCCCJ=CCCJJ.execute(CJJJJJ):If CCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCC=CCCCJ(2) & "":CJJCJJ=CCCCJ(3):CJJCJC=CCCCJ(5):CJJCCJ=CCCCJ(6):CJJCCC=CCCCJ(9):CJCJJJ=CCCCJ(15):CJCJCJ=CCCCJ(0):CCJJJC=CCCCJ(1):CCJJJJ=CCCCJ(11) & "":CJCJCC=CCCCJ(10) & "":CJCJJC=CCCCJ(12):CJCCJJ=CCCCJ(14):CJCCJC=CCCCJ(13):CJCCCJ=CCCCJ(7) & "":CJCCCC=CCCCJ(4):CCJJCJ=CCCCJ(8):if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ
if isnull(CJCCCC) then CJCCCC=0
if isnull(CJJCJC) then CJJCJC=0
if instr(CJJCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CJJCCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJC,CJJJCJ)
End IF
end if:::Sub CheckLogined():if CJJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJCJJ:CCJCJJ=trim(request.QueryString(CJJCCCC("D49@@="))):if isnumeric(CCJCJJ) then
response.Redirect CJJCCCC("^>^G2?E^R^D49@@=^") & CCJCJJ & CJJCCCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJCCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCCC("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:CCJCJC=split(CCJJCC,CJJCCCC("]")):if ubound(CCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCJCJC(1):for CCJCCC=1 to len(CCJCCJ):CCCJJJ=mid(CCJCCJ,CCJCCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCJCCJ=CCJCJC(2):if CCCJJC<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCCJJJ=mid(CCJCCJ,18,10)/2:if CCCJJJ<DateDiff(CJJCCCC("D"), CJJCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJC=Clng(CCJCJC(0)):CJJJCJ=CCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJJJ,CJCJJJC):dim CCJCCC,CCCJJJ,CCCJJC:for CCJCCC=1 to len(CJCJJJC):CCCJJJ=mid(CJCJJJC,CCJCCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCCJJC=CJCJJJJ & CJJCCCC("]") & CJCJJJC & CJJCCCC("]") & Fix(10000*(Rnd+1)) & CCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCC("D"), CJJCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCC("!$*|t|qt#"))=CCCJJC:End Sub::Function CJJJCCJ(CJCJJCJ):Dim str,CCCJCC:str = Trim(CJCJJCJ):If IsNull(str) Or str = "" Then
CJJJCCJ = ""
else
str=Replace(str, CJJCCCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCCC("k:7C2>6"), CJJCCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCCC("kD4C:AE"), CJJCCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJCC=new RegExp:CCCJCC.Pattern=CJJCCCC("@?W,2\K.ZXl"):CCCJCC.IgnoreCase = True:CCCJCC.Global=True:str=CCCJCC.Replace(str,CJJCCCC("@?S`U6BF2=Dj")):set CCCJCC=nothing:CJJJCCJ=str
End If:End Function::Const CJJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJCC,CJCJCJJ):dim CCJCJC:CCJCJC=CJCJJCC & "=" & CJCJCJJ & CJJCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCC("$6E\r@@<:6"),CCJCJC):End Sub:::::::Function CJJJCCC(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then
CJJJCCC=false
else
Dim CCCJCC:Set CCCJCC = New RegExp:CCCJCC.Pattern = CJJCCCC("/-5ZS"):CCCJCC.IgnoreCase = True:CJJJCCC = CCCJCC.test(CJJJCJJ):set CCCJCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CJJCCJJ.close : set CJJCCJJ=nothing:CCCCC.Close : Set CCCCC=Nothing:CCCCJ.Close : Set CCCCJ=Nothing:CJJCCJC.Close : Set CJJCCJC = Nothing:CCCJJ.Close : Set CCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCC("!$*0|6DD286"),server.URLEncode(CJCJCJC)):Response.Redirect CJJCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:Sub SendSystemMessage(ByVal CCCCCC,CJJJJJC,CJJJJCJ):Dim CCJCCC,CCCCJJ:if isnull(CCCCCC) or CCCCCC="" then exit Sub
CCCCCC=split(CCCCCC,CJJCCCC("[")):for CCJCCC=0 to ubound(CCCCCC):if CJJJCCC(CCCCCC(CCJCCC)) then CCCCJJ=CCCCJJ & CJJCCCC(":?D6CE ,:?E@ ,>6DD286WD6?56C[C646:G6C[E:E=6[4@?E6?E[:DDJD[:D?6HX ,G2=F6DW") & CJJJJC & CJJCCCC("[") & CCCCCC(CCJCCC) & CJJCCCC("[V") & CJJJJJC & CJJCCCC("V[V") & CJJJJCJ & CJJCCCC("V[`[`Xj")
next:if CCCCJJ<>"" then CCCJJ.execute CCCCJJ
End Sub::::::::::::::::::::::::::::::::::::::Call CheckLogined:dim CCCCJC,CCCCCJ:CCCCCJ=Request.QueryString(CJJCCCC("24E")):CCCCJC=Request.QueryString(CJJCCCC(":5=:DE")):if CCCCJC="" then CCCCJC=Request.Form(CJJCCCC(":5=:DE"))
if CCCCJC="" then CCCCJC=0
if CCCCCJ=CJJCCCC("56=:?") then
CCCJJ.execute CJJCCCC("56=6E6 ,7C@> ,>6DD286 ,H96C6 ,:5 ,:? ,W") & CCCCJC & CJJCCCC("X ,2?5 ,C646:G6Cl") & CJJJJC:response.Redirect CJJCCCC(":?]2DA")
elseif CCCCCJ=CJJCCCC("56=@FE") then
CCCJJ.execute CJJCCCC("56=6E6 ,7C@> ,>6DD286 ,H96C6 ,:5 ,:? ,W") & CCCCJC & CJJCCCC("X ,2?5 ,D6?56Cl") & CJJJJC:response.Redirect CJJCCCC("@FE]2DA")
elseif CCCCCJ=CJJCCCC("255") then
dim CCCCCC,CCJCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:CCCCCC=Trim(Request.Form(CJJCCCC("C646:G6C"))):CJJJJJC=CJJJCCJ(Request.Form(CJJCCCC("E:E=6"))):CJJJJCJ=CJJJCCJ(Request.Form(CJJCCCC("4@?E6?E"))):CJJJJJJ=Request.QueryString(CJJCCCC(":DDJD")):if CCCCCC<>"" then
CCCCCC=replace(CCCCCC,CJJCCCC("，,"),CJJCCCC("[")):if CJJJJJJ="1" then
Call SendSystemMessage(CCCCCC,CJJJJJC,CJJJJCJ)
else
CCCCCC=split(CCCCCC,CJJCCCC("[")):for CCJCCC=0 to ubound(CCCCCC):set CCCCJ=CCCJJ.execute(CJJCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,H96C6 ,:5l") & CCCCCC(CCJCCC)):if not CCCCJ.eof then
CJJJJJ=CJJCCCC(":?D6CE ,:?E@ ,>6DD286WD6?56C[C646:G6C[E:E=6[4@?E6?E[:D?6HX ,G2=F6DW") & CJJJJC  & CJJCCCC("[") & CCCCCC(CCJCCC)  & CJJCCCC("[V") & CJJJJJC & CJJCCCC("V") & CJJCCCC("[V") & CJJJJCJ & CJJCCCC("V") & CJJCCCC("[`") & CJJCCCC("X")
CCCJJ.execute CJJJJJ
end if:next
end if
end if:response.Redirect CJJCCCC("@FE]2DA")
else
Call RedirectMessage(CJJCCCC("糶@绚@揋@礵@M朥@矠@癿@擈@佗@！,"))
end if::On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CCCCC.Close:Set CCCCC=Nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJJ.Close:Set CCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCC(ByVal CJJCCCJ)
Dim CJJJJCC, CCJCCC, CJJJCJJ
CJJCCCJ = Replace(CJJCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCC = 1 To Len(CJJCCCJ)
If CCJCCC <> CJJJCJJ Then
CJJJJCC = AscW(Mid(CJJCCCJ, CCJCCC, 1))
If CJJJJCC >= 33 And CJJJJCC <= 79 Then
CJJCCCC = CJJCCCC & Chr(CJJJJCC + 47)
ElseIf CJJJJCC >= 80 And CJJJJCC <= 126 Then
CJJCCCC = CJJCCCC & Chr(CJJJJCC - 47)
Else
CJJJCJJ = CCJCCC + 1
If Mid(CJJCCCJ, CJJJCJJ, 1) = Chr(64) Then CJJCCCC = CJJCCCC & ChrW(CJJJJCC + 5) Else CJJCCCC = CJJCCCC & Mid(CJJCCCJ, CCJCCC, 1)
End If
End If
Next
End Function
%>