📄 online.asp
字号:
<%@ LANGUAGE="VBScript"%>
<% response.buffer=true %>
<%const title="查看在线人数"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=forum.css>
</head>
<body topmargin="0">
<!--#include file=myPrg.asp-->
<!--#include file=opendb.inc-->
<%
CheckLogin
Showtitle(title)
getStorage(session("storage"))
SQL="select * from user where isonline=True order by username"
rs.open sql,conn
%>
<table border='1' width=50% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
<td colspan=4 align=center bgcolor=red><b><font color=yellow>当前在线人数 <%=rs.recordcount%> 人</font></b></td>
</tr>
<tr bgcolor=#0000A0>
<td align=center><font color=white>姓名</font></td>
<td align=center><font color=white>最近登录时间</font></td>
<td align=center><font color=white>最近退出时间</font></td>
<td align=center><font color=white>IP地址</font></td>
</tr>
<%
rs.movefirst
if not rs.eof then
do while not rs.eof
%>
<tr>
<td align=center><%=rs("username")%></td>
<td align=center><%=rs("login_time")%></td>
<td align=center><%=rs("logout_time")%></td>
<td align=center><%=rs("ip")%></td>
</tr>
<%
rs.movenext
loop
else
%>
<tr bgcolor=#0000A0>
<td colspan=4 align=center>no</td>
</tr>
<%
end if
rs.close
%>
</table>
<p align=center>[ <a href='' onclick=history.go(-1)>返回</a> ]
<!--#include file=copyright.asp-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -