online.asp

来自「大家好」· ASP 代码 · 共 53 行

ASP
53
字号
<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 + =
减小字号Ctrl + -
显示快捷键?