<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCC, CJCJJJ,CJCJJC, CJCJCJ, CJCJCC:Set CJJCCC = server.CreateObject(CCJJCJJ("ps~sq]r@??64E:@?")):CJJCCC.open Application(CCJJCJJ("r@??64E:@?$EC:?8")):Set CJCJJJ=CJJCCC::Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ:CCCCCJ=Trim(Request.Cookies(CCJJCJJ("!$*|t|qt#"))):if CCCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJJ>0 then
CJCJCC=CCJJCJJ("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") & CJCCJC & CCJJCJJ("V ,2?5 ,:5l") & CJCCJJ
set CJCJJC=CJJCCC.execute(CJCJCC):If CJCJJC.EOF Then
Call ClearMemberCookie
Else
CJCCCJ=CJCJJC(2) & "":CJCCCC=CJCJJC(3):CCJJJJ=CJCJJC(5):CCJJJC=CJCJJC(6):CCJJCJ=CJCJJC(9):CCJJCC=CJCJJC(15):CCJCJC=CJCJJC(0):CCCCJJ=CJCJJC(1):CCCJCC=CJCJJC(11) & "":CCJCCJ=CJCJJC(10) & "":CCJCJJ=CJCJJC(12):CCJCCC=CJCJJC(14):CCCJJJ=CJCJJC(13):CCCJJC=CJCJJC(7) & "":CCCJCJ=CJCJJC(4):CCCCJC=CJCJJC(8):if isnull(CCJJCC) then CCJJCC=0
if isnull(CCJJCJ) or CCJJCJ=0 then CCJJCJ=CJCCCC
if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCJJJJ) then CCJJJJ=0
if instr(CCJJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJC)>0 then Call RedirectMessage(CCJJCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCJJ,CJCCJC)
End IF
end if:Sub CheckRight(CJJCJJJ):dim CCCCCC,CJJJJJJ:if CJCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCCJJJ(CJJCJJJ) then
Call RedirectMessage(CCJJCJJ("朾@陋@W") & CJJCJJJ & CCJJCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCCJJJ(CJJCJJJ):dim CCCCCC,CJJJJJJ:CJJJJJJ=split(CJJCJJJ,CCJJCJJ("[")):CJCCJJJ=False:for CCCCCC=0 to ubound(CJJJJJJ):If Mid(CJCCCJ,CJJJJJJ(CCCCCC),1)="1" then
CJCCJJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJJCJJ("!$*|t|qt#"))="":CJCCJJ=0:CCJJJC=0:CJCCJC=Empty:CCJJJJ=0:CCJJCC=0:CCJJCJ=0:CJCCCC=0:CCJCJC=False:CCCCJJ=False:CCCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJC,CJJJJCJ,CCCCCC,CJJJJCC,CJJJCJJ:CJJJJJC=split(CCCCCJ,CCJJCJJ("]")):if ubound(CJJJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJC(0)) or len(CJJJJJC(1))<>32 or len(CJJJJJC(2))<>32 then
Call ClearMemberCookie
else
CJJJJCJ=CJJJJJC(1):for CCCCCC=1 to len(CJJJJCJ):CJJJJCC=mid(CJJJJCJ,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJJCJ=CJJJJJC(2):if CJJJCJJ<>mid(CJJJJCJ,6,7) then
Call ClearMemberCookie
else
CJJJJCC=mid(CJJJJCJ,18,10)/2:if CJJJJCC<DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJJ=Clng(CJJJJJC(0)):CJCCJC=CJJJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJC,CCJJCCJ):dim CCCCCC,CJJJJCC,CJJJCJJ:for CCCCCC=1 to len(CCJJCCJ):CJJJJCC=mid(CCJJCCJ,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJCJJ=CCJJCJC & CCJJCJJ("]") & CCJJCCJ & CCJJCJJ("]") & Fix(10000*(Rnd+1)) & CJJJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJJ("!$*|t|qt#"))=CJJJCJJ:End Sub::::Const CJCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJJCCC,CCJCJJJ):dim CJJJJJC:CJJJJJC=CCJJCCC & "=" & CCJCJJJ & CCJJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJJ("$6E\r@@<:6"),CJJJJJC):End Sub:::::::Function CJCCJJC(CJCJCCJ):if isnull(CJCJCCJ) or trim(CJCJCCJ)="" or not isnumeric(CJCJCCJ) then
CJCCJJC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CCJJCJJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CJCCJJC = CJJJCJC.test(CJCJCCJ):set CJJJCJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCCJCJ=nothing:set CJCCJCC=nothing:set CJCCCJJ=nothing:set CJCCCJC=nothing:CJJJCCJ.close : set CJJJCCJ=nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJCCCCJ.Close : Set CJCCCCJ = Nothing:CJJCCC.Close : Set CJJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJJ("!$*0|6DD286"),server.URLEncode(CCJCJJC)):Response.Redirect CCJJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJCCCCC():Dim CJJJCCJ, CJJJCCC(), CCCCCC, CJJJJCC, CJJCJJJ,CJJCJJC:If Not IsArray(Application(CCJJCJJ("!$*0%6DED"))) Then
CJCJCC=CCJJCJJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJJJCCJ=server.createobject(CCJJCJJ("25@53]C64@C5D6E")):CJJJCCJ.open CJCJCC,CJJCCC,1:CJJCJJJ = CJJJCCJ.RecordCount:CJJCJJC=CJJJCCJ.fields.count-1:ReDim CJJJCCC(CJJCJJJ, CJJCJJC):If CJJCJJJ > 0 Then
For CCCCCC = 1 To CJJCJJJ:For CJJJJCC = 0 To CJJCJJC:if CJJJJCC=4 or CJJJJCC=6 or CJJJJCC=19 then
CJJJCCC(CCCCCC, CJJJJCC) = CCJJJCJ(CJJJCCJ(CJJJJCC))
else
CJJJCCC(CCCCCC, CJJJJCC) = CJJJCCJ(CJJJJCC):if CJJJCCJ(CJJJJCC).type<>11 and isnull(CJJJCCC(CCCCCC, CJJJJCC)) then CJJJCCC(CCCCCC, CJJJJCC)=""
end if:Next:CJJJCCJ.MoveNext:Next
End If:CJJJCCJ.Close: Set CJJJCCJ = Nothing:Application(CCJJCJJ("!$*0%6DED")) = CJJJCCC
End If:CJCCCCC = Application(CCJJCJJ("!$*0%6DED")):End Function::::::::::::::Function CCJJJJJ(ByVal CCJJJJC,style):if not isdate(CCJJJJC) then
CCJJJJJ=CCJJJJC:exit function
end if:dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:CCJJJJC=cdate(CCJJJJC):CJJCJCJ=Year(CCJJJJC):CJJCJCC=Month(CCJJJJC):CJJCCJJ=Day(CCJJJJC):select case style:case 0:CCJJJJJ=CJJCJCJ & CCJJCJJ("\") & right(0 & CJJCJCC,2) & CCJJCJJ("\") & right(0 & CJJCCJJ,2):case 1:CCJJJJJ=CJJCJCJ & right(0 & CJJCJCC,2) & right(0 & CJJCCJJ,2):case 2:CCJJJJJ=right(CJJCJCJ,2) & CCJJCJJ("\") & right(0 & CJJCJCC,2) & CCJJCJJ("\") & right(0 & CJJCCJJ,2):case 3:CCJJJJJ=CJJCJCJ & CCJJCJJ("\") & right(0 & CJJCJCC,2):case 4:CCJJJJJ=right(0 & CJJCJCC,2) & CCJJCJJ("\") & right(0 & CJJCCJJ,2):case 5:CCJJJJJ=right(0 & CJJCCJJ,2):case 6:CCJJJJJ=CJJCJCJ & CCJJCJJ("幯@") & right(0 & CJJCJCC,2) & CCJJCJJ("會@") & right(0 & CJJCCJJ,2) & CCJJCJJ("无@"):case else
CCJJJJJ=CCJJJJC:end select:End Function::::::::::::::::Function CCJJJCJ(CCJCJCJ):if isnull(CCJCJCJ) then
CCJJJCJ=""
else
On Error Resume Next:CCJJJCJ=CCJCJCJ:if err.number=-2147352567 then
CCJJJCJ="":err.Clear
end if
end if:End Function::::::Call CheckRight(79):dim CJJCCCJ,CJJCCCC:CJJCCCJ=request.QueryString(CCJJCJJ(":5=:DE")):CJJCCCC=request.QueryString(CCJJCJJ("=3:5")):if CJJCCCJ="" or not CJCCJJC(CJJCCCC) then Call RedirectMessage(CCJJCJJ("糶@绚@厽@敫@锔@诪@！,"))
CJJCCCC=cint(CJJCCCC):Response.Write(vbCrLf):Response.Write(CCJJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJJ("k9625m") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCJJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCJJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("k^9625m") & vbCrLf):Response.Write(CCJJCJJ("k3@5Jm") & vbCrLf)::dim CJCJJJJ,CJCJJJC,CCCCCC,CJCJJCJ,CJJJCCC,CJCJJCC,CJCJCJJ,CJCJCJC:CJJJCCC=CJCCCCC:For CCCCCC = 1 To UBound(CJJJCCC):If CJJJCCC(CCCCCC, 0) = CJJCCCC Then
CJCJJCC=CJJJCCC(CCCCCC,1):CJCJCJJ=CJJJCCC(CCCCCC,15):Exit For
End If:Next:select case CJJCCCC:case 6 : CJCJJJJ=CCJJCJJ("pMqMrMtMuMvMwMxM{M|M}M~M""`M""aM""bM""cM)`M)aM)bM)c"):case 20,111,129,178 : CJCJJJJ=left(CJCJCJJ,instrrev(CJCJCJJ,CCJJCJJ("M"))-1):case else : CJCJJJJ=CJCJCJJ
end select:if CJJCCCC=102 then CJCJJCJ=30
if instr(CCJJCJJ("[b[f[h[`a[`c[`h[a_[bg[cf[hg[`_a[`_b[``_[```[``g[``h[`a`[`ag[`ah[`b`[`bc[`be[`bf[`bg[`dh[`e`[`ea[`ec[`fg[`g_[`ga[`gb[`h_[`hh[aaf[af`["),CCJJCJJ("[") & CJJCCCC & CCJJCJJ("["))>0 then
CJCJCJC=CCJJCJJ("D4@C60C2H")
else
CJCJCJC=CCJJCJJ("D4@C60E")
end if:CJCJCC=CCJJCJJ("D6=64E ,E@A ,d ,C62=?2>6[52E6E:>6[") & CJCJCJC & CCJJCJJ(" ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJCCCC & CCJJCJJ(" ,2?5 ,:5 ,:? ,W") & CJJCCCJ & CCJJCJJ("X ,@C56C ,3J ,>6>36C[:5"):set CJCJJC=CJCJJJ.execute(CJCJCC):CCCCCC=0:while not CJCJJC.eof:if CJCJCJJ="" then
if CCCCCC>0 then
CJCJJJJ=CJCJJJJ & CCJJCJJ("["):CJCJJJC=CJCJJJC & CCJJCJJ("[")
end if:CJCJJJJ=CJCJJJJ & CCJJCJJ(",") & CCJJJJJ(CJCJJC(1),0) & CCJJCJJ(".") & CJCJJC(0):CJCJJJC=CJCJJJC & CJCJJC(2)
else
if CCCCCC>0 then CJCJJJC=CJCJJJC & CCJJCJJ("[")
CJCJJJC=CJCJJJC & CCJJCJJ("LV?2>6ViV") & CCCCCC+1 & CCJJCJJ(" ,,") & CCJJJJJ(CJCJJC(1),0) & CCJJCJJ(". ,") & CJCJJC(0) & CCJJCJJ("V[V52E2Vi,") & CJCJJC(2) & CCJJCJJ(".N")
end if:CJCJJC.movenext:CCCCCC=CCCCCC+1:wend:if CJCJCJJ<>"" then CJCJJJC=CCJJCJJ(",") & CJCJJJC & CCJJCJJ(".")
Response.Write(vbCrLf):Response.Write(CCJJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CJCJJJJ:Response.Write(CCJJCJJ("Qm") & vbCrLf):Response.Write(CCJJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQGQ ,G2=F6lQ")):Response.Write  CJCJJJC:Response.Write(CCJJCJJ("Qm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^492CE];DnEl《,")):Response.Write  CJCJJCC:Response.Write(CCJJCJJ("》,寴@每@刁@枋@囹@U9lbd_UCl")):Response.Write  CJCJJCJ:Response.Write(CCJJCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJCJ=nothing:set CJCCJCC=nothing:set CJCCCJJ=nothing:set CJCCCJC=nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJJCCC.Close:Set CJJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCJJ(ByVal CCJJJCC)
Dim CJCJJJC, CCCCCC, CJCJCCJ
CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCC = 1 To Len(CCJJJCC)
If CCCCCC <> CJCJCCJ Then
CJCJJJC = AscW(Mid(CCJJJCC, CCCCCC, 1))
If CJCJJJC >= 33 And CJCJJJC <= 79 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJC + 47)
ElseIf CJCJJJC >= 80 And CJCJJJC <= 126 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJC - 47)
Else
CJCJCCJ = CCCCCC + 1
If Mid(CCJJJCC, CJCJCCJ, 1) = Chr(64) Then CCJJCJJ = CCJJCJJ & ChrW(CJCJJJC + 5) Else CCJJCJJ = CCJJCJJ & Mid(CCJJJCC, CCCCCC, 1)
End If
End If
Next
End Function
%>