ASP はアクセス統計コードを作成します (例1)。データベーステーブルの作成
テーブル名はオンラインです
次のフィールドを設定します
id 'session.sessionid は各アクセスの記録に使用されます
name '訪問者であれば訪問者として記録されます。
オンライン「ビジターの場合は 0、会員の場合は 1」
datetime '最新のアクティビティ時間
username 'メンバーのログイン ユーザー名、ゲストは空です。
ip '訪問時のログインIPを記録します
head.asp 'オンラインの人数をデータベース テーブルに書き込みます。このページは、参照に使用されるすべての ASP ページに含める必要があります。
<%
set rs=Server.CreateObject(ADODB.Recordset)
if session(username)= は、ユーザーがログインしていないと判断します
sql=select * from online where id='&session.sessionid&' 'このセッション ID がデータベース テーブルに存在するかどうかを確認します。
rs.Open SQL、Conn、1、3
if rs.eof then '訪問者の最初の訪問
rs.addnew
rs(id)=セッション.セッションID
rs(名前)=訪問者
rs(online)=0 '0 は、ユーザーがログインしておらず、訪問者であることを意味します。
rs(日時)=now()
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
if userip = then
userip= Request.ServerVariables(REMOTE_ADDR)
終了する場合
rs(ip)=ユーザーリップ
else '訪問者は初めての閲覧ではありません
rs(datetime)=now() 'アクティビティ時間を更新します
rs.アップデート
rs.close
終了する場合
それ以外
sql=select * from online where id=' & session.sessionID & ' または admin='&session(username)&' ' sessionid または username レコードがデータ テーブルにすでに存在するかどうかを確認します。
rs.Open SQL、Conn、1、3
もし rs.eof なら
rs.addnew 'メンバーは初めて Web サイトに入ります (Web サイトのホームページから直接ログインしてフォーラムに参加することもできます)。
rs(id)=セッション.セッションID
rs(name)=session(show) 'ユーザーのニックネームを書き込みます
rs(username)=session(username) 'ログインユーザー名を書き込みます
rs(online)=1 'ユーザーがログインしており、メンバーであることを示します
rs(datetime)=now() '現在のシステム時刻をユーザーのログイン時刻に設定します
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
if userip = then
userip= Request.ServerVariables(REMOTE_ADDR)
終了する場合
rs(ip)=ユーザーリップ
else //メンバーが Web サイトを閲覧するのはこれが初めてではなく、訪問者は Web サイトにログインします。
rs(name)=session(show) はユーザーのニックネームを更新します
rs(ユーザー名)=セッション(ユーザー名)
rs(online)=1 'ユーザーがログインしており、メンバーであることを示します
rs(日時)=now()
終了する場合
rs.アップデート
rs.close
終了する場合
rs=何も設定しない
%>
conn.execute(delete from online where datediff('s',datetime,now())>60) '60 秒間非アクティブだった訪問者を削除します。時間は自分で調整できます。