<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CCCCJCJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CCCCJCJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::::Const CCJCCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCCJCC,CCCCCJJ):dim CJJJCCJ:CJJJCCJ=CCCCJCC & "=" & CCCCCJJ & CCCCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJCJ("$6E\r@@<:6"),CJJJCCJ):End Sub:::::::Function CCJCCCC(CCJCCJC):if isnull(CCJCCJC) or trim(CCJCCJC)="" or not isnumeric(CCJCCJC) then
CCJCCCC=false
else
Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CCCCJCJ("/-5ZS"):CJJJCCC.IgnoreCase = True:CCJCCCC = CJJJCCC.test(CCJCCJC):set CJJJCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CJJCJJJ.close : set CJJCJJJ=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CCCJCJJ.Close : Set CCCJCJJ = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJCJ("!$*0|6DD286"),server.URLEncode(CCCCCJC)):Response.Redirect CCCCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCCJCJC():Dim CJJCJJJ, CJJCJJC(), CJJCJCJ, CJJCJCC, CJJCCJJ,CJJCCJC:If Not IsArray(Application(CCCCJCJ("!$*0%6DED"))) Then
CJJJCJC=CCCCJCJ("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 CJJCJJJ=server.createobject(CCCCJCJ("25@53]C64@C5D6E")):CJJCJJJ.open CJJJCJC,CJJJJJC,1:CJJCCJJ = CJJCJJJ.RecordCount:CJJCCJC=CJJCJJJ.fields.count-1:ReDim CJJCJJC(CJJCCJJ, CJJCCJC):If CJJCCJJ > 0 Then
For CJJCJCJ = 1 To CJJCCJJ:For CJJCJCC = 0 To CJJCCJC:if CJJCJCC=4 or CJJCJCC=6 or CJJCJCC=19 then
CJJCJJC(CJJCJCJ, CJJCJCC) = CCCJCCC(CJJCJJJ(CJJCJCC))
else
CJJCJJC(CJJCJCJ, CJJCJCC) = CJJCJJJ(CJJCJCC):if CJJCJJJ(CJJCJCC).type<>11 and isnull(CJJCJJC(CJJCJCJ, CJJCJCC)) then CJJCJJC(CJJCJCJ, CJJCJCC)=""
end if:Next:CJJCJJJ.MoveNext:Next
End If:CJJCJJJ.Close: Set CJJCJJJ = Nothing:Application(CCCCJCJ("!$*0%6DED")) = CJJCJJC
End If:CCCJCJC = Application(CCCCJCJ("!$*0%6DED")):End Function:Function CCCJCCJ(CCCCCCJ):Dim CJJCJCJ, CJJCCCJ(), CJJCJJJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:CJCJJJJ = CCCJCJC:For CJJCJCJ = 1 To UBound(CJCJJJJ):If CStr(CJCJJJJ(CJJCJCJ, 0)) = CStr(CCCCCCJ) Then
CJCJJCJ=CJCJJJJ(CJJCJCJ,2):CJCJJJC=CJCJJJJ(CJJCJCJ,7):CJJCCCC=CJCJJJJ(CJJCJCJ,3):Exit For
End If:Next:if CJCJJJC="" then
CJJJCJC=CCCCJCJ("D6=64E ,BF6DE:@?[2?DH6C[EJA6 ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CCCCCCJ & CCCCJCJ(" ,@C56C ,3J ,D@CE")
else
CJJJCJC=CCCCJCJ("$t{tr% ,BF6DE:@?[ ,WD6=64E ,E@A ,` ,2?DH6C ,7C@> ,=3 ,H96C6 ,:5l") & CCCCCCJ & CCCCJCJ("X ,p$ ,2?DH6C[EJA6 ,u#~| ,=3BF6DE:@? ,H96C6 ,=3l") & CCCCCCJ & CCCCJCJ(" ,~#st# ,q* ,D@CE")
end if:set CJJCJJJ=CJJJJJC.execute(CJJJCJC):ReDim CJJCCCJ(CJJCCCC, 2):For CJJCJCJ = 1 To CJJCCCC:CJJCCCJ(CJJCJCJ, 0) = CJJCJJJ(0) & "":CJJCCCJ(CJJCJCJ, 1) = CJJCJJJ(1) & "":CJJCCCJ(CJJCJCJ, 2) = CJJCJJJ(2):CJJCJJJ.MoveNext:Next:CJJCJJJ.Close: Set CJJCJJJ = Nothing:CCCJCCJ = CJJCCCJ:End Function:::::::::::::::::::::::::::::Function CCCJCCC(CCCCCCC):if isnull(CCCCCCC) then
CCCJCCC=""
else
On Error Resume Next:CCCJCCC=CCCCCCC:if err.number=-2147352567 then
CCCJCCC="":err.Clear
end if
end if:End Function::::::Dim CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC:Dim CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:Dim CCJJJCJ,CCJJJCC,CCJJCJJ:Dim CCJJCJC:CCJJCJC=Trim(Request.Cookies(CCCCJCJ("!$*|t|qt#"))):if CCJJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJJCC>0 then
CJJJCJC=CCCCJCJ("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") & CJCJCJJ & CCCCJCJ("V ,2?5 ,:5l") & CJCJJCC
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJCJCJC=CJJJJCC(2) & "":CJCJCCJ=CJJJJCC(3):CJCJCCC=CJJJJCC(5):CJCCJJJ=CJJJJCC(6):CJCCJJC=CJJJJCC(9):CJCCJCJ=CJJJJCC(15):CJCCCJJ=CJJJJCC(0):CCJJJCC=CJJJJCC(1):CCJJJCJ=CJJJJCC(11) & "":CJCCCJC=CJJJJCC(10) & "":CJCCJCC=CJJJJCC(12):CJCCCCJ=CJJJJCC(14):CJCCCCC=CJJJJCC(13):CCJJJJJ=CJJJJCC(7) & "":CCJJJJC=CJJJJCC(4):CCJJCJJ=CJJJJCC(8):if isnull(CJCCJCJ) then CJCCJCJ=0
if isnull(CJCCJJC) or CJCCJJC=0 then CJCCJJC=CJCJCCJ
if isnull(CCJJJJC) then CCJJJJC=0
if isnull(CJCJCCC) then CJCJCCC=0
if instr(CCCCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJCJJ)>0 then Call RedirectMessage(CCCCJCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCJJCC,CJCJCJJ)
End IF
end if:Sub CheckRight(CJJCCJJ):dim CJJCJCJ,CCJJCCJ:if CJCJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCJJJ(CJJCCJJ) then
Call RedirectMessage(CCCCJCJ("朾@陋@W") & CJJCCJJ & CCCCJCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCJJJ(CJJCCJJ):dim CJJCJCJ,CCJJCCJ:CCJJCCJ=split(CJJCCJJ,CCCCJCJ("[")):CCCCJJJ=False:for CJJCJCJ=0 to ubound(CCJJCCJ):If Mid(CJCJCJC,CCJJCCJ(CJJCJCJ),1)="1" then
CCCCJJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCCJCJ("!$*|t|qt#"))="":CJCJJCC=0:CJCCJJJ=0:CJCJCJJ=Empty:CJCJCCC=0:CJCCJCJ=0:CJCCJJC=0:CJCJCCJ=0:CJCCCJJ=False:CCJJJCC=False:CCJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCJ,CCJJCCC,CJJCJCJ,CJJCJCC,CCJCJJJ:CJJJCCJ=split(CCJJCJC,CCCCJCJ("]")):if ubound(CJJJCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCCJ(0)) or len(CJJJCCJ(1))<>32 or len(CJJJCCJ(2))<>32 then
Call ClearMemberCookie
else
CCJJCCC=CJJJCCJ(1):for CJJCJCJ=1 to len(CCJJCCC):CJJCJCC=mid(CCJJCCC,CJJCJCJ,1):if isnumeric(CJJCJCC) then CCJCJJJ=CCJCJJJ & CJJCJCC
if len(CCJCJJJ)=7 then exit for
next:CCJJCCC=CJJJCCJ(2):if CCJCJJJ<>mid(CCJJCCC,6,7) then
Call ClearMemberCookie
else
CJJCJCC=mid(CCJJCCC,18,10)/2:if CJJCJCC<DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJJCC=Clng(CJJJCCJ(0)):CJCJCJJ=CJJJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJC,CJJJJJJJ):dim CJJCJCJ,CJJCJCC,CCJCJJJ:for CJJCJCJ=1 to len(CJJJJJJJ):CJJCJCC=mid(CJJJJJJJ,CJJCJCJ,1):if isnumeric(CJJCJCC) then CCJCJJJ=CCJCJJJ & CJJCJCC
if len(CCJCJJJ)=7 then exit for
next:CCJCJJJ=CCJCJJC & CCCCJCJ("]") & CJJJJJJJ & CCCCJCJ("]") & Fix(10000*(Rnd+1)) & CCJCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJCJ("!$*|t|qt#"))=CCJCJJJ:End Sub::Call CheckRight(5):::dim CCJCJJC,CCJCJCJ:CCJCJJC=Request.QueryString(CCCCJCJ(":5")):CCJCJCJ=Request.QueryString(CCCCJCJ("24E")):if not CCJCCCC(CCJCJJC) then Call ShowError(CCCCJCJ("糶@绚@凵@锔@M寴@丈@赲@，,糶@绚@厽@敫@锔@诪@W盳@兮@斂@仱@：,=3G:6H]2DAX！,"))
set CJJJJCC=CJJJJJC.execute(CCCCJCJ("D6=64E ,?2>606?[?2>6049[:?EC@`[E6DEE:A ,7C@> ,=3 ,H96C6 ,:5l") & CCJCJJC):if CJJJJCC.eof then Call ShowError(CCCCJCJ("糶@绚@揋@礵@M寴@丈@赲@，,患@襼@柠@眆@癿@释@衣@幱@丈@孓@圣@！,"))
Response.Write(vbCrLf):Response.Write(CCCCJCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCCJCJ("k9E>=m") & vbCrLf):Response.Write(CCCCJCJ("k9625m") & vbCrLf):Response.Write(CCCCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCJCJ("kE:E=6m")):Response.Write  CJJJJCC(1):Response.Write(CCCCJCJ("k^E:E=6m") & vbCrLf):Response.Write(CCCCJCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCJCJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CCCCJCJ(" ,SWQ:?AFEi3FEE@?,G2=F6lV迏@ ,囙@V.QX]4=:4<W7F?4E:@?W6XL9:DE@CJ]324<WXjNXj") & vbCrLf):Response.Write(CCCCJCJ("NXj") & vbCrLf):Response.Write(CCCCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("k^9625m") & vbCrLf):Response.Write(CCCCJCJ("k3@5Jm") & vbCrLf):Response.Write(CCCCJCJ("k:?AFE ,?2>6lQ3FEE@?Q ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ迏@ ,囙@Q ,^m") & vbCrLf)::If CCJCJCJ=CCCCJCJ("BF6DE") Then
Response.Write(vbCrLf):Response.Write(CCCCJCJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m颓@盩@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m夂@逄@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):dim CJJCJCJ,CCJCJCC:CCJCJCC=CCCJCCJ(CCJCJJC):CJJCJCJ=1:for CJJCJCJ=1 to ubound(CCJCJCC):Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJCJCJ:Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m")):Response.Write  CCJCJCC(CJJCJCJ,0):Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m")):Response.Write  replace(CCJCJCC(CJJCJCJ,1) & "",CCCCJCJ("M"),CCCCJCJ("^")):Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCCJCJ("k^E23=6m") & vbCrLf)
Else
Response.Write(vbCrLf):Response.Write(CCCCJCJ("kE23=6 ,H:5E9lQhdTQ , ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQcQ ,DEJ=6lQ3@C56C\E@AiaAI ,D@=:5 ,Reehhuuj ,3@C56C\3@EE@>iaAI ,D@=:5 ,ReehhuuQm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5 ,G2=:8?lQE@AQ ,?@HC2AlQ?@HC2AQm筻@　,仆@：,k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m")):Response.Write  CCCCJCJ("kAm") & replace(CJJJJCC(2) & "",vbcrlf,CCCCJCJ("kAm")):Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5 ,G2=:8?lQE@AQm挂@寷@诨@：,k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5 ,DEJ=6lQ3@C56C\E@Ai`AI ,D@=:5 ,ReehhuuQm")):Response.Write  CCCCJCJ("kAm") & replace(CJJJJCC(3) & "",vbcrlf,CCCCJCJ("kAm")):Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ("k^E23=6m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCCCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0
Function CCCCJCJ(ByVal CCCCJJC)
Dim CCJCCJJ, CJJCJCJ, CCJCCJC
CCCCJJC = Replace(CCCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CCCCJJC)
If CJJCJCJ <> CCJCCJC Then
CCJCCJJ = AscW(Mid(CCCCJJC, CJJCJCJ, 1))
If CCJCCJJ >= 33 And CCJCCJJ <= 79 Then
CCCCJCJ = CCCCJCJ & Chr(CCJCCJJ + 47)
ElseIf CCJCCJJ >= 80 And CCJCCJJ <= 126 Then
CCCCJCJ = CCCCJCJ & Chr(CCJCCJJ - 47)
Else
CCJCCJC = CJJCJCJ + 1
If Mid(CCCCJJC, CCJCCJC, 1) = Chr(64) Then CCCCJCJ = CCCCJCJ & ChrW(CCJCCJJ + 5) Else CCCCJCJ = CCCCJCJ & Mid(CCCCJJC, CJJCJCJ, 1)
End If
End If
Next
End Function
%>