东子 于 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 "

" & 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 Address	User Agent	Session 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 %> 在线用户