1。建立數據庫表
表名為online
設如下字段
id'用來記錄每一個訪問都的session.sessionid
name'如果是訪客，則記錄為訪客。
online'如果是訪各為0如果是會員1
datetime'最近活動時間
username'會員的登錄用戶名,訪客為空。
ip'記錄訪問都的登錄IP
head.asp'向數據庫表寫入在線人數，該頁面必須搜入到每一個用於瀏覽ASP頁面中。
<%
setrs=Server.CreateObject("ADODB.Recordset")
ifsession("username")=""then判斷用戶未登錄
sql="select*fromonlinewhereid='"&session.sessionid&"'"'判斷這個sessionid是否存在於數據庫表中.
rs.Opensql,Conn,1,3
ifrs.eofthen'訪客第一次瀏覽
rs.addnew
rs("id")=session.sessionID
rs("name")="遊客"
rs("online")=0'0表示用戶未登陸，是遊客身份
rs("datetime")=now()
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Ifuserip=""Then
userip=Request.ServerVariables("REMOTE_ADDR")
endif
rs("ip")=userip
else'訪客非第一次瀏覽
rs("datetime")=now()'更新活動時間
rs.update
rs.close
endif
else
sql="select*fromonlinewhereid='"&session.sessionID&"'oradmin='"&session("username")&"'"'判斷sessionid或者用戶名記錄已存在數據表中。
rs.Opensql,Conn,1,3
ifrs.eofthen
rs.addnew'會員第一次進入網站（可能從網站首頁直接登錄進入論壇）。
rs("id")=session.sessionID
rs("name")=session("show")'寫入用戶暱稱
rs("username")=session("username")'寫入登錄用戶名
rs("online")=1'表示用戶已經登陸，是會員身份
rs("datetime")=now()'將當前系統時間設置為用戶的登陸時間
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Ifuserip=""Then
userip=Request.ServerVariables("REMOTE_ADDR")
endif
rs("ip")=userip
else//會員非第一次瀏覽網站,訪客登錄網站。
rs("name")=session("show")更新用戶暱稱