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"）ユーザーニックネームを更新します