软件开发培训班 >> 编程开发 >> ASP


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

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

Response.Write "" & vbCrLf

Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf

Do While Not rstActiveUsers.EOF

Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf

rstActiveUsers.MoveNext
Loop
Response.Write "
Session Id" & vbCrLf
Response.Write " 		IP AddressUser AgentSession Start Time
" & rstActiveUsers.Fields("id").Value & "" & rstActiveUsers.Fields("ip").Value & "" & rstActiveUsers.Fields("browser").Value & "" & rstActiveUsers.Fields("started").Value & "
" & vbCrLf

End If
%>

这里是show_count.asp的原程序
<%= rstActiveUsers.RecordCount %> 在线用户