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

【www.bbyears.com--世界杯在线直播】

东子 于 00-9-3 上午 02:52:23 发表在：ASP地带
这里是show_users.asp的原程序
<%
If rstActiveUsers.RecordCount > 0 Then
rstActiveUsers.MoveFirst
Response.Write "" & vbCrLf
Response.Write " " & vbCrLf
Response.Write " Session Id" & vbCrLf
Response.Write " IP Address" & vbCrLf
Response.Write " User Agent" & vbCrLf
Response.Write " Session Start Time" & vbCrLf
Response.Write " " & vbCrLf
Do While Not rstActiveUsers.EOF
Response.Write " " & vbCrLf
Response.Write " " & rstActiveUsers.Fields("id").Value & "" & vbCrLf
Response.Write " " & rstActiveUsers.Fields("ip").Value & "" & vbCrLf
Response.Write " " & rstActiveUsers.Fields("browser").Value & "" & vbCrLf
Response.Write " " & rstActiveUsers.Fields("started").Value & "" & vbCrLf
Response.Write " " & vbCrLf
rstActiveUsers.MoveNext
Loop
Response.Write "" & vbCrLf
End If
%>
这里是show_count.asp的原程序
<%= rstActiveUsers.RecordCount %> 在线用户

本文来源：http://www.bbyears.com/wangluoxinxianshi/2705.html