onlineusers.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 41 行

<%
Dim strIPAddress 
Dim dtmLoggedIn
Dim dtmLastActive
Dim strOS	
Dim strBrowserUserType
Dim intActiveUsers	
Dim intActiveGuests
Dim intActiveMembers
Dim blnHideActiveUser 
Dim lngActiveUsersID

strIPAddress = Request.ServerVariables("REMOTE_ADDR")
If Request.Cookies("Forum")("Hide") = "True" Then
	blnHideActiveUser = 1
Else
	blnHideActiveUser = 0
End If
lngActiveUsersID = lngLoggedInUserID
strSQL = "SELECT timesonline.* From timesonline WHERE IP='" & strIPAddress & "';"
rsConn.Open strSQL, adoCon
If rsConn.EOF Then
	strBrowserUserType = BrowserType()
	strOS = OSType()
	strSQL = "INSERT INTO timesonline (IP, userid, OS, Browser, Hide) VALUES ('" & strIPAddress & "','" & lngActiveUsersID & "','" & strOS  & "','" & strBrowserUserType & "','" & blnHideActiveUser & "');"
	adoCon.Execute(strSQL)
Else

	strSQL = "UPDATE timesonline SET timesonline.userid=" & lngActiveUsersID & ", timesonline.Active=Now(), timesonline.Hide=" & blnHideActiveUser & " WHERE IP='" & strIPAddress & "';"
	adoCon.Execute(strSQL)	

	strSQL = "DELETE FROM timesonline WHERE timesonline.Active < Now() - 0.100;"
	adoCon.Execute(strSQL)
	If lngActiveUsersID <> 2 Then
		strSQL = "DELETE FROM timesonline WHERE timesonline.userid=" & lngActiveUsersID & " AND timesonline.IP <> '" & strIPAddress & "';"
		adoCon.Execute(strSQL)
	End If
	rsConn.Requery
End If
rsConn.Close
%>