<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJJ, CJJJCJC,CJJJCCJ, CJJJCCC, CJJCJJJ:Set CJJJCJJ = server.CreateObject(CCJCCCJ("ps~sq]r@??64E:@?")):CJJJCJJ.open Application(CCJCCCJ("r@??64E:@?$EC:?8")):Set CJJJCJC=CJJJCJJ::Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC:CJCCJCC=Trim(Request.Cookies(CCJCCCJ("!$*|t|qt#"))):if CJCCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJC>0 then
CJJCJJJ=CCJCCCJ("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") & CJJCJCJ & CCJCCCJ("V ,2?5 ,:5l") & CJJCJJC
set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):If CJJJCCJ.EOF Then
Call ClearMemberCookie
Else
CJJCJCC=CJJJCCJ(2) & "":CJJCCJJ=CJJJCCJ(3):CJJCCJC=CJJJCCJ(5):CJJCCCJ=CJJJCCJ(6):CJJCCCC=CJJJCCJ(9):CJCJJJJ=CJJJCCJ(15):CJCJJCJ=CJJJCCJ(0):CJCCJJC=CJJJCCJ(1):CJCCJJJ=CJJJCCJ(11) & "":CJCJJCC=CJJJCCJ(10) & "":CJCJJJC=CJJJCCJ(12):CJCJCJJ=CJJJCCJ(14):CJCJCJC=CJJJCCJ(13):CJCJCCJ=CJJJCCJ(7) & "":CJCJCCC=CJJJCCJ(4):CJCCJCJ=CJJJCCJ(8):if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJCCCC) or CJJCCCC=0 then CJJCCCC=CJJCCJJ
if isnull(CJCJCCC) then CJCJCCC=0
if isnull(CJJCCJC) then CJJCCJC=0
if instr(CCJCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCJ)>0 then Call RedirectMessage(CCJCCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJJC,CJJCJCJ)
End IF
end if:::Sub CheckLogined():if CJJCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCCJJ:CJCCCJJ=trim(request.QueryString(CCJCCCJ("D49@@="))):if isnumeric(CJCCCJJ) then
response.Redirect CCJCCCJ("^>^G2?E^R^D49@@=^") & CJCCCJJ & CCJCCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCCJ("!$*|t|qt#"))="":CJJCJJC=0:CJJCCCJ=0:CJJCJCJ=Empty:CJJCCJC=0:CJCJJJJ=0:CJJCCCC=0:CJJCCJJ=0:CJCJJCJ=False:CJCCJJC=False:CJCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:CJCCCJC=split(CJCCJCC,CCJCCCJ("]")):if ubound(CJCCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJC(0)) or len(CJCCCJC(1))<>32 or len(CJCCCJC(2))<>32 then
Call ClearMemberCookie
else
CJCCCCJ=CJCCCJC(1):for CJCCCCC=1 to len(CJCCCCJ):CCJJJJJ=mid(CJCCCCJ,CJCCCCC,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ
if len(CCJJJJC)=7 then exit for
next:CJCCCCJ=CJCCCJC(2):if CCJJJJC<>mid(CJCCCCJ,6,7) then
Call ClearMemberCookie
else
CCJJJJJ=mid(CJCCCCJ,18,10)/2:if CCJJJJJ<DateDiff(CCJCCCJ("D"), CCJCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJC=Clng(CJCCCJC(0)):CJJCJCJ=CJCCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJCJ,CCJCCCC):dim CJCCCCC,CCJJJJJ,CCJJJJC:for CJCCCCC=1 to len(CCJCCCC):CCJJJJJ=mid(CCJCCCC,CJCCCCC,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ
if len(CCJJJJC)=7 then exit for
next:CCJJJJC=CCJJJCJ & CCJCCCJ("]") & CCJCCCC & CCJCCCJ("]") & Fix(10000*(Rnd+1)) & CCJJJJC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCCJ("D"), CCJCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCCJ("!$*|t|qt#"))=CCJJJJC:End Sub:::Function IIf(CCCJJJJ, CCCJJJC, CCCJJCJ):if isnull(CCCJJJJ) or isempty(CCCJJJJ) then
IIf = CCCJJCJ
elseif CCCJJJJ Then
IIf = CCCJJJC
Else
IIf = CCCJJCJ
end if:End Function:Const CCJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJCC,CCCJCJJ):dim CJCCCJC:CJCCCJC=CCCJJCC & "=" & CCCJCJJ & CCJCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCCJ("$6E\r@@<:6"),CJCCCJC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:CCJCJCC.close : set CCJCJCC=nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CCJCCJJ.Close : Set CCJCCJJ = Nothing:CJJJCJJ.Close : Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCCJ("!$*0|6DD286"),server.URLEncode(CCCJCJC)):Response.Redirect CCJCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:Response.Write(vbCrLf):Response.Write(CCJCCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCCCJ("k9E>=m") & vbCrLf):Response.Write(CCJCCCJ("k9625m") & vbCrLf):Response.Write(CCJCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCCJ("kE:E=6m攱@仱@箬@k^E:E=6m") & vbCrLf):Response.Write(CCJCCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CCJCCCJ("k^9625m") & vbCrLf):Response.Write(CCJCCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCCJ("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,k9`m竔@冀@涃@恪@k^9`m") & vbCrLf):Response.Write(CCJCCCJ(" ,kF=m") & vbCrLf):Response.Write(CCJCCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ:?]2DAQm攱@仱@箬@k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJ(" ,k=:mk2 ,9C67lQ@FE]2DAQm双@仱@箬@k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJ(" ,k=:mk2 ,9C67lQHC:E6]2DAQm撫@冔@k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCCCJ("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ24E]2DAn24El56=:?Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,k5:G ,:5lQ24E:@?Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ创@ ,陟@Q ,^m") & vbCrLf):Response.Write(CCJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ兮@门@窒@叞@Q ,@?4=:4<lQ;2G2D4C:AEiD6=7]4=@D6WXQ ,^m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Q ,^mk^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m栂@颓@k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m双@迼@耀@k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m双@迼@旱@闯@k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCJ(" ,")):dim CJCCCCC,CCJJJCJ:CJJCJJJ=CCJCCCJ("D6=64E ,:5[:D?6H[E:E=6[D6?56C?2>6[52E6E:>6[:DDJD ,7C@> ,G0>6DD286 ,H96C6 ,C646:G6Cl") & CJJCJJC & CCJCCCJ(" ,@C56C ,3J ,:5 ,56D4"):set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):CJCCCCC=1:while not CJJJCCJ.eof:CCJJJCJ=CJJJCCJ(0):Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCCCCC:Response.Write(CCJCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,G2=F6lQ")):Response.Write  CCJJJCJ:Response.Write(CCJCCCJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5mk2 ,9C67lQG:6H]2DAn:5l")):Response.Write  CCJJJCJ:Response.Write(CCJCCCJ("Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,")):If CJJJCCJ(1) Then
Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,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(CCJCCCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,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(CCJCCCJ(" ,"))
End If::Response.Write  IIf(CJJJCCJ(5),CCJCCCJ(",糶@绚@涃@恪@."),"")::Response.Write  CJJJCCJ(2):Response.Write(CCJCCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5m")):Response.Write  CJJJCCJ(3):Response.Write(CCJCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5m")):Response.Write  formatdatetime(CJJJCCJ(4),2):Response.Write(CCJCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCJ(" ,")):CJJJCCJ.movenext:CJCCCCC=CJCCCCC+1:wend:Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCCJ("k^7@C>m") & vbCrLf):Response.Write(CCJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJCCCJ("NX") & vbCrLf):Response.Write(CCJCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJJ.Close:Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCCCJ(ByVal CCJCCJC)
Dim CCJJJCC, CJCCCCC, CCJJCJJ
CCJCCJC = Replace(CCJCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCCC = 1 To Len(CCJCCJC)
If CJCCCCC <> CCJJCJJ Then
CCJJJCC = AscW(Mid(CCJCCJC, CJCCCCC, 1))
If CCJJJCC >= 33 And CCJJJCC <= 79 Then
CCJCCCJ = CCJCCCJ & Chr(CCJJJCC + 47)
ElseIf CCJJJCC >= 80 And CCJJJCC <= 126 Then
CCJCCCJ = CCJCCCJ & Chr(CCJJJCC - 47)
Else
CCJJCJJ = CJCCCCC + 1
If Mid(CCJCCJC, CCJJCJJ, 1) = Chr(64) Then CCJCCCJ = CCJCCCJ & ChrW(CCJJJCC + 5) Else CCJCCCJ = CCJCCCJ & Mid(CCJCCJC, CJCCCCC, 1)
End If
End If
Next
End Function
%>