使用ASP制作网站计数器,一般采用ASP的内置对象application,用一文本文件来保存记数值,在这里我将介绍另外一种方法,采用数据库来制作,而且是多用户版的,这样,不仅可以自己使用,而且可以为其它网站服务了。下面是具体做法:● 制作前的准备　　由于要使用数据库来保存记数值与用户信息,所以必须先建立数据库(这里我们采用ACCESS格式),可以用Microsoft Access建立下面的数据库:数据库名称为:count.mdb表名为:counttable有下面字段:user:[数据类型:文本,字段大小:255]保存用户名pageurl:[数据类型:文本,字段大小:255]保存用户主页地址curvalue:[数据类型:数字,字段大小:长整型]保存计数器值　　同时需准备十个图片:0-9,放于目录"1"中,文件名为0.gif,1.gif……(用来图形化显示的计数值)● 用户申请表单制作　　可以使用Microsoft FrontPage制作下面的计数器申请表单,文件名保存为:get.htm

用 户 名

计数器值

主页地址

　　表单中的action="getcl.asp"表示用getcl.asp文件来处理用户的输入,那么,getcl.asp文件怎么处理用户的输入,将用户的输入加入数据库呢?方法如下:<%'建立与数据库的连接Set conn = Server.CreateObject("ADODB.Connection")dbpath=server.MapPath("count.mdb")'取得数据库的实际路径conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DbPathset rs=server.CreateObject("adodb.recordset")'取得用户信息user=Request.Form("user")pageurl=Request.Form("pageurl")curvalue=Request.Form("curvalue")'先检查用户名是否存在sql="select * from counttable where user='"&user&"'"rs.Open sql,conn,1,3if not rs.EOF thenResponse.Write""Response.Write"对不起，用户名已经存在!"'结束向下处理，要求用户重填Response.Endend if'将用户信息加入数据库rs.AddNewrs("user")=userrs("pageurl")=pageurlrs("curvalue")=curvaluers.Updaters.Closeset rs=nothingconn.Closeset conn=nothing%>● 计数程序制作　　完成了用户申请处理的制作,下面就要制作计数器的核心程序(count.asp)了。具体方法如下:<%Set conn = Server.CreateObject("ADODB.Connection")dbpath=server.MapPath("count.mdb")conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DbPathuser=Request.QueryString("user")'计数值加1sql="update counttable set curvalue=curvalue+1 where user='"&user&"'"conn.Execute sqlsql="select curvalue from counttable where user='"&user&"'"set rs=conn.Execute(sql)'定义chgimg函数,将计数值用图形表示function chgimg(curvalue)dim s,I,gs=cstr(curvalue)for I=1 to len(s)'请注意,在正式使用计数器时,图片的路径一定要使用实际路径g=g & ""nextchgimg=gend function'调用chgimg函数(传入计数器值)toimg=chgimg(rs("curvalue"))toimg="document.write(" & "'" & toimg & "')"'输出Response.Write(toimg)rs.closeset rs=nothingconn.Closeset conn=nothing%>　　注:此文件不能带用其它html标志,否则将会出错！● 如何在主页中显示计数器　　完成了计数器的制作,接下来是享受我们的劳动成果的时候了,怎么来调用计数器呢?很简单,只需在欲显示记数器的位置插入下面代码就行了。'请注意,在正式使用计数器时,调用的路径一定要使用实际路径