<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJC, CCCCJ,CCCCC, CJJJJJ, CJJJJC:Set CCCJC = server.CreateObject(CJJCJJC("ps~sq]r@??64E:@?")):CCCJC.open Application(CJJCJJC("r@??64E:@?$EC:?8")):Set CCCCJ=CCCJC::Dim CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ:Dim CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ:CCJCJJ=Trim(Request.Cookies(CJJCJJC("!$*|t|qt#"))):if CCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJ>0 then
CJJJJC=CJJCJJC("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") & CJJJCC & CJJCJJC("V ,2?5 ,:5l") & CJJJCJ
set CCCCC=CCCJC.execute(CJJJJC):If CCCCC.EOF Then
Call ClearMemberCookie
Else
CJJCJJ=CCCCC(2) & "":CJJCJC=CCCCC(3):CJJCCJ=CCCCC(5):CJJCCC=CCCCC(6):CJCJJJ=CCCCC(9):CJCJJC=CCCCC(15):CJCJCC=CCCCC(0):CCJJCJ=CCCCC(1):CCJJJC=CCCCC(11) & "":CJCCJJ=CCCCC(10) & "":CJCJCJ=CCCCC(12):CJCCJC=CCCCC(14):CJCCCJ=CCCCC(13):CJCCCC=CCCCC(7) & "":CCJJJJ=CCCCC(4):CCJJCC=CCCCC(8):if isnull(CJCJJC) then CJCJJC=0
if isnull(CJCJJJ) or CJCJJJ=0 then CJCJJJ=CJJCJC
if isnull(CCJJJJ) then CCJJJJ=0
if isnull(CJJCCJ) then CJJCCJ=0
if instr(CJJCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCC)>0 then Call RedirectMessage(CJJCJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJCJ,CJJJCC)
End IF
end if:Sub CheckRight(CJJCJCJ):dim CCJCJC,CCJCCJ:if CJJJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJJJC(CJJCJCJ) then
Call RedirectMessage(CJJCJJC("朾@陋@W") & CJJCJCJ & CJJCJJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJJJC(CJJCJCJ):dim CCJCJC,CCJCCJ:CCJCCJ=split(CJJCJCJ,CJJCJJC("[")):CJJJJJC=False:for CCJCJC=0 to ubound(CCJCCJ):If Mid(CJJCJJ,CCJCCJ(CCJCJC),1)="1" then
CJJJJJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJC("!$*|t|qt#"))="":CJJJCJ=0:CJJCCC=0:CJJJCC=Empty:CJJCCJ=0:CJCJJC=0:CJCJJJ=0:CJJCJC=0:CJCJCC=False:CCJJCJ=False:CCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCCC,CCCJJJ,CCJCJC,CCCJJC,CCCJCJ:CCJCCC=split(CCJCJJ,CJJCJJC("]")):if ubound(CCJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCCC(0)) or len(CCJCCC(1))<>32 or len(CCJCCC(2))<>32 then
Call ClearMemberCookie
else
CCCJJJ=CCJCCC(1):for CCJCJC=1 to len(CCCJJJ):CCCJJC=mid(CCCJJJ,CCJCJC,1):if isnumeric(CCCJJC) then CCCJCJ=CCCJCJ & CCCJJC
if len(CCCJCJ)=7 then exit for
next:CCCJJJ=CCJCCC(2):if CCCJCJ<>mid(CCCJJJ,6,7) then
Call ClearMemberCookie
else
CCCJJC=mid(CCCJJJ,18,10)/2:if CCCJJC<DateDiff(CJJCJJC("D"), CJJCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJ=Clng(CCJCCC(0)):CJJJCC=CCJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCC,CJJCCJJ):dim CCJCJC,CCCJJC,CCCJCJ:for CCJCJC=1 to len(CJJCCJJ):CCCJJC=mid(CJJCCJJ,CCJCJC,1):if isnumeric(CCCJJC) then CCCJCJ=CCCJCJ & CCCJJC
if len(CCCJCJ)=7 then exit for
next:CCCJCJ=CJJCJCC & CJJCJJC("]") & CJJCCJJ & CJJCJJC("]") & Fix(10000*(Rnd+1)) & CCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJC("D"), CJJCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJC("!$*|t|qt#"))=CCCJCJ:End Sub::::Const CJJJJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJCCJC,CJJCCCJ):dim CCJCCC:CCJCCC=CJJCCJC & "=" & CJJCCCJ & CJJCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJC("$6E\r@@<:6"),CCJCCC):End Sub::::::sub ShowMessage(CJJCCCC):response.Charset=CJJCJJC("FE7\g"):Response.Write CJJCJJC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJJCCCC & CJJCJJC("k^5:Gmk^5:Gmk3Cm")
end sub::::::Sub ConnClose():On Error Resume Next:set CJJJJCJ=nothing:set CJJJJCC=nothing:set CJJJCJJ=nothing:set CJJJCJC=nothing:CJJJCCJ.close : set CJJJCCJ=nothing:CJJJJJ.Close : Set CJJJJJ=Nothing:CCCCC.Close : Set CCCCC=Nothing:CJJJCCC.Close : Set CJJJCCC = Nothing:CCCJC.Close : Set CCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJC("!$*0|6DD286"),server.URLEncode(CJJCCCC)):Response.Redirect CJJCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(25):if Request.ServerVariables(CJJCJJC("#t""&t$%0|t%w~s")) = CJJCJJC("!~$%") then
dim CCCJCC,CCCCJJ,CCCCJC:CCCJCC=Trim(Request.Form(CJJCJJC("E6IE7:6=5"))):CCCCJJ=Trim(Request.Form(CJJCJJC("E6IE7:6=5a"))):CCCCJC=Trim(Request.Form(CJJCJJC("C25:@"))):CJJJJC=CJJCJJC("FA52E6 ,>6>36C ,D6E ,DE2E6l") & CCCCJC & CJJCJJC(" ,H96C6 ,:5 ,36EH66? ,") & CCCJCC & CJJCJJC(" ,2?5 ,") & CCCCJJ:CCCJC.execute CJJJJC:Call ShowMessage(CJJCJJC("擈@佗@戋@劚@！,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCJJC("k9E>=m") & vbCrLf):Response.Write(CJJCJJC("k9625m") & vbCrLf):Response.Write(CJJCJJC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJJCJJC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCJJC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJCJJC("k^9625m") & vbCrLf):Response.Write(CJJCJJC("k3@5Jm") & vbCrLf):Response.Write(CJJCJJC("k5:G ,4=2DDlQE:E=6Qm扴@释@讹@罩@伕@呓@犱@忼@k^5:Gm") & vbCrLf):Response.Write(CJJCJJC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCJJC(" ,kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQ`Qm") & vbCrLf):Response.Write(CJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCJJC(" ,kE5 ,H:5E9lQ`__Q ,2=:8?lQC:89EQm伕@呓@缑@史@赲@：,k^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5Qm") & vbCrLf):Response.Write(CJJCJJC(" ,（,忀@電@塦@兠@敯@敫@，,丈@胸@仠@_廻@夯@）,k^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCJJC(" ,kE5 ,2=:8?lQC:89EQm歝@：,k^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5aQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5aQm") & vbCrLf):Response.Write(CJJCJJC(" ,（,忀@電@塦@兠@敯@敫@，,丈@胸@仠@_廻@夯@，,丏@每@赲@姆@缑@史@夢@）,k^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCJJC(" ,kE5 ,2=:8?lQC:89EQm讹@罩@丵@：,k^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,kE5mk:?AFE ,?2>6lQC25:@Q ,EJA6lQC25:@Q ,:5lQC25:@Q ,G2=F6lQ_Qm") & vbCrLf):Response.Write(CJJCJJC(" ,朥@宜@栳@") & vbCrLf):Response.Write(CJJCJJC(" ,k:?AFE ,?2>6lQC25:@Q ,EJA6lQC25:@Q ,:5lQC25:@aQ ,G2=F6lQdQ ,4964<65m") & vbCrLf):Response.Write(CJJCJJC(" ,歞@帳@") & vbCrLf):Response.Write(CJJCJJC(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQC25:@Q ,:5lQC25:@bQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCJJC(" ,祼@産@k^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCJJC(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCJJC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,kE5mk:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ硩@ ,宕@Qmk^E5m") & vbCrLf):Response.Write(CJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJC("k^7@C>m") & vbCrLf):Response.Write(CJJCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJCJ=nothing:set CJJJJCC=nothing:set CJJJCJJ=nothing:set CJJJCJC=nothing:CJJJJJ.Close:Set CJJJJJ=Nothing:CCCCC.Close:Set CCCCC=Nothing:CCCJC.Close:Set CCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJC(ByVal CJJCJJJ)
Dim CCCCCJ, CCJCJC, CCCCCC
CJJCJJJ = Replace(CJJCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJC = 1 To Len(CJJCJJJ)
If CCJCJC <> CCCCCC Then
CCCCCJ = AscW(Mid(CJJCJJJ, CCJCJC, 1))
If CCCCCJ >= 33 And CCCCCJ <= 79 Then
CJJCJJC = CJJCJJC & Chr(CCCCCJ + 47)
ElseIf CCCCCJ >= 80 And CCCCCJ <= 126 Then
CJJCJJC = CJJCJJC & Chr(CCCCCJ - 47)
Else
CCCCCC = CCJCJC + 1
If Mid(CJJCJJJ, CCCCCC, 1) = Chr(64) Then CJJCJJC = CJJCJJC & ChrW(CCCCCJ + 5) Else CJJCJJC = CJJCJJC & Mid(CJJCJJJ, CCJCJC, 1)
End If
End If
Next
End Function
%>