ASP.NETでのアクセスカウンター導入方法
どうぞよろしくお願いします。
現在、ASP.NETでホームページを作成しておりますが、
旧来、aspで使用していたアクセスカウンターが動きません。set代入ステートメントはサポートされてませんというエラーが出ます。
以下ソースなのですが、簡単な修正で使うことはできますか？
また、aspのフリーアクセスカウンターはネット上にたくさんありますが、asp.NETのものがあるサイトがありましたら教えてください。
よろしくお願いします。
<%
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
filename = Server.MapPath("data/count.dat")
'カウンタファイルを読み取り専用で開きます。
Set ObjTS = ObjFSO.OpenTextFile(filename,1,True)
'カウンタ値を取得します。
If ObjTS.AtEndOfStream Then
cnt = 0
Else
cnt = ObjTS.ReadLine
End If
'ファイルを閉じます。
ObjTS.Close
'カウンタ値を加算します。
cnt = cnt + 1
'カウンタファイルを上書きモードで開きます。
Set ObjTS = ObjFSO.OpenTextFile(filename,2,True)
'ファイルにカウンタ値を書き込みます。
ObjTS.WriteLine cnt
'ファイルを閉じます。
ObjTS.Close
'カウンタ値を表示します。
Response.Write "現在までのアクセス数：" & cnt
'オブジェクトを解放します。
Set ObjTS = Nothing
Set ObjFSO = Nothing
%>
