asp如何制作统计点击次数？

每次打开页面是执行一个sql语句
id=request.quertstring("id")
sql="update 表名 set 次数字段=次数字段+1 where id="&id

下面是一个用文本文件的实例：
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\hits.TXT"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
if session("connected")="" then
OldHits = OldHits + 1
else
OldHits=OldHits
end if
NewHits=OldHits
session("connected")=true
Set OutStream= FileObject.CreateTextFile (HitsFile, True,false)
OutStream.WriteLine(OldHits)
%>
OldHits就是累加结果

一般使用文本文件＋FSO