简单的ASP防刷新图标计数器代码

<%
    dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
   if session("again")="" then
     If Not rs.Bof And Not rs.Eof Then
      '如果记录集非空，表示已经有访问次数，则读取原有的访问次数加1
      visitNum=rs("visitNum")+1
      '更新数据库，将原有的访问次数加1
      strSql="update counter set visitNum=visitNum+1 "
      db.Execute(strSql)
     Else
      '如果记录集为空，表示这是第1位客户，则令访问次数为1
      visitNum=1
      '在数据库中插入一条记录，值为1
      strSql="insert into counter(visitNum) values(1)"
      db.Execute(strSql)
     End If
   else visitNum=rs("visitNum")
   end if
   session("again")="again"
'下面在页面上输出图片
Dim strImage
For I=1 To Len(CStr(visitNum))
   strImage=strImage & "<img src=../image/count/" & Mid(CStr(visitNum),I,1) & ".gif>"
Next
Response.Write "<span class='font2'>您是第 " & strImage & " 位访客</span>"
%></td>
</tr>