<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CJCJCJC("ps~sq]r@??64E:@?")):CCJCC.open Application(CJCJCJC("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJCJCJC("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CJCJCJC("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") & CJJJJC & CJCJCJC("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CJCJCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJCJCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:Sub CheckRight(CJCJJCJ):dim CCJJCC,CCJCJJ:if CJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJCJJC(CJCJJCJ) then
Call RedirectMessage(CJCJCJC("朾@陋@W") & CJCJJCJ & CJCJCJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJCJJC(CJCJJCJ):dim CCJJCC,CCJCJJ:CCJCJJ=split(CJCJJCJ,CJCJCJC("[")):CJJCJJC=False:for CCJJCC=0 to ubound(CCJCJJ):If Mid(CJJJCJ,CCJCJJ(CCJJCC),1)="1" then
CJJCJJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJCJC("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJJCC,CCJCCC,CCCJJJ:CCJCJC=split(CCJJCJ,CJCJCJC("]")):if ubound(CCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCJCJC(1):for CCJJCC=1 to len(CCJCCJ):CCJCCC=mid(CCJCCJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCCJ=CCJCJC(2):if CCCJJJ<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCCJ,18,10)/2:if CCJCCC<DateDiff(CJCJCJC("D"), CJCJCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJC(0)):CJJJJC=CCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJ,CJCJCCJ):dim CCJJCC,CCJCCC,CCCJJJ:for CCJJCC=1 to len(CJCJCCJ):CCJCCC=mid(CJCJCCJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CJJJJJJ & CJCJCJC("]") & CJCJCCJ & CJCJCJC("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJCJC("D"), CJCJCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCJC("!$*|t|qt#"))=CCCJJJ:End Sub::Function CJJCJCJ(CJCJCCC):Dim str,CCCJCJ:str = Trim(CJCJCCC):If IsNull(str) Or str = "" Then
CJJCJCJ = ""
else
str=Replace(str, CJCJCJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJCJC("k:7C2>6"), CJCJCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJCJC("kD4C:AE"), CJCJCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJCJ=new RegExp:CCCJCJ.Pattern=CJCJCJC("@?W,2\K.ZXl"):CCCJCJ.IgnoreCase = True:CCCJCJ.Global=True:str=CCCJCJ.Replace(str,CJCJCJC("@?S`U6BF2=Dj")):set CCCJCJ=nothing:CJJCJCJ=str
End If:End Function::Const CJJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCJJJ,CJCCJJC):dim CCJCJC:CCJCJC=CJCCJJJ & "=" & CJCCJJC & CJCJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJC("$6E\r@@<:6"),CCJCJC):End Sub:::::Sub CheckValidPost():dim CCCJCC:CCCJCC=false:Dim CCCCJJ : CCCCJJ=lcase(Request.ServerVariables(CJCJCJC("w%%!0#tut#t#"))):if(instr(CCCCJJ,Application(CJCJCJC("s@>2:?(9:E6{:DE")))>0) then
CCCJCC=true
else
Dim CCCCJC : CCCCJC=lcase(Request.ServerVariables(CJCJCJC("$t#'t#0}p|t"))):Dim CCCCCJ : CCCCCJ=Request.ServerVariables(CJCJCJC("{~rp{0pss#")):if Mid(CCCCJJ,8,Len(CCCCJC))=CCCCJC or Mid(CCCCJJ,9,Len(CCCCJC))=CCCCJC or CCCCJC=CCCCCJ then CCCJCC=true
end if:if not CCCJCC then Call RedirectMessage(CJCJCJC("寴@丈@赲@，,朧@糶@绚@丈@儼@讳@竔@夑@揋@亟@敫@捩@。,"))
end sub:sub ShowMessage(CJCCJCJ):response.Charset=CJCJCJC("FE7\g"):Response.Write CJCJCJC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJCCJCJ & CJCJCJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJCJCC(CJJJCCJ):if isnull(CJJJCCJ) or trim(CJJJCCJ)="" or not isnumeric(CJJJCCJ) then
CJJCJCC=false
else
Dim CCCJCJ:Set CCCJCJ = New RegExp:CCCJCJ.Pattern = CJCJCJC("/-5ZS"):CCCJCJ.IgnoreCase = True:CJJCJCC = CCCJCJ.test(CJJJCCJ):set CCCJCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CJCJJJJ.close : set CJCJJJJ=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CJCJJJC.Close : Set CJCJJJC = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJC("!$*0|6DD286"),server.URLEncode(CJCCJCJ)):Response.Redirect CJCJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::Function CJCJJCC(CJJJCJJ,CJCJJCJ,CJCCJCC):dim str,CCCCCC:CCCCCC=Len(CJJJCJJ & ""):CJCJJCJ=Cint(CJCJJCJ):if CCCCCC<CJCJJCJ then
if CJCCJCC=0 then str=CJJJCJJ else str=CJJJCJJ & string(CJCJJCJ-CCCCCC-1,"0") & 1
else
str=left(CJJJCJJ,CJCJJCJ-1) & CJCCJCC & mid(CJJJCJJ,CJCJJCJ+1)
end if:CJCJJCC=str:End Function::::::::::::::::::::::::::::::::Call CheckRight(49):Const CJJCJJJ=4:dim CJJJJJJ:CJJJJJJ=Trim(Request.QueryString(CJCJCJC(":5"))):if not CJJCJCC(CJJJJJJ) then Call RedirectMessage(CJCJCJC("丨@囸@徾@琁@罌@M寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
dim CJJJJJC(3),CJJJJCJ,CCJJCC,CJJJJCC,CJJJCJJ:set CCCJC=CCJCC.execute(CJCJCJC("D6=64E ,E@A ,` ,FD6C?2>6[C62=?2>6[,C:89E. ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CJJJJJJ):for CCJJCC=0 to 2:CJJJJJC(CCJJCC)=CCCJC(CCJJCC):next:CJJJJCJ=CCCJC(2):if Request.ServerVariables(CJCJCJC("#t""&t$%0|t%w~s"))=CJCJCJC("!~$%") then
Call CheckValidPost:CJJJCJJ=CJJCJCJ(Request.Form(CJCJCJC("C:89EDEC"))):if CJJJCJJ<>"" then
CJJJCJJ=split(CJJJCJJ,CJCJCJC("M")):for CCJJCC=1 to ubound(CJJJCJJ):CJJJJCJ=CJCJJCC(CJJJJCJ,CJJJCJJ(CCJJCC),CInt(Request.Form(CJCJCJC("C:89E0") & CJJJCJJ(CCJJCC)))):next:CCCCC=CJCJCJC("FA52E6 ,>6>36C ,D6E ,,C:89E.lV") & CJJJJCJ & CJCJCJC("V ,H96C6 ,:5l") & CJJJJJJ
CCJCC.execute CCCCC
end if:Call ShowMessage(CJCJCJC("箜@琁@呓@朾@陋@讹@罩@戋@劚@！,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJCJC("k9E>=m") & vbCrLf):Response.Write(CJCJCJC("k9625m") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJCJCJC("kE:E=6m讹@罩@箜@琁@呓@朾@陋@k^E:E=6m") & vbCrLf):Response.Write(CJCJCJC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCJCJC("k^9625m") & vbCrLf):Response.Write(CJCJCJC("k3@5Jm") & vbCrLf):Response.Write(CJCJCJC("kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,kE9m·, ,埵@朧@俜@恪@ ,·,k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,4=2DDlQ=236=Qmxs：,k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5m")):Response.Write  CJJJJJJ:Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,4=2DDlQ=236=Qm癶@彐@：,k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5m")):Response.Write  CJJJJJC(0):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,4=2DDlQ=236=Qm姎@合@：,k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5m")):Response.Write  CJJJJJC(1):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJC("k^E23=6m") & vbCrLf):Response.Write(CJCJCJC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJCJC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJCJC(" ,k=686?5m讹@宕@朾@陋@k^=686?5m") & vbCrLf):Response.Write(CJCJCJC(" ,")):CJJJCJJ="":set CCCJC=CCJCC.execute(CJCJCJC("D6=64E ,:5[?2>6[:?EC@ ,7C@> ,>6>36C0C:89E ,H96C6 ,EJA6l") & CJJCJJJ & CJCJCJC(" ,@C56C ,3J ,D@CE")):while not CCCJC.eof:CJJJJCC=CCCJC(0):CJJJCJJ=CJJJCJJ & CJCJCJC("M") & CJJJJCC:response.write CJCJCJC("kDA2? ,DEJ=6lVH:5E9i`bdAIj ,5:DA=2Ji:?=:?6\3=@4<jVmk:?AFE ,?2>6lVC:89E0") & CJJJJCC & CJCJCJC("V ,EJA6lV4964<3@IV ,:5lVC:89E0") & CJJJJCC & CJCJCJC("V ,G2=F6lV`V")
if mid(CJJJJCJ,CJJJJCC,1)="1" then response.Write CJCJCJC(" ,4964<65")
response.Write CJCJCJC("mk=236= ,7@ClVC:89E0") & CJJJJCC & CJCJCJC("V ,E:E=6lV") & CCCJC(2) & CJCJCJC(" ,,") & CJJJJCC & CJCJCJC(".Vm") & CCCJC(1) & CJCJCJC("k^=236=mk^DA2?m")
CCCJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQC:89EDECQ ,:5lQC:89EDECQ ,G2=F6lQ")):Response.Write  CJJJCJJ:Response.Write(CJCJCJC("Qm") & vbCrLf):Response.Write(CJCJCJC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJCJC(" ,k3Cm") & vbCrLf):Response.Write(CJCJCJC(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi4964<2==WE9:DXQ ,G2=F6lQ兣@ ,逄@Qm") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ揋@ ,亟@Qm") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Qm") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ兮@ ,门@Q ,@?r=:4<lQ;2G2D4C:AEiA2C6?E]S]KII3@I]9:56WXjQm") & vbCrLf):Response.Write(CJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJC("k^7@C>m") & vbCrLf):Response.Write(CJCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJCJCJC("7F?4E:@? ,4964<2==W@XL") & vbCrLf):Response.Write(CJCJCJC(" ,H:E9W5@4F>6?E]7@C>`XL") & vbCrLf):Response.Write(CJCJCJC(" ,7@CWG2C ,:l_j:k=6?8E9j:ZZX") & vbCrLf):Response.Write(CJCJCJC(" ,:7W6=6>6?ED,:.]EJA6llQ4964<3@IQX") & vbCrLf):Response.Write(CJCJCJC(" ,6=6>6?ED,:.]4964<65l@]G2=F6llQ兣@ ,逄@QnECF6i72=D6j") & vbCrLf):Response.Write(CJCJCJC(" ,N") & vbCrLf):Response.Write(CJCJCJC(" ,@]G2=F6l@]G2=F6llQ兣@ ,逄@QnQ丈@ ,逄@QiQ兣@ ,逄@Qj") & vbCrLf):Response.Write(CJCJCJC("N") & vbCrLf):Response.Write(CJCJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCJC(ByVal CJCJCJJ)
Dim CJJJCJC, CCJJCC, CJJJCCJ
CJCJCJJ = Replace(CJCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CJCJCJJ)
If CCJJCC <> CJJJCCJ Then
CJJJCJC = AscW(Mid(CJCJCJJ, CCJJCC, 1))
If CJJJCJC >= 33 And CJJJCJC <= 79 Then
CJCJCJC = CJCJCJC & Chr(CJJJCJC + 47)
ElseIf CJJJCJC >= 80 And CJJJCJC <= 126 Then
CJCJCJC = CJCJCJC & Chr(CJJJCJC - 47)
Else
CJJJCCJ = CCJJCC + 1
If Mid(CJCJCJJ, CJJJCCJ, 1) = Chr(64) Then CJCJCJC = CJCJCJC & ChrW(CJJJCJC + 5) Else CJCJCJC = CJCJCJC & Mid(CJCJCJJ, CCJJCC, 1)
End If
End If
Next
End Function
%>