onlineusers.asp

电子商务网络购物系统

<!-- #include file="includes/header.asp" -->
<%

Response.Buffer = True 
If blnActiveUsers = False Then
	Set adoCon = Nothing
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

Dim lngUserID	
Dim strUsername
Dim strForumName 
Dim intGuestNumber
Dim intForumColourNumber	
Dim intForumID

intGuestNumber = 0
intForumColourNumber = 0

%>
<title>在线用户</title>


  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr> 
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="onlineusers.asp" target="_self" class="boldLink">在线用户</a><br /></td>
  </tr>
</table>
   <div align="center"> <br /><%
strSQL = "SELECT Count(timesonline.userid) AS ActiveUser From timesonline;"
rsConn.Open strSQL, adoCon
intActiveUsers = CInt(rsConn("ActiveUser"))
rsConn.Close

strSQL = "SELECT Count(timesonline.userid) AS ActiveUser From timesonline WHERE timesonline.userid=2;"
rsConn.Open strSQL, adoCon
intActiveGuests = CInt(rsConn("ActiveUser"))
intActiveMembers = intActiveUsers - intActiveGuests
rsConn.Close %> 
<span class="text">现在有  <b><%= intActiveMembers %> </b>个会员 , <b><%= intActiveGuests %></b> 个游客 ,共 <b><%=intActiveUsers  %> </b>人在线</span><br />
    <br />
<table width="96%" border="0" cellspacing="1" cellpadding="0" bgcolor="<% = strTableBgColour %>">
    <tr align="center" class="tHeading" height="25">
         <td width="16%" background="<% = strTableTitleBgImage %>">用户名</td>
         <td width="17%" background="<% = strTableTitleBgImage %>">来访时间</td>
         <td width="17%" background="<% = strTableTitleBgImage %>">最后活动时间</td>
         <td width="20%" background="<% = strTableTitleBgImage %>">在线时间</td>
         <td width="15%" background="<% = strTableTitleBgImage %>">浏览器</td>
         <td width="15%" background="<% = strTableTitleBgImage %>">操作系统</td>
        </tr>
        <%  

strSQL = "SELECT timesonline.*, timesuser.Username FROM timesuser INNER JOIN timesonline ON timesuser.userid = timesonline.userid ORDER BY timesonline.Active DESC;"
rsConn.Open strSQL, adoCon   
Do While NOT rsConn.EOF
	intForumColourNumber = intForumColourNumber + 1
	lngUserID = CLng(rsConn("userid"))
	strUsername = rsConn("Username")
	strBrowserUserType = rsConn("Browser")
	strOS = rsConn("OS")
	dtmLastActive = CDate(rsConn("Active"))
	dtmLoggedIn = CDate(rsConn("Login"))
	blnHideActiveUser = CBool(rsConn("Hide"))
			%>
        <tr bgcolor="#FFFFFF" align="center" class="Text"> 
         <td width="10%" height="24"><% 
         If lngUserID = 2 Then
         	intGuestNumber = intGuestNumber + 1 %>
			访客 <%= intGuestNumber %>
			<%
         ElseIf blnHideActiveUser = True Then %>
		 隐身用户
		 <%  Else %>
          <a href="JavaScript:openWin('puprofile.asp?pf=<% = lngUserID %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><% = strUsername %></a> 
          <% 
        End If
        %>
         </td>
         <td ><%= DateFormat(dtmLoggedIn, saryDateTimeData) & "&nbsp;" & TimeFormat(dtmLoggedIn, saryDateTimeData)  %></td>
         <td><%= DateFormat(dtmLastActive, saryDateTimeData) & "&nbsp;" & TimeFormat(dtmLastActive, saryDateTimeData) %></td>
         <td> <% = DateDiff("n", dtmLoggedIn, dtmLastActive) %>&nbsp;分钟</td>
         <td><% = strBrowserUserType %></td>
         <td><% = strOS %></td>
        </tr>
        <%
	rsConn.MoveNext
	   		
Loop
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
       </table>
    <br />  <br />

<!-- #include file="includes/footer.asp" -->