<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CCCCCJJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CCCCCJJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ:CJCCJJJ=Trim(Request.Cookies(CCCCCJJ("!$*|t|qt#"))):if CJCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCCJ>0 then
CJJJCJC=CCCCCJJ("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") & CJJJCCC & CCCCCJJ("V ,2?5 ,:5l") & CJJJCCJ
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJJCJJJ=CJJJJCC(2) & "":CJJCJJC=CJJJJCC(3):CJJCJCJ=CJJJJCC(5):CJJCJCC=CJJJJCC(6):CJJCCJJ=CJJJJCC(9):CJJCCJC=CJJJJCC(15):CJJCCCC=CJJJJCC(0):CJCJCCJ=CJJJJCC(1):CJCJCJC=CJJJJCC(11) & "":CJCJJJJ=CJJJJCC(10) & "":CJJCCCJ=CJJJJCC(12):CJCJJJC=CJJJJCC(14):CJCJJCJ=CJJJJCC(13):CJCJJCC=CJJJJCC(7) & "":CJCJCJJ=CJJJJCC(4):CJCJCCC=CJJJJCC(8):if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJCCJJ) or CJJCCJJ=0 then CJJCCJJ=CJJCJJC
if isnull(CJCJCJJ) then CJCJCJJ=0
if isnull(CJJCJCJ) then CJJCJCJ=0
if instr(CCCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCC)>0 then Call RedirectMessage(CCCCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJCCJ,CJJJCCC)
End IF
end if:::Sub CheckLogined():if CJJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJC:CJCCJJC=trim(request.QueryString(CCCCCJJ("D49@@="))):if isnumeric(CJCCJJC) then
response.Redirect CCCCCJJ("^>^G2?E^R^D49@@=^") & CJCCJJC & CCCCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCCJJ("!$*|t|qt#"))="":CJJJCCJ=0:CJJCJCC=0:CJJJCCC=Empty:CJJCJCJ=0:CJJCCJC=0:CJJCCJJ=0:CJJCJJC=0:CJJCCCC=False:CJCJCCJ=False:CJCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:CJCCJCJ=split(CJCCJJJ,CCCCCJJ("]")):if ubound(CJCCJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJCJ(0)) or len(CJCCJCJ(1))<>32 or len(CJCCJCJ(2))<>32 then
Call ClearMemberCookie
else
CJCCJCC=CJCCJCJ(1):for CJCCCJJ=1 to len(CJCCJCC):CJCCCJC=mid(CJCCJCC,CJCCCJJ,1):if isnumeric(CJCCCJC) then CJCCCCJ=CJCCCCJ & CJCCCJC
if len(CJCCCCJ)=7 then exit for
next:CJCCJCC=CJCCJCJ(2):if CJCCCCJ<>mid(CJCCJCC,6,7) then
Call ClearMemberCookie
else
CJCCCJC=mid(CJCCJCC,18,10)/2:if CJCCCJC<DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCCJ=Clng(CJCCJCJ(0)):CJJJCCC=CJCCJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJJ,CCCCCJC):dim CJCCCJJ,CJCCCJC,CJCCCCJ:for CJCCCJJ=1 to len(CCCCCJC):CJCCCJC=mid(CCCCCJC,CJCCCJJ,1):if isnumeric(CJCCCJC) then CJCCCCJ=CJCCCCJ & CJCCCJC
if len(CJCCCCJ)=7 then exit for
next:CJCCCCJ=CCJCJJJ & CCCCCJJ("]") & CCCCCJC & CCCCCJJ("]") & Fix(10000*(Rnd+1)) & CJCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCJJ("!$*|t|qt#"))=CJCCCCJ:End Sub::::Const CCCJJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCCCCJ,CCCCCCC):dim CJCCJCJ:CJCCJCJ=CCCCCCJ & "=" & CCCCCCC & CCCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCJJ("$6E\r@@<:6"),CJCCJCJ):End Sub:::::::Function CCCJJJC(CCJJCCJ):if isnull(CCJJCCJ) or trim(CCJJCCJ)="" or not isnumeric(CCJJCCJ) then
CCCJJJC=false
else
Dim CJCCCCC:Set CJCCCCC = New RegExp:CJCCCCC.Pattern = CCCCCJJ("/-5ZS"):CJCCCCC.IgnoreCase = True:CCCJJJC = CJCCCCC.test(CCJJCCJ):set CJCCCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:CCCJCCJ.close : set CCCJCCJ=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CCCJCCC.Close : Set CCCJCCC = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCJJ("!$*0|6DD286"),server.URLEncode(CJJJJJJJ)):Response.Redirect CCCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCCJJJ(ByVal CCCCJJC,style):if not isdate(CCCCJJC) then
CCCCJJJ=CCCCJJC:exit function
end if:dim CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:CCCCJJC=cdate(CCCCJJC):CCJJJJJ=Year(CCCCJJC):CCJJJJC=Month(CCCCJJC):CCJJJCJ=Day(CCCCJJC):select case style:case 0:CCCCJJJ=CCJJJJJ & CCCCCJJ("\") & right(0 & CCJJJJC,2) & CCCCCJJ("\") & right(0 & CCJJJCJ,2):case 1:CCCCJJJ=CCJJJJJ & right(0 & CCJJJJC,2) & right(0 & CCJJJCJ,2):case 2:CCCCJJJ=right(CCJJJJJ,2) & CCCCCJJ("\") & right(0 & CCJJJJC,2) & CCCCCJJ("\") & right(0 & CCJJJCJ,2):case 3:CCCCJJJ=CCJJJJJ & CCCCCJJ("\") & right(0 & CCJJJJC,2):case 4:CCCCJJJ=right(0 & CCJJJJC,2) & CCCCCJJ("\") & right(0 & CCJJJCJ,2):case 5:CCCCJJJ=right(0 & CCJJJCJ,2):case 6:CCCCJJJ=CCJJJJJ & CCCCCJJ("幯@") & right(0 & CCJJJJC,2) & CCCCCJJ("會@") & right(0 & CCJJJCJ,2) & CCCCCJJ("无@"):case else
CCCCJJJ=CCCCJJC:end select:End Function::::::::::::::::::Function CCCCJCJ(CJJJJJJC,str):dim CJCCCJJ,CCJJCJJ,CCJJCJC,CCJJJJC,CCJJCCJ,CCJJCCC,CJCCCCJ:CJCCCCJ=ucase(CJJJJJJC):CCJJCCC=str:if CCJJCCC="" then
CCJJCCC=request.cookies(CJCCCCJ):if CCJJCCC="" then
CCCCJCJ=""
else
CCJJCCC=strreverse(CCJJCCC):CCJJCJJ=len(CCJJCCC):for CJCCCJJ=1 to CCJJCJJ-1 step 2:CCJJJJC=mid(CCJJCCC,CJCCCJJ,1):CCJJCCJ=mid(CCJJCCC,CJCCCJJ+1,1):CCJJCJC=CCJJCJC & CCJJCCJ & CCJJJJC:next:CCJJCJC=replace(CCJJCJC,CCCCCJJ("L0N"),CCCCCJJ(" ,")):CCJJCJC=replace(CCJJCJC,CCCCCJJ("LIN"),CCCCCJJ("Y")):CCJJCJC=replace(CCJJCJC,CCCCCJJ("L:N"),CCCCCJJ("^")):CCCCJCJ=trim(CCJJCJC)
end if
else
if Len(CCJJCCC) Mod 2=1 then CCJJCCC=CCJJCCC & CCCCCJJ(" ,")
CCJJCCC=replace(CCJJCCC,CCCCCJJ(" ,"),CCCCCJJ("L0N")):CCJJCCC=replace(CCJJCCC,CCCCCJJ("Y"),CCCCCJJ("LIN")):CCJJCCC=replace(CCJJCCC,CCCCCJJ("^"),CCCCCJJ("L:N")):CCJJCJJ=len(CCJJCCC):for CJCCCJJ=1 to CCJJCJJ-1 step 2:CCJJJJC=mid(CCJJCCC,CJCCCJJ,1):CCJJCCJ=mid(CCJJCCC,CJCCCJJ+1,1):CCJJCJC=CCJJCJC & CCJJCCJ & CCJJJJC:next:CCJJCJC=Trim(strreverse(CCJJCJC)):CCCCJCJ=CCJJCJC:response.cookies(CJCCCCJ)=CCJJCJC
end if:End Function:::::::::Call CheckLogined:dim CCJCJJJ,CCJCJJC:CCJCJJJ=request.QueryString(CCCCCJJ(":5")):CCJCJJC=request.QueryString(CCCCCJJ("24E")):if not CCCJJJC(CCJCJJJ) then Call RedirectMessage(CCCCCJJ("寴@丈@赲@，,糶@绚@厽@敫@凵@玫@锔@诪@！,"))
set CJJJJCC=CJJJJJC.execute(CCCCCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJCJJJ & CCCCCJJ(" ,2?5 ,>6>36Cl") & CJJJCCJ):if CJJJJCC.eof then Call RedirectMessage(CCCCCJJ("寴@丈@赲@，,沜@朄@批@别@浆@诐@讫@彐@！,"))
dim CCJCJCJ:CCJCJCJ=CJJJJCC(CCCCCJJ("A6C>:EG:6H")):if isnull(CCJCJCJ) then CCJCJCJ=false
dim CCJCJCC,CCJCCJJ:CCJCJCC=CJJJJCC(CCCCCJJ("=3")):CCJCCJJ=CJJJJCC(CCCCCJJ("=3?2>67C")):if CCJCCJJ & ""="" then CCJCCJJ=CJJJJCC(CCCCCJJ("=3?2>649"))
dim CCJCCJC:CCJCCJC=CCCCJCJ(CCCCCJJ("q24<&C="),""):if CCJCCJC="" then CCJCCJC=CCCCCJJ("E6DE65=:DE]2DA")
Response.Write(vbCrLf):Response.Write(CCCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCJJ("k9625m") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCJJ("kE:E=6m")):Response.Write  CCJCCJJ:Response.Write(CCCCCJJ("k^E:E=6m") & vbCrLf):Response.Write(CCCCCJJ("k=:?< ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CCCCCJJ("]2>\=:DE\?6HD\5672F=E ,L ,>2C8:?i ,_j ,N") & vbCrLf):Response.Write(CCCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("k^9625m") & vbCrLf):Response.Write(CCCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CCCCCJJ("kP\\顰@夯@\\m") & vbCrLf):Response.Write(CCCCCJJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CCCCCJJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm巭@浆@闩@卲@k^9`m") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ2>\96256C\C:89E ,2>\96256C\?2GQmk2 ,9C67lQ>J]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\FD6CQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k^96256Cm") & vbCrLf):Response.Write(CCCCCJJ("kP\\绎@林@浊@觃@\\m") & vbCrLf):Response.Write(CCCCCJJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k2CE:4=6 ,4=2DDlQ2>\2CE:4=6Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write  CCJCCJJ:Response.Write(CCCCCJJ("k^9`m") & vbCrLf):Response.Write(CCCCCJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\>6E2Qm浆@访@旱@闯@：,")):Response.Write  CCCCJJJ(CJJJJCC(CCCCCJJ("52E6E:>6")),0):Response.Write(CCCCCJJ("k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):if not CCJCJCJ then
Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ2>\2=6CE ,2>\2=6CE\H2C?:?8Qmk2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQm寴@丈@赲@，,彎@剈@丈@儼@讳@柠@眆@绎@林@，,诲@炴@凶@迏@囙@丅@一,顰@！,k^2mk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,"))
else
Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):set CJJJCJJ=CJJJJJC.execute(CCCCCJJ("D6=64E ,E@A ,` ,:?EC@`[:?EC@a ,7C@> ,=3 ,H96C6 ,:5l") & CCJCJCC):if CJJJCJJ(1)="" then response.Write CJJJCJJ(0) else response.Write CJJJCJJ(1)
Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bm绎@林@觞@釅@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):dim CCJCCCJ:CCJCCCJ=CJJJJCC(CCCCCJJ("6IA=2:?a")) & "":if CCJCCCJ="" then CCJCCCJ=CJJJJCC(CCCCCJJ("6IA=2:?")) & ""
response.Write replace(CCJCCCJ,vbcrlf,CCCCCJJ("k^AmkAm")):Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,")):CCJCCCJ=CJJJJCC(CCCCCJJ("25G:46")) & "":if CCJCCCJ<>"" then Response.Write CCCCCJJ("k9bm徾@琁@廵@让@k^9bmkAm") & replace(CCJCCCJ,vbcrlf,CCCCCJJ("k^AmkAm")) & CCCCCJJ("k^Am")
End If:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^2CE:4=6m") & vbCrLf):Response.Write(CCCCCJJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^DE@C6a]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCJJ("NX") & vbCrLf):Response.Write(CCCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCJJ(ByVal CCCCJCC)
Dim CCJCCCC, CJCCCJJ, CCJJCCJ
CCCCJCC = Replace(CCCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJJ = 1 To Len(CCCCJCC)
If CJCCCJJ <> CCJJCCJ Then
CCJCCCC = AscW(Mid(CCCCJCC, CJCCCJJ, 1))
If CCJCCCC >= 33 And CCJCCCC <= 79 Then
CCCCCJJ = CCCCCJJ & Chr(CCJCCCC + 47)
ElseIf CCJCCCC >= 80 And CCJCCCC <= 126 Then
CCCCCJJ = CCCCCJJ & Chr(CCJCCCC - 47)
Else
CCJJCCJ = CJCCCJJ + 1
If Mid(CCCCJCC, CCJJCCJ, 1) = Chr(64) Then CCCCCJJ = CCCCCJJ & ChrW(CCJCCCC + 5) Else CCCCCJJ = CCCCCJJ & Mid(CCCCJCC, CJCCCJJ, 1)
End If
End If
Next
End Function
%>