<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJC, CJCCJ,CJCCC, CCJJJ, CCJJC:Set CJCJC = server.CreateObject(CCCCCJ("ps~sq]r@??64E:@?")):CJCJC.open Application(CCCCCJ("r@??64E:@?$EC:?8")):Set CJCCJ=CJCJC::Dim CCJCJ,CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ:Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ:CJCCJJ=Trim(Request.Cookies(CCCCCJ("!$*|t|qt#"))):if CJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJ>0 then
CCJJC=CCCCCJ("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") & CCJCC & CCCCCJ("V ,2?5 ,:5l") & CCJCJ
set CJCCC=CJCJC.execute(CCJJC):If CJCCC.EOF Then
Call ClearMemberCookie
Else
CCCJJ=CJCCC(2) & "":CCCJC=CJCCC(3):CCCCJ=CJCCC(5):CCCCC=CJCCC(6):CJJJJJ=CJCCC(9):CJJJJC=CJCCC(15):CJJJCC=CJCCC(0):CJCJCJ=CJCCC(1):CJCJJC=CJCCC(11) & "":CJJCJJ=CJCCC(10) & "":CJJJCJ=CJCCC(12):CJJCJC=CJCCC(14):CJJCCJ=CJCCC(13):CJJCCC=CJCCC(7) & "":CJCJJJ=CJCCC(4):CJCJCC=CJCCC(8):if isnull(CJJJJC) then CJJJJC=0
if isnull(CJJJJJ) or CJJJJJ=0 then CJJJJJ=CCCJC
if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CCCCJ) then CCCCJ=0
if instr(CCCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCC)>0 then Call RedirectMessage(CCCCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCJ,CCJCC)
End IF
end if:Sub CheckRight(CCCCCC):dim CJCCJC,CJCCCJ:if CCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCCJ(CCCCCC) then
Call RedirectMessage(CCCCCJ("朾@陋@W") & CCCCCC & CCCCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCCJ(CCCCCC):dim CJCCJC,CJCCCJ:CJCCCJ=split(CCCCCC,CCCCCJ("[")):CCJCCJ=False:for CJCCJC=0 to ubound(CJCCCJ):If Mid(CCCJJ,CJCCCJ(CJCCJC),1)="1" then
CCJCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCCCJ("!$*|t|qt#"))="":CCJCJ=0:CCCCC=0:CCJCC=Empty:CCCCJ=0:CJJJJC=0:CJJJJJ=0:CCCJC=0:CJJJCC=False:CJCJCJ=False:CJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCC,CCJJJJ,CJCCJC,CCJJJC,CCJJCJ:CJCCCC=split(CJCCJJ,CCCCCJ("]")):if ubound(CJCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCC(0)) or len(CJCCCC(1))<>32 or len(CJCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJ=CJCCCC(1):for CJCCJC=1 to len(CCJJJJ):CCJJJC=mid(CCJJJJ,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJJJ=CJCCCC(2):if CCJJCJ<>mid(CCJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJC=mid(CCJJJJ,18,10)/2:if CCJJJC<DateDiff(CCCCCJ("D"), CCCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJ=Clng(CJCCCC(0)):CCJCC=CJCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJ,CJJJJJC):dim CJCCJC,CCJJJC,CCJJCJ:for CJCCJC=1 to len(CJJJJJC):CCJJJC=mid(CJJJJJC,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJCJ=CJJJJJJ & CCCCCJ("]") & CJJJJJC & CCCCCJ("]") & Fix(10000*(Rnd+1)) & CCJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCCJ("D"), CCCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCJ("!$*|t|qt#"))=CCJJCJ:End Sub::::Const CCJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJJCJ,CJJJJCC):dim CJCCCC:CJCCCC=CJJJJCJ & "=" & CJJJJCC & CCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCJ("$6E\r@@<:6"),CJCCCC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CCJCCC=nothing:set CCCJJJ=nothing:set CCCJJC=nothing:set CCCJCJ=nothing:CCCJCC.close : set CCCJCC=nothing:CCJJJ.Close : Set CCJJJ=Nothing:CJCCC.Close : Set CJCCC=Nothing:CCCCJJ.Close : Set CCCCJJ = Nothing:CJCJC.Close : Set CJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCJ("!$*0|6DD286"),server.URLEncode(CJJJCJJ)):Response.Redirect CCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(5):Response.Write(vbCrLf):Response.Write(CCCCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCJ("k9625m") & vbCrLf):Response.Write(CCCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCCCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCCCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCCCCJ("k^9625m") & vbCrLf):Response.Write(CCCCCJ("k3@5Jm") & vbCrLf):Response.Write(CCCCCJ("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CCCCCJ(" ,kF=m") & vbCrLf):Response.Write(CCCCCJ(" ,k=:mk2 ,9C67lQD49@@=]2DAQm卐@佈@惀@冰@k^2mk^=:m") & vbCrLf):Response.Write(CCCCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQBFI:2?]2DAQm圫@匵@敫@捩@k^2mk^=:m") & vbCrLf):Response.Write(CCCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJ(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CCCCCJ(" ,kE9m合@秫@k^E9m") & vbCrLf):Response.Write(CCCCCJ(" ,kE9m孡@栜@敫@k^E9m") & vbCrLf):Response.Write(CCCCCJ(" ,kE9m廵@桞@亵@敫@k^E9m") & vbCrLf):Response.Write(CCCCCJ(" ,kE9m浆@诐@亵@欜@k^E9m") & vbCrLf):Response.Write(CCCCCJ(" ,kE9m咣@话@亵@欜@k^E9m") & vbCrLf):Response.Write(CCCCCJ(" ,kE9m斂@竛@k^E9m") & vbCrLf):Response.Write(CCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJ(" ,")):dim CJCCJC:set CJCCC=CJCJC.execute(CCCCCJ("D6=64E ,:5[?2>6 ,7C@> ,>6>36C0EJA6 ,H96C6 ,A2C:5l") & CCCJC):CJCCJC=1:while not CJCCC.eof:Response.Write(vbCrLf):Response.Write(CCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCCJC:Response.Write(CCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCJ(" ,kE5mk2 ,9C67lQ]]^]]^D49@@=^:?56I]2DAnFl")):Response.Write  CJCCC(0):Response.Write(CCCCCJ("Q ,E2C86ElQ03=2?<Qm")):Response.Write  CJCCC(1):Response.Write(CCCCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQD49@@=]2DAnBFI:2?l")):Response.Write  CJCCC(0):Response.Write(CCCCCJ("UA@DEl`Qm")):Response.Write  CJCJC.execute(CCCCCJ("D6=64E ,4@F?EW:5X ,7C@> ,G0D49@@= ,H96C6 ,A2C:5l") & CJCCC(0))(0):Response.Write(CCCCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCJC.execute(CCCCCJ("D6=64E ,DF>WDF>0DEF56?EX ,7C@> ,G0D49@@= ,H96C6 ,A2C:5l") & CJCCC(0))(0):Response.Write(CCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCJC.execute(CCCCCJ("D6=64E ,DF>WDF>0E6DEX ,7C@> ,G0D49@@= ,H96C6 ,A2C:5l") & CJCCC(0))(0):Response.Write(CCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCJC.execute(CCCCCJ("D6=64E ,DF>WDF>0K:IF?X ,7C@> ,G0D49@@= ,H96C6 ,A2C:5l") & CJCCC(0))(0):Response.Write(CCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCJC.execute(CCCCCJ("D6=64E ,DF>WDF>02CE:4=6X ,7C@> ,G0D49@@= ,H96C6 ,A2C:5l") & CJCCC(0))(0):Response.Write(CCCCCJ("k^E5m") & vbCrLf):Response.Write(CCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJ(" ,")):CJCCC.movenext:CJCCJC=CJCCJC+1:wend:Response.Write(vbCrLf):Response.Write(CCCCCJ("k^E23=6m") & vbCrLf):Response.Write(CCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CCCCCJ("NXj") & vbCrLf):Response.Write(CCCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCC=nothing:set CCCJJJ=nothing:set CCCJJC=nothing:set CCCJCJ=nothing:CCJJJ.Close:Set CCJJJ=Nothing:CJCCC.Close:Set CJCCC=Nothing:CJCJC.Close:Set CJCJC = Nothing:err.Clear:On Error Goto 0
Function CCCCCJ(ByVal CCCCJC)
Dim CCJJCC, CJCCJC, CCJCJJ
CCCCJC = Replace(CCCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJC = 1 To Len(CCCCJC)
If CJCCJC <> CCJCJJ Then
CCJJCC = AscW(Mid(CCCCJC, CJCCJC, 1))
If CCJJCC >= 33 And CCJJCC <= 79 Then
CCCCCJ = CCCCCJ & Chr(CCJJCC + 47)
ElseIf CCJJCC >= 80 And CCJJCC <= 126 Then
CCCCCJ = CCCCCJ & Chr(CCJJCC - 47)
Else
CCJCJJ = CJCCJC + 1
If Mid(CCCCJC, CCJCJJ, 1) = Chr(64) Then CCCCCJ = CCCCCJ & ChrW(CCJJCC + 5) Else CCCCCJ = CCCCCJ & Mid(CCCCJC, CJCCJC, 1)
End If
End If
Next
End Function
%>