<%
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>
简单的ASP防刷新图标计数器代码
最新推荐文章于 2024-10-04 20:16:44 发布