<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CCJCCJC("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CCJCCJC("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC:::Function IIf(CCJCCCJ, CCJCCCC, CCCJJJJ):if isnull(CCJCCCJ) or isempty(CCJCCCJ) then
IIf = CCCJJJJ
elseif CCJCCCJ Then
IIf = CCJCCCC
Else
IIf = CCCJJJJ
end if:End Function:Const CCJJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJJC,CCCJJCJ):dim CJJJCCJ:CJJJCCJ=CCCJJJC & "=" & CCCJJCJ & CCJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJC("$6E\r@@<:6"),CJJJCCJ):End Sub:::::::Function CCJJCJC(CCJJJCJ):if isnull(CCJJJCJ) or trim(CCJJJCJ)="" or not isnumeric(CCJJJCJ) then
CCJJCJC=false
else
Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CCJCCJC("/-5ZS"):CJJJCCC.IgnoreCase = True:CCJJCJC = CJJJCCC.test(CCJJJCJ):set CJJJCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:CCJCJCJ.close : set CCJCJCJ=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CCJCJCC.Close : Set CCJCJCC = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJC("!$*0|6DD286"),server.URLEncode(CCCJJCC)):Response.Redirect CCJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC,CJCCJJJ,CJCCJJC:Dim CJCCJCJ:CJCCJCJ=Trim(Request.Cookies(CCJCCJC("!$*|t|qt#"))):if CJCCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJJ>0 then
CJJJCJC=CCJCCJC("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") & CJJCJJC & CCJCCJC("V ,2?5 ,:5l") & CJJCJJJ
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJJCJCJ=CJJJJCC(2) & "":CJJCJCC=CJJJJCC(3):CJJCCJJ=CJJJJCC(5):CJJCCJC=CJJJJCC(6):CJJCCCJ=CJJJJCC(9):CJJCCCC=CJJJJCC(15):CJCJJJC=CJJJJCC(0):CJCCJJJ=CJJJJCC(1):CJCJCCC=CJJJJCC(11) & "":CJCJJCJ=CJJJJCC(10) & "":CJCJJJJ=CJJJJCC(12):CJCJJCC=CJJJJCC(14):CJCJCJJ=CJJJJCC(13):CJCJCJC=CJJJJCC(7) & "":CJCJCCJ=CJJJJCC(4):CJCCJJC=CJJJJCC(8):if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJCCCJ) or CJJCCCJ=0 then CJJCCCJ=CJJCJCC
if isnull(CJCJCCJ) then CJCJCCJ=0
if isnull(CJJCCJJ) then CJJCCJJ=0
if instr(CCJCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJC)>0 then Call RedirectMessage(CCJCCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJJJ,CJJCJJC)
End IF
end if:::Sub CheckLogined():if CJJCJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJCC:CJCCJCC=trim(request.QueryString(CCJCCJC("D49@@="))):if isnumeric(CJCCJCC) then
response.Redirect CCJCCJC("^>^G2?E^R^D49@@=^") & CJCCJCC & CCJCCJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCJC("!$*|t|qt#"))="":CJJCJJJ=0:CJJCCJC=0:CJJCJJC=Empty:CJJCCJJ=0:CJJCCCC=0:CJJCCCJ=0:CJJCJCC=0:CJCJJJC=False:CJCCJJJ=False:CJCCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCJ,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJJJCCJ=split(CJCCJCJ,CCJCCJC("]")):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
CJCCCJJ=CJJJCCJ(1):for CJCCCJC=1 to len(CJCCCJJ):CJCCCCJ=mid(CJCCCJJ,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCJJ=CJJJCCJ(2):if CJCCCCC<>mid(CJCCCJJ,6,7) then
Call ClearMemberCookie
else
CJCCCCJ=mid(CJCCCJJ,18,10)/2:if CJCCCCJ<DateDiff(CCJCCJC("D"), CCJCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJJ=Clng(CJJJCCJ(0)):CJJCJJC=CJJJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJJ,CCCJCJJ):dim CJCCCJC,CJCCCCJ,CJCCCCC:for CJCCCJC=1 to len(CCCJCJJ):CJCCCCJ=mid(CCCJCJJ,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCCC=CCJJJJJ & CCJCCJC("]") & CCCJCJJ & CCJCCJC("]") & Fix(10000*(Rnd+1)) & CJCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJC("D"), CCJCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJC("!$*|t|qt#"))=CJCCCCC:End Sub::Call CheckLogined:dim CCJJJJJ:CCJJJJJ=Request.QueryString(CCJCCJC(":5")):if not CCJJCJC(CCJJJJJ) then response.Redirect CCJCCJC(":?]2DA")
set CJJJJCC=CJJJJJC.execute(CCJCCJC("D6=64E ,E@A ,` ,D6?56C?2>6[C646:G6C?2>6[52E6E:>6[E:E=6[4@?E6?E[:DDJD[C646:G6C[D6?56C[:D?6H ,7C@> ,G0>6DD286 ,H96C6 ,:5l") & CCJJJJJ):if CJJJJCC.eof then Call RedirectMessage(CCJCCJC("糶@绚@揋@礵@M寴@丈@赲@，,沜@朄@批@别@患@襼@柠@眆@癿@冀@宴@！,"))
if CJJJJCC(6)=CJJCJJJ then CJJJJJC.execute(CCJCCJC("FA52E6 ,>6DD286 ,D6E ,:D?6Hl_ ,H96C6 ,:5l") & CCJJJJJ)
Response.Write(vbCrLf):Response.Write(CCJCCJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCCJC("k9E>=m") & vbCrLf):Response.Write(CCJCCJC("k9625m") & vbCrLf):Response.Write(CCJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCJC("kE:E=6m浊@觃@k^E:E=6m") & vbCrLf):Response.Write(CCJCCJC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CCJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CCJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CCJCCJC("NXj") & vbCrLf):Response.Write(CCJCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCJC("k^9625m") & vbCrLf):Response.Write(CCJCCJC("k3@5Jm") & vbCrLf):Response.Write(CCJCCJC("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCCJC(" ,k9`m竔@冀@涃@恪@k^9`m") & vbCrLf):Response.Write(CCJCCJC(" ,kF=m") & vbCrLf):Response.Write(CCJCCJC(" ,k=:mk2 ,9C67lQ:?]2DAQm攱@仱@箬@k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJC(" ,k=:mk2 ,9C67lQ@FE]2DAQm双@仱@箬@k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJC(" ,k=:mk2 ,9C67lQHC:E6]2DAQm撫@冔@k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CCJCCJC("k^5:Gm") & vbCrLf):Response.Write(CCJCCJC("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQHC:E6]2DAQm") & vbCrLf):Response.Write(CCJCCJC(" ,k5:G ,:5lQ24E:@?Qm") & vbCrLf):Response.Write(CCJCCJC(" ,")):If CJJJJCC(6)=CJJCJJJ Then
Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?aQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?aQ ,G2=F6lQ创@ ,陟@Q ,@?4=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV患@昪@眚@癿@襼@创@陟@诠@冀@宴@吒@？,VXX=@42E:@?lV24E]2DAn24El56=:?U:5l")):Response.Write  CCJJJJJ:Response.Write(CCJCCJC("VQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?bQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?bQ ,G2=F6lQ囙@ ,夈@Q ,@?4=:4<lQ;2G2D4C:AEi7@C>`]4@?E6?E]G2=F6lVVj7@C>`]E:E=6]G2=F6lV#6iVZ7@C>`]E:E=6]G2=F6Q ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,"))
End If::If CJJJJCC(7)=CJJCJJJ and CJJJJCC(8) Then
Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?dQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?dQ ,G2=F6lQ创@ ,陟@Q ,@?4=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV患@昪@眚@癿@襼@创@陟@诠@冀@宴@吒@？,VXX=@42E:@?lV24E]2DAn24El56=@FEU:5l")):Response.Write  CCJJJJJ:Response.Write(CCJCCJC("VQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?cQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?cQ ,G2=F6lQ轧@ ,双@Q ,@?4=:4<lQ;2G2D4C:AEi7@C>`]C646:G6C]G2=F6lVVQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?Q ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ迏@ ,囙@Q ,@?4=:4<lQ;2G2D4C:AEi9:DE@CJ]324<WXQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?eQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?eQ ,G2=F6lQ兮@门@窒@叞@Q ,@?4=:4<lQ;2G2D4C:AEiD6=7]4=@D6WXQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJC(" ,kE23=6 ,46==DA24:?8lQ`Q ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE9 ,4@=DA2?lQaQm浊@觃@涃@恪@冀@宴@k^E9m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQ ,?@HC2AlQ?@HC2AQm双@迼@耀@：,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write  CJJJJCC(0):Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQC646:G6CQ ,:5lQ9:556?u:6=5Q ,G2=F6lQ")):Response.Write  CJJJJCC(7):Response.Write(CCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQm掠@攱@耀@：,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write  CJJJJCC(1):Response.Write(CCJCCJC("k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQm旱@闯@：,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write  CJJJJCC(2):Response.Write(CCJCCJC("k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQm栂@颓@：,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write  IIf(CJJJJCC(5),CCJCCJC(",糶@绚@涃@恪@."),"") & CJJJJCC(3):Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQE:E=6Q ,:5lQ9:556?u:6=5aQ ,G2=F6lQ")):Response.Write  CJJJJCC(3):Response.Write(CCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm冀@宴@：,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write  replace(CJJJJCC(4),vbcrlf,CCJCCJC("k3Cm")):Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@?E6?EQ ,:5lQ9:556?u:6=5bQ ,G2=F6lQ")):Response.Write  CJJJJCC(4):Response.Write(CCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJC("k^7@C>m") & vbCrLf):Response.Write(CCJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CCJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0
Function CCJCCJC(ByVal CCJCCJJ)
Dim CCJJJJC, CJCCCJC, CCJJJCJ
CCJCCJJ = Replace(CCJCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJC = 1 To Len(CCJCCJJ)
If CJCCCJC <> CCJJJCJ Then
CCJJJJC = AscW(Mid(CCJCCJJ, CJCCCJC, 1))
If CCJJJJC >= 33 And CCJJJJC <= 79 Then
CCJCCJC = CCJCCJC & Chr(CCJJJJC + 47)
ElseIf CCJJJJC >= 80 And CCJJJJC <= 126 Then
CCJCCJC = CCJCCJC & Chr(CCJJJJC - 47)
Else
CCJJJCJ = CJCCCJC + 1
If Mid(CCJCCJJ, CCJJJCJ, 1) = Chr(64) Then CCJCCJC = CCJCCJC & ChrW(CCJJJJC + 5) Else CCJCCJC = CCJCCJC & Mid(CCJCCJJ, CJCCCJC, 1)
End If
End If
Next
End Function
%>