Show | online Tungse at 00-9-3 02:52:23 in: ASP zone
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>