簡単なWebサイト統計を作成します
デザインのアイデア：ユーザーのWebページのリクエストを使用するときに、ユーザーのログインステータスを記録しますユーザーは20分、ユーザーはWebページリクエストがない場合、このユーザーを削除します。
1。データテーブル：データベースに2つのテーブルを追加します
ラインテーブル：sessionId文字タイプ20-顧客Webページリクエストの一意のマークを記録するためのビット
顧客の最後のWebページリクエストの時間を記録するためのユーザーデート日付のタイプタイプ
ID自動番号タイプ
アカウント、IP、その他の情報など、この表に他の情報を記録することもできます
カウントテーブル：ユーザーデート日付のタイプは、その日の日付を記録するために使用されます
カウントデジタルタイプはウェブサイトのクリックボリュームを録画するために使用されます
今日のデジタルタイプは、今日のアクセスボリュームを記録するために使用されます
最大デジタルタイプは、その日の最大訪問を記録するために使用されます
この表では、レコードが1つしかないため、IDフィールドを使用する必要はありませんが、IDフィールドを保持することは良い習慣です
2。con.aspを使用して、ラインテーブルを処理します
（1）データベースを接続します
dim conn
Dim Connstr
DIM DB
db = "date/date.mdb"
conn = server.createObject（ "adodb.connection"）を設定します
connstr = "provider = microsoft.jet.oledb.4.0; data source ="＆server.mappath（ "＆db＆" "）
conn.open connstr
（2）クリアタイムアウトレコード
conn.execute（ "datediff（" "s"、userdate、now（））> = 1200 "からの行から削除
（3）テーブルをラインし、サイトの統計処理を実行するために顧客情報を記録する
DIM SQL、SQL1、RS、RS1
rs = server.createObject（ "adodb.oldset"）を設定します
sql = "select * from line where [sessionid] =" ""＆session.sessionid＆ "" "
rs.oopen sql、conn、1,3
rs.eofではない場合は、「元のWebページリクエストの場合、顧客情報を記録します。
rs（ "userdate"）= now（）
それ以外
rs1 = server.createobject（ "adodb.oldset"） "
sql1 = "select * from [count]"
RS1.Open SQL1、CONN、1,3
rs.eofの場合、テーブルにレコードがない場合は、このテーブルを初期化します
rs.addnew
rs（ "count"）= 1
rs（ "max"）= 1
rs（ "today"）= 1
rs（ "userdate"）= date（）
それ以外
rs1（ "count"）= rs1（ "count"）1 "webサイトクリックカウントカウント
rs1（ "userdate"）= date（）の場合、「システム日付がデータレコードの最終日と同じ場合、1つの訪問を追加します1
rs1（ "today"）= rs1（ "today"）1
それ以外の場合は、Daily Access Volume 1を設定し、データレコードの日付をサーバーの日付に変更します
rs1（ "Today"）= 1
rs1（ "userdate"）= date（）
ifを終了します
rs1.update
rs1（ "max"）<= rs1（ "today"）の場合、その日の統計が毎日の最大訪問を超えた場合、最大毎日の訪問を更新します
rs1（ "max"）= rs1（ "today"）
ifを終了します
ifを終了します
rs1.update
rs1.close
rs1 =何も設定しません
rs.addnew "以下はユーザーの情報です
rs（ "sessionId"）= session.sessionId "sessionidをデータテーブルに書き込む
rs（ "userdate"）= now（）データテーブルにシステム日付を書き込む
ifを終了します
rs.update
rs.close
rs = Nothingを設定します
上記の処理は、統計に使用されています
<！ - ＃include file = "conn.asp" - >
<％薄暗いカウント、今日、マックス、ライン
rs = server.createObject（ "adodb.oldset"）を設定します
sql = "select * from [count]" "
rs.oopen sql、conn、1,1
今日= rs（ "Today"）
count = rs（ "count"）
max = rs（ "max"）
rs.close
rs = Nothingを設定します
rs = server.createObject（ "adodb.oldset"）を設定します
sql = "select count（*）from line"
rs.oopen sql、conn、1,1
line = rs（0）
rs.close
rs = Nothingを設定します
％>
上記のWebサイトの統計を準備し、今日、Max、lineを使用して、response.writeを使用して出力を使用して引用することができますが、HTMLドキュメントでは、いいえ、そのため、次の文を使用して統計コンテンツを出力する必要があります。
document.write（ "ウェブサイト訪問：<％= count％>人<br>"）
document.write（ "Today：<％= Today％>人々がこのサイトを訪れた<br>"）
document.write（ "このサイトの最高の毎日の訪問：<％= max％>人<br>"）
document.write（ "現在のオンライン：<％= line％>人"）
<スクリプトsrc = "line.asp"> </script>を使用して、このファイルを引用します