インターネット上には ASP で書かれたカウンタが溢れていますが、ここで ASP で書かれたカウンタについて話すのは無意味な気がします。これは単にカウンターを書くだけではなく、ASP の知識や応用スキルを皆さんに紹介するものなので、この話をする必要があると後から思いました。
プログラムの元のコードは次のとおりです。
$#@60 ;%countlong=8
'countlong は counterOn Error Resume Next の表示桁数を定義します
' すべてのエラーを無視 count=server.mappath(″count.txt″)
set cou = server.createobject(″scripting.filesystemobject″)
set out=cou.opentextfile(count,1,false,false)
カウンタ=out.readline
アウト、クローズ
上記のコードは、ファイル count.txt を開き、現在のカウンター値を読み取る行を読み取ることです if session(″in″)$#@60;$#@62;″in″ then
' ユーザーがホームページに入ったかどうかを判断し、更新を押したとき、またはこのページに再度アクセスしたときにカウンタが 1 増加しないようにします。
session(″in″)=″in″
set out = cou.createtextfile(count,true,false)
アプリケーションロック
カウンター=カウンター＋1
'カウンタープラス1
out.writeline(カウンター)
アプリケーションのロック解除
アウト、クローズ
'上記のコードは、新しいファイル count.txt を作成して 1 行書き込み、end if に 1 を追加した後のカウンターの値を書き込みます。
co=cstr(カウンター)
'cstr 関数は、i = 1 から countlong-len(co) までの数値変数を文字型に変換するために使用されます。
応答.書き込み「」
次
'上記のループ ステートメントは、カウンターの前の 0 ピクチャの加算を完了することです。' len(co) 関数は、変数 co の長さを取得することです。countlong-len(co) は、前の 0 ピクチャの数を取得しますi= 1 から len(co) まで
応答.書き込み「」
次
'mid(co,i,1) 関数は、変数 co $#@62の i 番目の位置から始まる文字 % を読み取るために使用されます。
このカウンターの最も効果的な部分は、ユーザーがカウンターを何度も更新できないようにするためにセッションを使用することです。コードの記述には時間がかかりますが、アプリケーションを使用するよりもはるかに優れています。サーバーが再起動するか、global.asa が変更されると、アプリケーション オブジェクトの値がクリアされ、文字の代わりに画像が使用されるため、見た目がより美しくなります。
カウンターの画像は自分でデザインできます。0 には 0.gif、1 には 1.gif などのファイル名を使用します。