推奨：ASPシンプルなテキストカウンター％set fs = create object（scripting.filesystemobject）wfile = server.mappath（）cgi-binwww.111cn.cn/asp/asp.html.txt on error resume next a = fs.opentextfile（wfile）hits = clng（a.a.readline）hits hits hits + a.close + a.close + a.close + a.close + a.close
以下のサンプルチュートリアルを見てみましょう。
提出されたページを見てみましょう。
<form action = saveinfo.asp method = post>
<！ - ここのフィールド - >
<入力タイプ=送信値=送信>
</form>
データを受信して保存するページを見てみましょう。
<％
fs = createObject（scripting.filesystemObject）を設定します
folderpath = server.mappath（）＆ /cgi-bin /messages143718
wcounter = folderpath＆/counter.txt
fs = createObject（scripting.filesystemObject）を設定します
fs.folderexists（folderpath）の場合
a = fs.opentextfile（wcounter）を設定します
hits = clng（a.readline）
ヒット=ヒット + 1
A.close
それ以外
a = fs.createfolder（folderpath）を設定します
ヒット= 1
ifを終了します
a = fs.createTextfile（wcounter、true）を設定します
A.WriteLine（ヒット）
A.close
fs = Nothingを設定します
fs = createObject（scripting.filesystemObject）を設定します
a = fs.createTextfile（folderpath＆＆hits＆.txt）を設定します
request.formの各xに対して
A.WriteLine（x＆：＆request.form（x））
次
A.close
a =何も設定しません
fs = Nothingを設定します
％>
共有：ASPオンラインユーザー統計コードコードテーブルをテキストファイルにコピーして、ホームディレクトリのWebサイト（/Global.ASA）に保存するだけです。スクリプト言語= vbscript runat = server sub application_onstartアプリケーション（ActiveVisitors）= 0 end sub sub application_onend end sub session_onstart application.lock ap