Show | Online original author: Dong Zi
Add at the top of the page where you want the number to be displayed
<%@ Language=vbscript%>
<% Option Explicit%>
Where you want the number to be displayed.
<!--#include file= "show_count.asp"-->
Detailed list
<!--#include file= "show_users.asp"-->
This is Show_users.asp's original program.
<%
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 as 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
%>
This is Show_count.asp's original program.
<b><font color= "#CC0000" ><%= rstactiveusers.recordcount%></font> Online users </b>
