<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCC, CCJJJJ,CCJJJC, CCJJCJ, CCJJCC:Set CJCCCC = server.CreateObject(CJCCCJJ("ps~sq]r@??64E:@?")):CJCCCC.open Application(CJCCCJJ("r@??64E:@?$EC:?8")):Set CCJJJJ=CJCCCC::Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ:CJJJCCJ=Trim(Request.Cookies(CJCCCJJ("!$*|t|qt#"))):if CJJJCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJJ>0 then
CCJJCC=CJCCCJJ("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") & CCJCJC & CJCCCJJ("V ,2?5 ,:5l") & CCJCJJ
set CCJJJC=CJCCCC.execute(CCJJCC):If CCJJJC.EOF Then
Call ClearMemberCookie
Else
CCJCCJ=CCJJJC(2) & "":CCJCCC=CCJJJC(3):CCCJJJ=CCJJJC(5):CCCJJC=CCJJJC(6):CCCJCJ=CCJJJC(9):CCCJCC=CCJJJC(15):CCCCJC=CCJJJC(0):CJJJCJJ=CCJJJC(1):CJJJJCC=CCJJJC(11) & "":CCCCCJ=CCJJJC(10) & "":CCCCJJ=CCJJJC(12):CCCCCC=CCJJJC(14):CJJJJJJ=CCJJJC(13):CJJJJJC=CCJJJC(7) & "":CJJJJCJ=CCJJJC(4):CJJJCJC=CCJJJC(8):if isnull(CCCJCC) then CCCJCC=0
if isnull(CCCJCJ) or CCCJCJ=0 then CCCJCJ=CCJCCC
if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CCCJJJ) then CCCJJJ=0
if instr(CJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJC)>0 then Call RedirectMessage(CJCCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCJJ,CCJCJC)
End IF
end if:Sub CheckRight(CJCCCJC):dim CJJJCCC,CJJCJJJ:if CCJCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCJJCJ(CJCCCJC) then
Call RedirectMessage(CJCCCJJ("朾@陋@W") & CJCCCJC & CJCCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCJJCJ(CJCCCJC):dim CJJJCCC,CJJCJJJ:CJJCJJJ=split(CJCCCJC,CJCCCJJ("[")):CJCJJCJ=False:for CJJJCCC=0 to ubound(CJJCJJJ):If Mid(CCJCCJ,CJJCJJJ(CJJJCCC),1)="1" then
CJCJJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCCJJ("!$*|t|qt#"))="":CCJCJJ=0:CCCJJC=0:CCJCJC=Empty:CCCJJJ=0:CCCJCC=0:CCCJCJ=0:CCJCCC=0:CCCCJC=False:CJJJCJJ=False:CJJJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJJCCC,CJJCJCC,CJJCCJJ:CJJCJJC=split(CJJJCCJ,CJCCCJJ("]")):if ubound(CJJCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then
Call ClearMemberCookie
else
CJJCJCJ=CJJCJJC(1):for CJJJCCC=1 to len(CJJCJCJ):CJJCJCC=mid(CJJCJCJ,CJJJCCC,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCJCJ=CJJCJJC(2):if CJJCCJJ<>mid(CJJCJCJ,6,7) then
Call ClearMemberCookie
else
CJJCJCC=mid(CJJCJCJ,18,10)/2:if CJJCJCC<DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJJ=Clng(CJJCJJC(0)):CCJCJC=CJJCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCCC,CJCCCCJ):dim CJJJCCC,CJJCJCC,CJJCCJJ:for CJJJCCC=1 to len(CJCCCCJ):CJJCJCC=mid(CJCCCCJ,CJJJCCC,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCCJJ=CJJCCCC & CJCCCJJ("]") & CJCCCCJ & CJCCCJJ("]") & Fix(10000*(Rnd+1)) & CJJCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJJ("!$*|t|qt#"))=CJJCCJJ:End Sub::::Const CJCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJJJCCC,CJJCJCC,CJJCCJC:if isarray(str) then
on error resume next:CJJJCCC=ubound(str,2):CJJCCJC=err.number:err.clear:on error goto 0:if CJJCCJC<>0 then
for CJJJCCC=0 to ubound(str):if CJJJCCC>0 then response.Write CJCCCJJ("k3C ,^m")
response.Write CJJJCCC & CJCCCJJ("i ,") & str(CJJJCCC):next
else
response.Write CJCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCCC=0 to ubound(str,2):response.Write CJCCCJJ("kE9 ,2=:8?lV=67EVm") & CJJJCCC & CJCCCJJ("k^E9m")
next:response.Write CJCCCJJ("k^ECm"):for CJJJCCC=0 to ubound(str):response.Write CJCCCJJ("kECmkE9m") & CJJJCCC & CJCCCJJ("k^E9m"):for CJJCJCC=0 to ubound(str,2):response.Write CJCCCJJ("kE5m") & str(CJJJCCC,CJJCJCC) & CJCCCJJ("k^E5m"):next:response.Write CJCCCJJ("k^ECm"):next:response.Write CJCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJJJ,CCJJJJC):dim CJJCJJC:CJJCJJC=CCJJJJJ & CJCCCJJ("l") & CCJJJJC & CJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJJ("$6E\r@@<:6"),CJJCJJC):End Sub::Function CJCJJCC():CJCJJCC = Request.Cookies(CJCCCJJ("!$*"))(CJCCCJJ("&#{")):End Function:::::Function CJCJCJJ(CJJCCJC):if isnull(CJJCCJC) or trim(CJJCCJC)="" or not isnumeric(CJJCCJC) then
CJCJCJJ=false
else
Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CJCCCJJ("/-5ZS"):CJJCCCJ.IgnoreCase = True:CJCJCJJ = CJJCCCJ.test(CJJCCJC):set CJJCCCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CJCCJJC.close : set CJCCJJC=nothing:CCJJCJ.Close : Set CCJJCJ=Nothing:CCJJJC.Close : Set CCJJJC=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJCCCC.Close : Set CJCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJJ("!$*0|6DD286"),server.URLEncode(CCJJJCJ)):Response.Redirect CJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(22):Call CheckRight(32):dim CJJCCCC:CJJCCCC=Trim(Request.QueryString(CJCCCJJ(":5"))):if CJCJCJJ(CJJCCCC) then
set CCJJJC=CJCCCC.execute(CJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,H96C6 ,:5l") & CJJCCCC):if CCJJJC.eof then
Call RedirectMessage(CJCCCJJ("糶@绚@揋@礵@M寴@丈@赲@，,沜@朄@批@别@诠@伕@呓@癿@贿@斔@！,"))
else
Call DeleteMember(CJJCCCC):Response.Redirect CJCJJCC
end if
else
Call RedirectMessage(CJCCCJJ("糶@绚@揋@礵@M厽@敫@伛@逍@锔@诪@，,盳@兮@斂@仱@昪@：,st{t%t]p$!。,"))
end if:Sub DeleteMember(CJJCCCC):CCJJCC="" & CJCCCJJ("56=6E6 ,7C@> ,2CE:4=6 ,H96C6 ,2FE9@Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,3:@7665324<03C2:?H2G6 ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,3:@7665324<0962CEC2E6 ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,3F==6E:? ,H96C6 ,2FE9@Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,4C:D:D ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,42D6:5 ,:? ,WD6=64E ,:5 ,7C@> ,4C:D:D042D6 ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ("X") & CJCCCJJ("j56=6E6 ,7C@> ,4C:D:D042D6 ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,4C:D:D06G2=F2E6 ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ(" ,@C ,4@?DF=E2?El") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,8C@H ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,8C@HC6A@CE ,H96C6 ,2FE9@Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,:?E6CG:6H0:?G:E6 ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ(" ,@C ,:?E6CG:6H ,:? ,WD6=64E ,:5 ,7C@> ,:?E6CG:6H ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ("X") & CJCCCJJ("j56=6E6 ,7C@> ,:?E6CG:6H ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ(" ,@C ,4@?DF=E2?El") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,E6DE ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ(" ,@C ,=3 ,:? ,WD6=64E ,:5 ,7C@> ,=3 ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ("X") & CJCCCJJ("j56=6E6 ,7C@> ,=3 ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,=:?< ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,,=@8. ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,>6DD286 ,H96C6 ,D6?56Cl") & CJJCCCC & CJCCCJJ(" ,@C ,C646:G6Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,C6>2C< ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ(" ,@C ,2FE9@Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CJJCCCC & CJCCCJJ(" ,@C ,2FE9@Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,KI ,H96C6 ,>6>36Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,KI03FDJ ,H96C6 ,4@?DF=E2?El") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,KI083@@< ,H96C6 ,2FE9@Cl") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,KI0E:>6 ,H96C6 ,4@?DF=E2?El") & CJJCCCC  & CJCCCJJ("j56=6E6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CJJCCCC  & ""
debug replace(CCJJCC,CJCCCJJ("j"),CJCCCJJ("k3Cm")):End Sub::On Error Resume Next:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CCJJCJ.Close:Set CCJJCJ=Nothing:CCJJJC.Close:Set CCJJJC=Nothing:CJCCCC.Close:Set CJCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJJ(ByVal CJCCJCC)
Dim CJCJJJJ, CJJJCCC, CJJCCJC
CJCCJCC = Replace(CJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCC = 1 To Len(CJCCJCC)
If CJJJCCC <> CJJCCJC Then
CJCJJJJ = AscW(Mid(CJCCJCC, CJJJCCC, 1))
If CJCJJJJ >= 33 And CJCJJJJ <= 79 Then
CJCCCJJ = CJCCCJJ & Chr(CJCJJJJ + 47)
ElseIf CJCJJJJ >= 80 And CJCJJJJ <= 126 Then
CJCCCJJ = CJCCCJJ & Chr(CJCJJJJ - 47)
Else
CJJCCJC = CJJJCCC + 1
If Mid(CJCCJCC, CJJCCJC, 1) = Chr(64) Then CJCCCJJ = CJCCCJJ & ChrW(CJCJJJJ + 5) Else CJCCCJJ = CJCCCJJ & Mid(CJCCJCC, CJJJCCC, 1)
End If
End If
Next
End Function
%>