1.データベーステーブルを作成します
テーブル名はオンラインです
次のフィールドを設定します
id 'は、各アクセスのセッションを記録するために使用されます
name 'それが訪問者である場合、それは訪問者として記録されます。
オンラインで訪問している場合、メンバー1の場合、それぞれが0です
DateTime'latestイベント
ユーザー名 'メンバーのログインユーザー名、訪問者は空です。
すべてのログインIPへのIP'Recordアクセス
head.asp 'は、オンラインの人数をデータベーステーブルに書き込み、ASPを閲覧するために使用される各ページにページを検索する必要があります。
<%
setrs = server.createObject( "adodb.recordset")
ifsession( "username")= ""次に、ユーザーがログインしていないことを決定します
sql = "select*fromlinewhereid = '"&session.sessionid& "'" "''このセッションIDがデータベーステーブルに存在するかどうかを判断します。
rs.opensql、conn、1,3
ifrs.eofthen'visitorの最初のビュー
rs.addnew
rs( "id")= session.sessionid
rs( "name")= "guest"
rs( "オンライン")= 0'0は、ユーザーがログインされておらず、観光客の身元であることを意味します
rs( "dateTime")= now()
userip = request.servervariables( "http_x_forwarded_for")
ifuserip = "" then
userip = request.servervariables( "remote_addr")
endif
rs( "ip")= userip
訪問者が初めて閲覧することはありません
rs( "dateTime")= now() 'アクティビティ時間を更新します
rs.update
rs.close
endif
それ以外
sql = "select*fromlinewhereId = '"&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( "オンライン")= 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")ユーザーニックネームを更新します