如何制作自己的站内计数器〔博〕.docVIP

如何制作自己的站内计数器 ??? 一直以来，有个属于自己的站内计数器是大多数站长的梦想。其实，实现这个梦并不难。??? 目前，除专业站点外，大多数站点都使用免费计数器服务。原因很简单，就是非专业网站自己没有良好的程序开发能力，能有效地利用好外部资源已经不容易了。而提供免费计数器服务的网站很多，诸如：Google、一统天下、叮当网、中国站长联盟、太极链等，仅国内恐怕就有超过100家。??? 申请免费计数器的好处是，这些提供计数器服务的网站大多数比较专业，除了免费计数器以外，多数还提供流量统计和解析服务，使你可以对自己网站流量的来源构成、站内热点、发展趋势等有个基本的了解，对总结网站建设经验和提高站点流量，这些信息无疑有比较大的帮助。??? 但免费计数器可能的个问题有：??? 1）容易受提供服务商的限制，提供方停止服务没有通知的义务，也不对不良后果负任何责任，因为这种服务是免费的。??? 2）某些热门计数器系统可能还有诸多其它限制，如基本日流量必须达到某个数量等一些附加条件。??? 3）没有限制的服务往往不稳定，如在流量高峰时不能正确计数之类。这可能反映了服务商资源的限制，我使用的叮当计数器系统就曾发生过这样的问题。??? 4）免费计数器的计数器服务程序和数据库文件运行于提供商的服务器，但又镶嵌在你的网页内，而你的网页往往是在另一个地点的服务器运行的。如果要正确计数，必须在读取你网页的同时，读取和运行另一个地点的计数器程序。因此，这种方式可能不适合密集大流量的计数，网络速度将成为一个瓶颈。 ??? 其实，如果没有特殊专业化的要求，在自己站内镶嵌一个属于自己网站的计数器，是可行的。这样可以克服上面存在的问题。当然，也不耽误你在你站点内同时嵌入其它免费服务的统计代码。??? 自己做计数器的基本条件是，网站空间必须是动态空间，支持ASP、Access数据库等。计数器大多数是用ASP语言编写的，计数值被写入一个预定文件中，并在网页读出时自动刷新。 ??? 下面提供几个计数器程序，这些程序也来自网络，是免费提供的共享代码。同时介绍镶嵌到站内的方法。 一、最简单的文本计数器：1、在网站目录下新建一个文本：txtcounter.txt。 在文本填写1或其他数字（即初始值）。2、新建一asp文件：count.asp，加入以下代码：% CountFile=Server.MapPath(txtcounter.txt) Set FileObject=Server.CreateObject(Scripting.FileSystemObject) Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine Out.Close SET FileObject=Server.CreateObject(Scripting.FileSystemObject) Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock counter= counter + 1 Out.WriteLine(counter) Application.unlock Response.Writedocument.write(counter)为了在页面正确显示计数器的值，调用VBScript函数Document.writeOut.Close%3、在需要计数的网页加入：总访问script language=JavaScript src=count.asp次??? 现在看网页就是可以计数了！ 二、与页面分离的图象计数器：　　人们的追求是永无止境的，也许你需要一个更有个性的图形数字计数器，而不是简单的文本数字计数器。没问题，现在我们就来看看用ASP是怎样来实现图形计数器功能的。要实现图形计数器，关键点在于如何实现把计数器文件中的数据值转变为对应的图象表示。因为十进制数有0,1,2,3,4,5,6,7,8,9共十个不同的数数字，我们需要有十个对应的图象，且图象的文件名字要与显示的数字对应起来，比如0对应的数字图象的文件名字就是0.gif，1对应的就是1.gif，...(图象自己可以用Photoshop等工具制作，或者从网络上下载)。这里我们要用到VBScript函数Len(string | varname)、Mid(string,start[,length])。由Len(counter)可得到计数器值的位数,由Mid(counter,i,1)可以得到计数器值的第i位上的数字，我们可利用这个值来调用相应的数字图象。用For循环语句,我们不难得出计数器值各个位上