📄 online.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>在线用户</title>
<link rel="stylesheet" href="club.css">
</head>
<body bgcolor="#FFFFF0">
<%
users=Application("onlinename")
response.write users
%>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#CCCCFF" bordercolordark="#FFFFFF">
<tr bgcolor="#CCCCFF" align="center">
<td height="20" width="47%" align="left">〖在线用户列表〗</td>
<td height="20" width="53%" align="right"><%=formatdatetime(now,vblongdate)%> <%=formatdatetime(now,vblongtime)%></td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="006600"></td>
</tr>
<tr bgcolor="#CCFFCC">
<td colspan="2">
<table width="69%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
j=0
for i=1 to 40
if application("user"&i)<>"" then
%>
<tr>
<td width="83%"><a href='userdet.asp?username=<%=application("user"&i)%>'><%=application("user"&i)%></a></td>
<td width="17%"></td>
</tr>
<%
j=j+1
end if
next
%>
</table>
</td>
</tr>
<tr>
<td colspan="2" bgcolor="1"></td>
</tr>
<tr align="left">
<td colspan="2">共有<%=j%>人在线！</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -