📄 active.asp
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Buffer=True
Response.Expires=0
username=Session("a_c_user_name")
if username="" then Response.Redirect "login.asp"
if Session("a_c_user_outchat")=0 then
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
if DateDiff("n",Session("a_c_user_lasttime"),sj)>=20 then Response.Redirect "nosayactive.asp"
end if%><html>
<head>
<title>监视窗</title>
<meta http-equiv="refresh" content="100">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p12 { font-size: 12pt; line-height: 135%}
a:link { font-family: "宋体"; color: #0000FF; text-decoration: none; line-height: 135%}
a:hover { font-family: "宋体"; color: #FF0000; text-decoration: underline; line-height: 135%}
a:visited { font-family: "宋体"; color: #0000FF; text-decoration: none; line-height: 135%}
a:active { font-family: "宋体"; text-decoration: none; line-height: 135%}
.p9 { font-size: 9pt; line-height: 135%}
-->
</style>
</head>
<body bgcolor=000066 class=p9>
<table width=580 border=0 align=center cellspacing=0 bgcolor=FFCC99 height=100% cellpadding=6>
<tr align="center" valign="middle">
<td class=p9><script src="sn.asp"></script>
<font color="#0000FF">活动人数：</font><b><font color="#FF0000"><%=Application("a_c_user_active")%></font></b> <font color="#0000FF">聊天人数：</font><font color="#FF0000"><b><%=Application("a_c_user_inthechat")%></b></font> <a href="welcometop.asp" target="welcometop">刷新上部</a> <a href="active.asp" target="active">刷新下部</a></td>
</tr></table></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -