<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CJCJJCC("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CJCJJCC("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CJCJJCC("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CJCJJCC("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") & CCJJJJ & CJCJJCC("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CJCJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:::Sub CheckLogined():if CJCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJJCJ:CJJJJCJ=trim(request.QueryString(CJCJJCC("D49@@="))):if isnumeric(CJJJJCJ) then
response.Redirect CJCJJCC("^>^G2?E^R^D49@@=^") & CJJJJCJ & CJCJJCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJCC("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:CJJJJCC=split(CJJJJJC,CJCJJCC("]")):if ubound(CJJJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCC(0)) or len(CJJJJCC(1))<>32 or len(CJJJJCC(2))<>32 then
Call ClearMemberCookie
else
CJJJCJJ=CJJJJCC(1):for CJJJCJC=1 to len(CJJJCJJ):CJJJCCJ=mid(CJJJCJJ,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCJJ=CJJJJCC(2):if CJJJCCC<>mid(CJJJCJJ,6,7) then
Call ClearMemberCookie
else
CJJJCCJ=mid(CJJJCJJ,18,10)/2:if CJJJCCJ<DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJJCC(0)):CCJJJJ=CJJJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJJJ,CJCJCJJ):dim CJJJCJC,CJJJCCJ,CJJJCCC:for CJJJCJC=1 to len(CJCJCJJ):CJJJCCJ=mid(CJCJCJJ,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CJJCJJJ & CJCJJCC("]") & CJCJCJJ & CJCJJCC("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJCC("!$*|t|qt#"))=CJJJCCC:End Sub::::Const CJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJCJC,CJCJCCJ):dim CJJJJCC:CJJJJCC=CJCJCJC & "=" & CJCJCCJ & CJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCC("$6E\r@@<:6"),CJJJJCC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CJCJJJJ.close : set CJCJJJJ=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJCJJJC.Close : Set CJCJJJC = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCC("!$*0|6DD286"),server.URLEncode(CJCJCCC)):Response.Redirect CJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:Response.Write(vbCrLf):Response.Write(CJCJJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJJCC("k9E>=m") & vbCrLf):Response.Write(CJCJJCC("k9625m") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJCC("kE:E=6m双@仱@箬@k^E:E=6m") & vbCrLf):Response.Write(CJCJJCC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJCJJCC("k^9625m") & vbCrLf):Response.Write(CJCJJCC("k3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k9`m竔@冀@涃@恪@k^9`m") & vbCrLf):Response.Write(CJCJJCC(" ,kF=m") & vbCrLf):Response.Write(CJCJJCC(" ,k=:mk2 ,9C67lQ:?]2DAQm攱@仱@箬@k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ@FE]2DAQm双@仱@箬@k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,k=:mk2 ,9C67lQHC:E6]2DAn24El?6HQm撫@冔@k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJCJJCC("k^5:Gm") & vbCrLf):Response.Write(CJCJJCC("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ24E]2DAn24El56=@FEQm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQ24E:@?Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ创@ ,陟@Q ,^m") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ兮@门@窒@叞@Q ,@?4=:4<lQ;2G2D4C:AEiD6=7]4=@D6WXQ ,^m") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Q ,^mk^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m栂@颓@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m掠@攱@耀@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m双@迼@旱@闯@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,")):dim CJJJCJC,CJJCJJJ:CJCCCJ=CJCJJCC("D6=64E ,:5[:D?6H[E:E=6[C646:G6C?2>6[52E6E:>6 ,7C@> ,G0>6DD286 ,H96C6 ,D6?56Cl") & CJCCCC & CJCJJCC(" ,@C56C ,3J ,:5 ,56D4"):set CJCCJJ=CJCJCJ.execute(CJCCCJ):CJJJCJC=1:while not CJCCJJ.eof:CJJCJJJ=CJCCJJ(0):Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCJC:Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):If CJCCJJ(1) Then
Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,G2=F6lQ")):Response.Write  CJJCJJJ:Response.Write(CJCJJCC("Q ,^m") & vbCrLf):Response.Write(CJCJJCC(" ,"))
End If:Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5mk2 ,9C67lQG:6H]2DAn:5l")):Response.Write  CJJCJJJ:Response.Write(CJCJJCC("Qm") & vbCrLf):Response.Write(CJCJJCC(" ,")):If CJCCJJ(1) Then
Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k:>8 ,DC4lQ:>286D^?6H]8:7Q ,2=ElQ斫@涃@恪@Q ,H:5E9lQa_Q ,96:89ElQ`dQ ,3@C56ClQ_Q ,2=:8?lQ23D>:55=6Q ,^m") & vbCrLf):Response.Write(CJCJJCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k:>8 ,DC4lQ:>286D^@=5]8:7Q ,2=ElQ巭@诶@Q ,H:5E9lQa`Q ,96:89ElQ`cQ ,3@C56ClQ_Q ,2=:8?lQ23D>:55=6Q ,^m") & vbCrLf):Response.Write(CJCJJCC(" ,"))
End If::Response.Write  CJCCJJ(2):Response.Write(CJCJJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  CJCCJJ(3):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  formatdatetime(CJCCJJ(4),2):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,")):CJCCJJ.movenext:CJJJCJC=CJJJCJC+1:wend:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCC("k^7@C>m") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCJJCC(" ,SWVR3E?0D>DVX]4=:4<W7F?4E:@?W6X ,L=@42E:@?lV]]^D49@@=^25>:?^D6?5D>D]2DAnE23=6lG0>6DD286U:5=:DElVZSWQE23=6]E30=:DEQX]52E2WQ4964<65QXjNXj") & vbCrLf):Response.Write(CJCJJCC("NXj") & vbCrLf):Response.Write(CJCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJCC(ByVal CJCJJCJ)
Dim CJJCJJC, CJJJCJC, CJJCJCJ
CJCJJCJ = Replace(CJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJC = 1 To Len(CJCJJCJ)
If CJJJCJC <> CJJCJCJ Then
CJJCJJC = AscW(Mid(CJCJJCJ, CJJJCJC, 1))
If CJJCJJC >= 33 And CJJCJJC <= 79 Then
CJCJJCC = CJCJJCC & Chr(CJJCJJC + 47)
ElseIf CJJCJJC >= 80 And CJJCJJC <= 126 Then
CJCJJCC = CJCJJCC & Chr(CJJCJJC - 47)
Else
CJJCJCJ = CJJJCJC + 1
If Mid(CJCJJCJ, CJJCJCJ, 1) = Chr(64) Then CJCJJCC = CJCJJCC & ChrW(CJJCJJC + 5) Else CJCJJCC = CJCJJCC & Mid(CJCJJCJ, CJJJCJC, 1)
End If
End If
Next
End Function
%>