<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJJJJJJ("ps~sq]r@??64E:@?")):CJCCC.open Application(CJJJJJJ("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJJJJJJ("!$*|t|qt#"))):if CJCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJ>0 then
CCJCC=CJJJJJJ("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") & CCCJC & CJJJJJJ("V ,2?5 ,:5l") & CCCJJ
set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then
Call ClearMemberCookie
Else
CCCCJ=CCJJC(2) & "":CCCCC=CCJJC(3):CJJJJJ=CCJJC(5):CJJJJC=CCJJC(6):CJJJCJ=CCJJC(9):CJJJCC=CCJJC(15):CJJCJC=CCJJC(0):CJCCJJ=CCJJC(1):CJCJCC=CCJJC(11) & "":CJJCCJ=CCJJC(10) & "":CJJCJJ=CCJJC(12):CJJCCC=CCJJC(14):CJCJJJ=CCJJC(13):CJCJJC=CCJJC(7) & "":CJCJCJ=CCJJC(4):CJCCJC=CCJJC(8):if isnull(CJJJCC) then CJJJCC=0
if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC
if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJJJJJ) then CJJJJJ=0
if instr(CJJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 then Call RedirectMessage(CJJJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCJJ,CCCJC)
End IF
end if:Sub CheckRight(CJJJJJC):dim CJCCCC,CCJJJJ:if CCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJJJ(CJJJJJC) then
Call RedirectMessage(CJJJJJJ("朾@陋@W") & CJJJJJC & CJJJJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJJJ(CJJJJJC):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJJJJJC,CJJJJJJ("[")):CCCJJJ=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then
CCCJJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJJ("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CJCCCC,CCJJCC,CCJCJJ:CCJJJC=split(CJCCCJ,CJJJJJJ("]")):if ubound(CCJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then
Call ClearMemberCookie
else
CCJJCJ=CCJJJC(1):for CJCCCC=1 to len(CCJJCJ):CCJJCC=mid(CCJJCJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJJCJ=CCJJJC(2):if CCJCJJ<>mid(CCJJCJ,6,7) then
Call ClearMemberCookie
else
CCJJCC=mid(CCJJCJ,18,10)/2:if CCJJCC<DateDiff(CJJJJJJ("D"), CJJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJ=Clng(CCJJJC(0)):CCCJC=CCJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJCJ,CJJJJCC):dim CJCCCC,CCJJCC,CCJCJJ:for CJCCCC=1 to len(CJJJJCC):CCJJCC=mid(CJJJJCC,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJCJJ=CJJJJCJ & CJJJJJJ("]") & CJJJJCC & CJJJJJJ("]") & Fix(10000*(Rnd+1)) & CCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJ("D"), CJJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJ("!$*|t|qt#"))=CCJCJJ:End Sub::::Const CCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJCJJ,CJJJCJC):dim CCJJJC:CCJJJC=CJJJCJJ & "=" & CJJJCJC & CJJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJ("$6E\r@@<:6"),CCJJJC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CCCJJC=nothing:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:CCCCJC.close : set CCCCJC=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CCCCCJ.Close : Set CCCCCJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJ("!$*0|6DD286"),server.URLEncode(CJJJCCJ)):Response.Redirect CJJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(22):Response.Write(vbCrLf):Response.Write(CJJJJJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJJJ("k9E>=m") & vbCrLf):Response.Write(CJJJJJJ("k9625m") & vbCrLf):Response.Write(CJJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^$4C:AED^5EC66^5EC66]4DDQm") & vbCrLf):Response.Write(CJJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJ("3@5J ,L ,324<8C@F?5i ,Ru`u`u`j ,>2C8:?i ,dAI ,_ ,_ ,dAIj ,N") & vbCrLf):Response.Write(CJJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ]]^$4C:AED^5EC66^5EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("k^9625m") & vbCrLf):Response.Write(CJJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJ("k5:G ,4=2DDlQ5EC66Qm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("^Y ,8=@32= ,5%C66 ,Y^") & vbCrLf):Response.Write(CJJJJJJ("G2C ,5 ,l ,?6H ,5%C66WV5VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W_[\`[V劚@胸@菗@卐@VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`c[_[V斂@竛@箜@琁@VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`e[`c[V柠@话@划@衣@V[V2CE:4=6^=:DE]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`f[`c[V栊@盩@箜@琁@V[V2CE:4=6^EJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wab[_[V伕@呓@箜@琁@VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wae[ab[V柠@话@三@划@衣@V[V>6>36C^=:DE]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wfg[ab[V轧@秶@伕@呓@籶@垆@V[V>6>36C^EC2?DEJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wag[ab[V共@仑@伕@呓@擈@佗@VX") & vbCrLf):Response.Write(CJJJJJJ(" ,5]255Wed[ag[V斫@墙@箜@琁@呓@V[V>6>36C^255@?6]2DAV[V一,严@一,严@力@V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbe[ag[V讹@罩@伕@呓@犱@忼@V[V>6>36C^4964<]2DAV[V朥@宜@栳@、,歞@帳@我@耀@祼@産@V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Whc[ag[V扴@释@釈@讹@寁@矼@V[V>6>36C^492?86ADH032E49]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Whe[ag[V伕@呓@朾@陋@划@衣@V[V>6>36C^C:89E]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("^^ ,5]255W``_[agXj") & vbCrLf):Response.Write(CJJJJJJ("5]255Wa`[_[V卐@佈@箜@琁@VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Waf[a`[V卐@佈@籶@垆@V[V>6>36C^EJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ(" ,5]255Wbc[a`[V卐@佈@划@衣@V[VD49@@=^=:DE]2DAV[V孡@栜@划@衣@V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ(" ,5]255W`ac[a`[V卐@佈@吉@叫@菗@卐@箜@琁@V[VD49@@=^>6?F]2DAV[V箜@琁@吉@叫@癿@菗@卐@讹@罩@，,寴@戻@朄@孡@栜@甚@敃@V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbf[_[V释@衣@箜@琁@VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbg[bf[V糶@绚@释@衣@划@衣@V[V=3^=:DE]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbh[bf[V释@衣@籶@刦@V[V=3^EJA6]2DAV[V圣@浆@访@丨@徾@馑@顰@伕@凵@玫@释@衣@籶@刦@V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`a`[_[V囝@低@辀@寷@VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`aa[`a`[V顴@盩@籶@刦@V[VvC@FAvF:52?46^EJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wah[_[V罌@竔@无@忒@V[VDJDE6>^=@8]2DAV[V句@讫@彐@郣@刁@了@仱@V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5@4F>6?E]HC:E6W5X") & vbCrLf):Response.Write(CJJJJJJ(" ,k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJC=nothing:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJ(ByVal CCCCCC)
Dim CCJCJC, CJCCCC, CCJCCJ
CCCCCC = Replace(CCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CCCCCC)
If CJCCCC <> CCJCCJ Then
CCJCJC = AscW(Mid(CCCCCC, CJCCCC, 1))
If CCJCJC >= 33 And CCJCJC <= 79 Then
CJJJJJJ = CJJJJJJ & Chr(CCJCJC + 47)
ElseIf CCJCJC >= 80 And CCJCJC <= 126 Then
CJJJJJJ = CJJJJJJ & Chr(CCJCJC - 47)
Else
CCJCCJ = CJCCCC + 1
If Mid(CCCCCC, CCJCCJ, 1) = Chr(64) Then CJJJJJJ = CJJJJJJ & ChrW(CCJCJC + 5) Else CJJJJJJ = CJJJJJJ & Mid(CCCCCC, CJCCCC, 1)
End If
End If
Next
End Function
%>