<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJ, CCCCC,CJJJJJ, CJJJJC, CJJJCJ:Set CCCCJ = server.CreateObject(CJCJCCC("ps~sq]r@??64E:@?")):CCCCJ.open Application(CJCJCCC("r@??64E:@?$EC:?8")):Set CCCCC=CCCCJ::::Const CJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCJJJ,CJCCJJC):dim CJJJCC:CJJJCC=CJCCJJJ & "=" & CJCCJJC & CJCJCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCCC("$6E\r@@<:6"),CJJJCC):End Sub:::::::Function CJJCCJJ(CJJJJJJ):if isnull(CJJJJJJ) or trim(CJJJJJJ)="" or not isnumeric(CJJJJJJ) then
CJJCCJJ=false
else
Dim CJJCJJ:Set CJJCJJ = New RegExp:CJJCJJ.Pattern = CJCJCCC("/-5ZS"):CJJCJJ.IgnoreCase = True:CJJCCJJ = CJJCJJ.test(CJJJJJJ):set CJJCJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:CJCJJJC.close : set CJCJJJC=nothing:CJJJJC.Close : Set CJJJJC=Nothing:CJJJJJ.Close : Set CJJJJJ=Nothing:CJCJJCJ.Close : Set CJCJJCJ = Nothing:CCCCJ.Close : Set CCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCCC("!$*0|6DD286"),server.URLEncode(CJCCJCJ)):Response.Redirect CJCJCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC:CCJCCC=Trim(Request.Cookies(CJCJCCC("!$*|t|qt#"))):if CCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJC>0 then
CJJJCJ=CJCJCCC("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") & CJJCCJ & CJCJCCC("V ,2?5 ,:5l") & CJJCJC
set CJJJJJ=CCCCJ.execute(CJJJCJ):If CJJJJJ.EOF Then
Call ClearMemberCookie
Else
CJJCCC=CJJJJJ(2) & "":CJCJJJ=CJJJJJ(3):CJCJJC=CJJJJJ(5):CJCJCJ=CJJJJJ(6):CJCJCC=CJJJJJ(9):CJCCJJ=CJJJJJ(15):CJCCCJ=CJJJJJ(0):CCJCJC=CJJJJJ(1):CCJCJJ=CJJJJJ(11) & "":CJCCCC=CJJJJJ(10) & "":CJCCJC=CJJJJJ(12):CCJJJJ=CJJJJJ(14):CCJJJC=CJJJJJ(13):CCJJCJ=CJJJJJ(7) & "":CCJJCC=CJJJJJ(4):CCJCCJ=CJJJJJ(8):if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJCJCC) or CJCJCC=0 then CJCJCC=CJCJJJ
if isnull(CCJJCC) then CCJJCC=0
if isnull(CJCJJC) then CJCJJC=0
if instr(CJCJCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCJ)>0 then Call RedirectMessage(CJCJCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJC,CJJCCJ)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CJCJCCC("!$*|t|qt#"))="":CJJCJC=0:CJCJCJ=0:CJJCCJ=Empty:CJCJJC=0:CJCCJJ=0:CJCJCC=0:CJCJJJ=0:CJCCCJ=False:CCJCJC=False:CCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:CJJJCC=split(CCJCCC,CJCJCCC("]")):if ubound(CJJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCC(0)) or len(CJJJCC(1))<>32 or len(CJJJCC(2))<>32 then
Call ClearMemberCookie
else
CCCJJJ=CJJJCC(1):for CCCJJC=1 to len(CCCJJJ):CCCJCJ=mid(CCCJJJ,CCCJJC,1):if isnumeric(CCCJCJ) then CCCJCC=CCCJCC & CCCJCJ
if len(CCCJCC)=7 then exit for
next:CCCJJJ=CJJJCC(2):if CCCJCC<>mid(CCCJJJ,6,7) then
Call ClearMemberCookie
else
CCCJCJ=mid(CCCJJJ,18,10)/2:if CCCJCJ<DateDiff(CJCJCCC("D"), CJCJCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJC=Clng(CJJJCC(0)):CJJCCJ=CJJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJC,CJCCJCC):dim CCCJJC,CCCJCJ,CCCJCC:for CCCJJC=1 to len(CJCCJCC):CCCJCJ=mid(CJCCJCC,CCCJJC,1):if isnumeric(CCCJCJ) then CCCJCC=CCCJCC & CCCJCJ
if len(CCCJCC)=7 then exit for
next:CCCJCC=CJJJJJC & CJCJCCC("]") & CJCCJCC & CJCJCCC("]") & Fix(10000*(Rnd+1)) & CCCJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJCCC("D"), CJCJCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCCC("!$*|t|qt#"))=CCCJCC:End Sub:::Public Function CJCJJCC(CJJJJJJ):dim CCCCJJ:if isnull(CJJJJJJ) or trim(CJJJJJJ)="" or not isnumeric(CJJJJJJ) or instr(CJJJJJJ,CJCJCCC("\"))>0 or instr(CJJJJJJ,CJCJCCC("]"))>0 or len(CJJJJJJ)<6 then
CCCCJJ=""
else
CCCCJJ=CJJJJJJ:CCCCJJ=Left(CCCCJJ,Len(CCCCJJ)-2):if Right(CJJJJJJ,2)=CJCJCJC(CCCCJJ) then
CCCCJJ=CJCJCJJ(CCCCJJ):CCCCJJ=Left(CCCCJJ,Len(CCCCJJ)-2):if Left(CCCCJJ,1)="0" then CCCCJJ=Mid(CCCCJJ,2)
else
CCCCJJ=""
end if
end if:CJCJJCC=CCCCJJ:End Function:Private Function CJCJCJJ(str):Dim CCCCJC, CCCJJC, CCCJCC, CCCCCJ, CCCCCC, CJJJJJJ,CCCCJJ:CCCCCJ = Len(str):For CCCJJC = 1 To CCCCCJ:CCCJCC = CInt(Mid(str, CCCJJC, 1)):If CCCJCC < 5 Then CCCJCC = CCCJCC + 5 Else CCCJCC = CCCJCC - 5
CCCCJC = CCCCJC & CCCJCC:Next:For CCCJJC = 1 To CCCCCJ - 1 Step 2:CCCCCC = Mid(CCCCJC, CCCJJC, 1):CJJJJJJ = Mid(CCCCJC, CCCJJC + 1, 1):CCCCJJ = CCCCJJ & CJJJJJJ & CCCCCC:Next:CJCJCJJ = StrReverse(CCCCJJ):End Function:Private Function CJCJCJC(CJCCCJC):Dim CCCCCJ, CCCJJC, CJJJJJJ, CCCCJC:CCCCCJ = Len(CJCCCJC):CJJJJJJ = 0:For CCCJJC = 1 To CCCCCJ:CCCCJC = CInt(Mid(CJCCCJC, CCCJJC, 1)):If CCCJJC Mod 2 = 0 Then CJJJJJJ = CJJJJJJ + CCCCJC * 3 Else CJJJJJJ = CJJJJJJ + CCCCJC
Next:CJJJJJJ = CJJJJJJ Mod 100:CJJJJJJ = 100 - CJJJJJJ:CJCJCJC = Right("0" & CJJJJJJ, 2):End Function::dim CJJJJJC,CJJJJCJ:CJJJJCJ=request.QueryString(CJCJCCC("<6J")):if CJJCCJJ(CJJJJCJ) then CJJJJJC=CJCJJCC(CJJJJCJ)
if not CJJCCJJ(CJJJJJC) then Call RedirectMessage(CJCJCCC("寴@丈@赲@，,糶@绚@厽@敫@凵@玫@锔@诪@！,"))
set CJJJJJ=CCCCJ.execute(CJCJCCC("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJJJJJC):if CJJJJJ.eof then Call RedirectMessage(CJCJCCC("寴@丈@赲@，,浆@诐@讫@彐@W") & CJJJJCJ & CJCJCCC("X朥@批@别@。,"))
dim CJJJJCC,CJJJCJJ,CJJJCJC:CJJJJCC=CJJJJJ(CJCJCCC("=3")):CJJJCJJ=CJJJJJ(CJCJCCC("=3?2>67C")):CJJJCJC=CJJJJJ(CJCJCCC(">6>36C")):Response.Write(vbCrLf):Response.Write(CJCJCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJCCC("k9625m") & vbCrLf):Response.Write(CJCJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJCCC("kE:E=6m")):Response.Write  CJJJCJJ:Response.Write(CJCJCCC("k^E:E=6m") & vbCrLf):Response.Write(CJCJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCJCCC("kDEJ=6m") & vbCrLf):Response.Write(CJCJCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCC("k^9625m") & vbCrLf):Response.Write(CJCJCCC("k3@5Jm") & vbCrLf):Response.Write(CJCJCCC("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJCJCCC(" ,")):if Request.QueryString(CJCJCCC("324<"))="1" then
Response.Write(vbCrLf):Response.Write(CJCJCCC(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQmk2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQmk: ,4=2DDlQ2>\:4@?\2?8=6\=67EQmk^:m ,迏@囙@k^2mk^5:Gm") & vbCrLf):Response.Write(CJCJCCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJCCC(" ,k9` ,4=2DDlQ2>\96256C\E:E=6Qm柠@眆@绎@林@k^9`m") & vbCrLf):Response.Write(CJCJCCC("k^96256Cm") & vbCrLf):Response.Write(CJCJCCC("k3Cm") & vbCrLf):Response.Write(CJCJCCC("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCJCCC(" ,k2CE:4=6 ,4=2DDlQ2>\2CE:4=6Qm") & vbCrLf):Response.Write(CJCJCCC(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CJCJCCC(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write  CJJJCJJ:Response.Write(CJCJCCC("k^9`m") & vbCrLf):Response.Write(CJCJCCC(" ,kA ,4=2DDlQ2>\2CE:4=6\>6E2Qm浆@访@旱@闯@：,")):Response.Write  CJJJJJ(CJCJCCC("52E6E:>6")):Response.Write(CJCJCCC("k^Am") & vbCrLf):Response.Write(CJCJCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCCC(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CJCJCCC(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm") & vbCrLf):Response.Write(CJCJCCC(" ,")):set CJJJJC=CCCCJ.execute(CJCJCCC("D6=64E ,E@A ,` ,:?EC@`[:?EC@a ,7C@> ,=3 ,H96C6 ,:5l") & CJJJJCC):if CJJJJC(1)="" then response.Write CJJJJC(0) else response.Write CJJJJC(1)
Response.Write(vbCrLf):Response.Write(CJCJCCC(" ,k^Am") & vbCrLf):Response.Write(CJCJCCC(" ,")):if CJJJJJ(CJCJCCC("492CE"))>0 then
dim CJJJCCJ,CJJJCCC,CJJCJJJ:if CJJJJJ(CJCJCCC("492CE"))=1 then CJJJCCJ=CJJJJJ(CJCJCCC("D4@C60C2H")) else CJJJCCJ=CJJJJJ(CJCJCCC("D4@C60E"))
if instr(CJCJCCC("[`[e["),CJCJCCC("[") & CJJJJCC & CJCJCCC("["))>0 then
CJJJCCC=500:CJJCJJJ=600
else
CJJCJJJ=350
end if:response.Write CJCJCCC("k9bm绎@林@囹@牂@k^9bmk5:G ,4=2DDlV2>\D4C@==23=6\9@C:K@?E2=Vm")
response.Write CJCJCCC("kD4C:AE ,DC4lV^=3^492CE^") & CJJJJJ(CJCJCCC("=3?2>66?")) & CJCJCCC("];DnHl") & CJJJCCC & CJCJCCC("U9l") & CJJCJJJ & CJCJCCC("UGl") & CJJJCCJ & CJCJCCC("Vmk^D4C:AEm")
response.Write CJCJCCC("k^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJCJCCC(" ,k9bm绎@林@觞@釅@k^9bm") & vbCrLf):Response.Write(CJCJCCC(" ,kAm") & vbCrLf):Response.Write(CJCJCCC(" ,")):dim CJJCJJC:if CJJCJC=CJJJCJC then CJJCJJC=CJJJJJ(CJCJCCC("6IA=2:?a")) & ""
if CJJCJJC="" then CJJCJJC=CJJJJJ(CJCJCCC("6IA=2:?")) & ""
response.Write replace(CJJCJJC,vbcrlf,CJCJCCC("k^AmkAm")):Response.Write(vbCrLf):Response.Write(CJCJCCC(" ,k^Am") & vbCrLf):Response.Write(CJCJCCC(" ,")):CJJCJJC=CJJJJJ(CJCJCCC("25G:46")) & "":if CJJCJJC<>"" then Response.Write CJCJCCC("k9bm徾@琁@廵@让@k^9bmkAm") & replace(CJJCJJC,vbcrlf,CJCJCCC("k^AmkAm")) & CJCJCCC("k^Am")
Response.Write(vbCrLf):Response.Write(CJCJCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCCC(" ,k^2CE:4=6m") & vbCrLf):Response.Write(CJCJCCC("k^5:Gm") & vbCrLf):Response.Write(CJCJCCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCCC("NX") & vbCrLf):Response.Write(CJCJCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:CJJJJC.Close:Set CJJJJC=Nothing:CJJJJJ.Close:Set CJJJJJ=Nothing:CCCCJ.Close:Set CCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCCC(ByVal CJCJCCJ)
Dim CJJCJCJ, CCCJJC, CJJJJJJ
CJCJCCJ = Replace(CJCJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJC = 1 To Len(CJCJCCJ)
If CCCJJC <> CJJJJJJ Then
CJJCJCJ = AscW(Mid(CJCJCCJ, CCCJJC, 1))
If CJJCJCJ >= 33 And CJJCJCJ <= 79 Then
CJCJCCC = CJCJCCC & Chr(CJJCJCJ + 47)
ElseIf CJJCJCJ >= 80 And CJJCJCJ <= 126 Then
CJCJCCC = CJCJCCC & Chr(CJJCJCJ - 47)
Else
CJJJJJJ = CCCJJC + 1
If Mid(CJCJCCJ, CJJJJJJ, 1) = Chr(64) Then CJCJCCC = CJCJCCC & ChrW(CJJCJCJ + 5) Else CJCJCCC = CJCJCCC & Mid(CJCJCCJ, CCCJJC, 1)
End If
End If
Next
End Function
%>