<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CCJJJJJ("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CCJJJJJ("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CCJJJJJ("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CCJJJJJ("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") & CCJJJJ & CCJJJJJ("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CCJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CCJJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:Sub CheckRight(CCJJJJC):dim CJJJJCJ,CJJJJCC:if CJCCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCJCCJ(CCJJJJC) then
Call RedirectMessage(CCJJJJJ("朾@陋@W") & CCJJJJC & CCJJJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCJCCJ(CCJJJJC):dim CJJJJCJ,CJJJJCC:CJJJJCC=split(CCJJJJC,CCJJJJJ("[")):CJCJCCJ=False:for CJJJJCJ=0 to ubound(CJJJJCC):If Mid(CCJJJC,CJJJJCC(CJJJJCJ),1)="1" then
CJCJCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJJJJJ("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCJJ,CJJJCJC,CJJJJCJ,CJJJCCJ,CJJJCCC:CJJJCJJ=split(CJJJJJC,CCJJJJJ("]")):if ubound(CJJJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCJJ(0)) or len(CJJJCJJ(1))<>32 or len(CJJJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJCJC=CJJJCJJ(1):for CJJJJCJ=1 to len(CJJJCJC):CJJJCCJ=mid(CJJJCJC,CJJJJCJ,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCJC=CJJJCJJ(2):if CJJJCCC<>mid(CJJJCJC,6,7) then
Call ClearMemberCookie
else
CJJJCCJ=mid(CJJJCJC,18,10)/2:if CJJJCCJ<DateDiff(CCJJJJJ("D"), CCJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJCJJ(0)):CCJJJJ=CJJJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJCJ,CCJJJCC):dim CJJJJCJ,CJJJCCJ,CJJJCCC:for CJJJJCJ=1 to len(CCJJJCC):CJJJCCJ=mid(CCJJJCC,CJJJJCJ,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CCJJJCJ & CCJJJJJ("]") & CCJJJCC & CCJJJJJ("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJJJJ("D"), CCJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJJJ("!$*|t|qt#"))=CJJJCCC:End Sub::::Const CJCJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJJCJJ,CCJJCJC):dim CJJJCJJ:CJJJCJJ=CCJJCJJ & "=" & CCJJCJC & CCJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJJJ("$6E\r@@<:6"),CJJJCJJ):End Sub:::::Sub CheckValidPost():dim CJJCJJJ:CJJCJJJ=false:Dim CJJCJJC : CJJCJJC=lcase(Request.ServerVariables(CCJJJJJ("w%%!0#tut#t#"))):if(instr(CJJCJJC,Application(CCJJJJJ("s@>2:?(9:E6{:DE")))>0) then
CJJCJJJ=true
else
Dim CJJCJCJ : CJJCJCJ=lcase(Request.ServerVariables(CCJJJJJ("$t#'t#0}p|t"))):Dim CJJCJCC : CJJCJCC=Request.ServerVariables(CCJJJJJ("{~rp{0pss#")):if Mid(CJJCJJC,8,Len(CJJCJCJ))=CJJCJCJ or Mid(CJJCJJC,9,Len(CJJCJCJ))=CJJCJCJ or CJJCJCJ=CJJCJCC then CJJCJJJ=true
end if:if not CJJCJJJ then Call RedirectMessage(CCJJJJJ("寴@丈@赲@，,朧@糶@绚@丈@儼@讳@竔@夑@揋@亟@敫@捩@。,"))
end sub::Function CJCJCCC(CJCJJJJ):if isnull(CJCJJJJ) or trim(CJCJJJJ)="" or not isnumeric(CJCJJJJ) then
CJCJCCC=false
else
Dim CJJCCJJ:Set CJJCCJJ = New RegExp:CJJCCJJ.Pattern = CCJJJJJ("/-5ZS"):CJJCCJJ.IgnoreCase = True:CJCJCCC = CJJCCJJ.test(CJCJJJJ):set CJJCCJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCCJJJ=nothing:set CJCCJJC=nothing:set CJCCJCJ=nothing:set CJCCJCC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJCCCJC.Close : Set CJCCCJC = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJJJ("!$*0|6DD286"),server.URLEncode(CCJJCCJ)):Response.Redirect CCJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::Function CJCCCCJ(CCJJCCC,str):dim CJJJJCJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJJJCCC:CJJJCCC=ucase(CCJJCCC):CJCJJJC=str:if CJCJJJC="" then
CJCJJJC=request.cookies(CJJJCCC):if CJCJJJC="" then
CJCCCCJ=""
else
CJCJJJC=strreverse(CJCJJJC):CJJCCJC=len(CJCJJJC):for CJJJJCJ=1 to CJJCCJC-1 step 2:CJJCCCC=mid(CJCJJJC,CJJJJCJ,1):CJCJJJJ=mid(CJCJJJC,CJJJJCJ+1,1):CJJCCCJ=CJJCCCJ & CJCJJJJ & CJJCCCC:next:CJJCCCJ=replace(CJJCCCJ,CCJJJJJ("L0N"),CCJJJJJ(" ,")):CJJCCCJ=replace(CJJCCCJ,CCJJJJJ("LIN"),CCJJJJJ("Y")):CJJCCCJ=replace(CJJCCCJ,CCJJJJJ("L:N"),CCJJJJJ("^")):CJCCCCJ=trim(CJJCCCJ)
end if
else
if Len(CJCJJJC) Mod 2=1 then CJCJJJC=CJCJJJC & CCJJJJJ(" ,")
CJCJJJC=replace(CJCJJJC,CCJJJJJ(" ,"),CCJJJJJ("L0N")):CJCJJJC=replace(CJCJJJC,CCJJJJJ("Y"),CCJJJJJ("LIN")):CJCJJJC=replace(CJCJJJC,CCJJJJJ("^"),CCJJJJJ("L:N")):CJJCCJC=len(CJCJJJC):for CJJJJCJ=1 to CJJCCJC-1 step 2:CJJCCCC=mid(CJCJJJC,CJJJJCJ,1):CJCJJJJ=mid(CJCJJJC,CJJJJCJ+1,1):CJJCCCJ=CJJCCCJ & CJCJJJJ & CJJCCCC:next:CJJCCCJ=Trim(strreverse(CJJCCCJ)):CJCCCCJ=CJJCCCJ:response.cookies(CJJJCCC)=CJJCCCJ
end if:End Function::::Call CheckValidPost:Call CheckRight(62):dim CJCJJCJ,CJJJJCJ,CJCJJCC:CJCJJCC=Request.QueryString(CCJJJJJ("24E")):CJCJJCJ=Trim(Request.QueryString(CCJJJJJ(":5=:DE"))):if CJCJJCJ="" then Call RedirectMessage(CCJJJJJ("寴@丈@赲@，,患@沜@朄@逄@丨@讫@彐@。,"))
if CJCJJCC=CCJJJJJ("25>:?") then
CJCCCJ=CCJJJJJ("FA52E6 ,>6>36C ,D6E ,:DD49@@=25>:?l?F==[:D4@?DF=E2?El?F==[,C:89E.l?F==[:DDEF56?El` ,H96C6 ,:5 ,:? ,W") & CJCJJCJ & CCJJJJJ("X") & CCJJJJJ("j56=6E6 ,7C@> ,KI03FDJ ,H96C6 ,KI0E:>60:5 ,:? ,WD6=64E ,:5 ,7C@> ,KI0E:>6 ,H96C6 ,4@?DF=E2?E ,:? ,W") & CJCJJCJ & CCJJJJJ("XX") & CCJJJJJ("j56=6E6 ,7C@> ,KI0E:>6 ,H96C6 ,4@?DF=E2?E ,:? ,W") & CJCJJCJ & CCJJJJJ("X") & CCJJJJJ("jFA52E6 ,>6>36C ,D6E ,3:?504@?DF=E2?E0:5l?F== ,H96C6 ,3:?504@?DF=E2?E0:5 ,:? ,W") & CJCJJCJ & CCJJJJJ("X")
else
CJCCCJ=CCJJJJJ("FA52E6 ,>6>36C ,D6E ,:D4@?DF=E2?El?F== ,H96C6 ,:5 ,:? ,W") & CJCJJCJ & CCJJJJJ("X")
end if:CJCJJCJ=split(CJCJJCJ,CCJJJJJ("[")):for CJJJJCJ=0 to ubound(CJCJJCJ):if not CJCJCCC(CJCJJCJ(CJJJJCJ)) then
Call RedirectMessage(CCJJJJJ("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@。,"))
elseif CJCJJCJ(CJJJJCJ)=cstr(CJCCCC) then
Call RedirectMessage(CCJJJJJ("寴@丈@赲@，,患@丈@胸@发@涃@患@臥@巬@。,"))
end if:next:CJCJCJ.execute CJCCCJ:Call ConnClose:Response.Redirect CJCCCCJ(CCJJJJJ("&#{"),"")::On Error Resume Next:set CJCCJJJ=nothing:set CJCCJJC=nothing:set CJCCJCJ=nothing:set CJCCJCC=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJJJJ(ByVal CJCCCCC)
Dim CJCJCJJ, CJJJJCJ, CJCJJJJ
CJCCCCC = Replace(CJCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCJ = 1 To Len(CJCCCCC)
If CJJJJCJ <> CJCJJJJ Then
CJCJCJJ = AscW(Mid(CJCCCCC, CJJJJCJ, 1))
If CJCJCJJ >= 33 And CJCJCJJ <= 79 Then
CCJJJJJ = CCJJJJJ & Chr(CJCJCJJ + 47)
ElseIf CJCJCJJ >= 80 And CJCJCJJ <= 126 Then
CCJJJJJ = CCJJJJJ & Chr(CJCJCJJ - 47)
Else
CJCJJJJ = CJJJJCJ + 1
If Mid(CJCCCCC, CJCJJJJ, 1) = Chr(64) Then CCJJJJJ = CCJJJJJ & ChrW(CJCJCJJ + 5) Else CCJJJJJ = CCJJJJJ & Mid(CJCCCCC, CJJJJCJ, 1)
End If
End If
Next
End Function
%>