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

最新推荐文章于 2025-12-03 17:34:57 发布

原创最新推荐文章于 2025-12-03 17:34:57 发布 · 203 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #microsoft #session #数据库 #insert #access

网页制作专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一种使用ASP和Access数据库实现网站访问计数器的方法。通过读取并更新数据库中的访问次数，确保每位访客仅被计算一次。此外，还展示了如何用图片形式展示计数结果。

<%
 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 "您是第 " & strImage & " 位访客"
%></td>
</tr>