简易图像计数器
下载：计数器文件（自解压格式）
说 明
本文介绍，一个利用数据库开发一个计数器（提示：每次访问该页面就读取数据库中的访问次数，然后再更新记录即可）系统。
计数器原代码（存放在counter_gif,asp中）
<% @language="VBScript"%>
<%
dim db '以下连上数据库，建立一个Connection对象实例db
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ="&Server.Mappath("count.asa")&";DRIVER={Microsoft
Access Driver (*.mdb)};"
'注意数据库count.asa的路径。下面将详细讲解。
dim strSql,rs,strSql1
strSql="Select * From count where ID=1"
set rs=db.execute(strSql)
strSql="Update count set num=num+1 where ID=1"
db.Execute(strSql)
dim number,images(20)
number=rs("num")
countlen=len(number)
'得到计数器数值的位数
for i=1 to countlen
images(i)="<img src="&mid(number,i,1) &".gif>"
'由循环语句得到各个位上数值对应图象的显示代码(html)，并把它存在数组中
'作为包含文件使用时请注意图象的实际服务器及目录路径
response.write""&images(i)&""
next
%>
提示：为了使用方便，将上述代码包含成一张独立网页中。
数据库（count.asa）
将Access数据库的扩展名，改为asa，是出于安全考虑。
数据库中存放一张名为count的表。表的结构为包含两个字段：
ID：自动编号、数值；num：数值（存放访问次数）。
使用方法
使用上述计数器的方法有两种：
第一种方法：直接将counter_gif,asp内的代码，插入需要添加计数器的网页中。
这样做，在设置数据库、图像的路径方面，相对直观。
但是，操作相对比较繁琐一些。
第二种方法：将counter_gif,asp作为包含文件，插入需要添加计数器的网页中。即在需要应用计数器的网页中，添加下述代码：
您是第<!--#include file="counter_gif.asp" -->位来客
这样做，操作较简便。
但是，在设置数据库、图像的路径方面，不直观。
提示：路径是，添加计数器的网页与图像、数据库之间相对路径。例如，
如果数据库和图像文件均在添加计数器网页所在目录的子目录－count中。
那么，counter_gif.asp的第4行，应改为：
db.Open "DBQ="&Server.Mappath("count/count.asa")&";DRIVER={Microsoft
Access Driver (*.mdb)};"
倒数第4行，应改为：
images(i)="<img src="&"count/"&mid(number,i,1)
&".gif>"
主页
｛其它｝ |
