动网开发者网络--国内领先的网络开发者基地，为开发者和企业提供全面的网络信息服务和资源

		开发者网络动网主机支持论坛邮局帮助

当前位置：网络学院 → ASP技术 → 打印相关 → 用asp显示当前在线用户信息，不是简单只显示人数那种！[3]

用asp显示当前在线用户信息，不是简单只显示人数那种！[3]

日期：2000年9月4日作者：人气： [大中小]

东子于 00-9-3 上午 02:52:23 发表在：ASP地带

这里是show_users.asp的原程序
<%
If rstActiveUsers.RecordCount > 0 Then
    rstActiveUsers.MoveFirst

    Response.Write "<table border=""1"">" & vbCrLf

    Response.Write " <thead>" & vbCrLf
    Response.Write "  <th>Session Id</td>" & vbCrLf
    Response.Write "  <th>IP Address</th>" & vbCrLf
    Response.Write "  <th>User Agent</th>" & vbCrLf
    Response.Write "  <th>Session Start Time</th>" & vbCrLf
    Response.Write " </thead>" & vbCrLf

    Do While Not rstActiveUsers.EOF

        Response.Write " <tr>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("id").Value & "</td>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("ip").Value & "</td>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("browser").Value & "</td>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("started").Value & "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        
        rstActiveUsers.MoveNext
    Loop
    Response.Write "</table>" & vbCrLf

End If
%>

这里是show_count.asp的原程序
<b><font color="#CC0000"><%= rstActiveUsers.RecordCount %></font> 在线用户</b>

（出处：）

相关文章：

·SQL Server 2000 SP4发布

·Sql Server 2005最新CTP简介及截图

·判断一个access数据库中某个表是否存在的方法

·用Asp生成条形码

·数字小写到英文大写的转换

·在不支持FSO的服务器上使用XMLDOM创建HTML文件