网页计数器的程序

程序|计数器|网页

网页计数器DIY
随着网络大行其道,网页计数器也流行起来。事实上大多数网站均有网页计数器,用以反映该网站的访问量。计数器的来源很广,Frontpage等网页编辑器自带了网页计数器,有的站点也提供免费的计数器下载。其实熟悉了ASP编程后,自己做一个计数器很容易。下面介绍一种实现方法。
计数器原理是:在第一次使用网页时置初始值1,以后每请求网页一次,将计数器值加1。这样我们只要在服务器上放置一个文本文件counter.txt,文本文件的内容有计数器的值,以后每请求一次页面,读出文本文件的计数器的数值,加1显示,然后再将原来的值改变为加1后的值,保存到文本文件。至于初始置1,在服务器上可先不建counter.txt,在网页中,先判断服务器上是否有counter.txt文件,没有就生成counter.txt,在counter.txt中写入1,网页上显示计数器值1,完成初始置1。以后每次只要到指定目录下将counter.txt文件删除即可置初始值。
具体操作时要有显示数字0、1、2….9的图像文件,0.gif、1.gif、2.gif…9.gif,文件不能太大,一般18*25即可。将你要放计数器的网页布局设计完毕,再改成ASP文件,将下面代码输入到要显示计数器的地方,使用时,程序将自动在虚拟目录count下建立counter.txt文件。置初始值时将文件删除即可。对了,虚拟目录count必须给everyone有写的权限。
<%
Const ForReading = 1, ForWriting = 2, ForAppending =3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if fs.fileexists(filename) then

    set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(ForReading,
TristateUseDefault)
    s=ts.readline+1
    ts.close
else
    fs.createtextfile(filename)
    set f=fs.getfile(filename)
    s=1
end if

'向counter.txt中写数据
Set ts = f.OpenAsTextStream(ForWriting,
TristateUseDefault)
ts.writeline(cstr(s))
ts.close

'显示计数器
s=cstr(s+1000000)
s=mid(s,2,6)
for i=1 to 6
   response.write "<img src='http://www.163design.net/a/images/"&mid(s,i,1)
&".gif' width='18' height='25'>"
next

%>
性急的朋友要问,你的这个计数器值显示6位计数,如果要显示8位计数,怎么办?别着急,等我讲完下一个例子我会给一个通式的。
这个计数器有一个缺点,就是每次刷新页面计数器都加1,这是因为每刷新一次页面,系统认为你重新请求页面;而且,如果你不从主页面进入网站,计数器不会改变计数。如果想要

更精确一点,只要将上面的代码略加修改,放到你的global.asa的session_onstart中,这样,只有新用户进入网站,计数器才会加1。已经进入网站的用户刷新页面,不会引起计数器计数的改变,而且不管你从哪个页面进站,计数器都能捕捉到你。
<script language=vbscript runat=server>
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
  fs.createtextfile(filename)
    set f=fs.getfile(filename)
           s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
          else
    set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(1, -2)
    s=ts.readline+1
    ts.close
end if
application(“visitor”)=s
end sub

sub session_onstart
session.timeout=5
application(“visitor”)=application(“visitor”)+1
set f=fs.getfile(filename)
     Set ts = f.OpenAsTextStream(2, -2)
      

ts.writeline (cstr(application(“visitor”)))
ts.close
end sub
</script>
在网页相应部分根据application(“visitor”)的值显示计数器的图像。
<%
s=cstr(application("visitor")+10^6)
s=mid(s,2,6)
for i=1 to 6
   response.write "<img src='http://www.163design.net/a/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>
要显示n位计数器只要将上面代码改为:
<%
s=cstr(application(“visitor”)+10 ^n)
s=mid(s,2,n)
for I=1 to n
   response.write "<img src='http://www.163design.net/a/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>
这样要得到8位计数器,只要加上n=8即可。
要是觉得每次有用户进入网站,均对counter.txt写入太频繁,可以在session_onstart中设置,在application
(“visitor”)为十的倍数时将计数值写进counter.txt。
怎么样?现在就动手吧!

时间: 2024-11-02 22:25:20

网页计数器的程序的相关文章

网页计数器的程序:....多多指真。

网页计数器DIY随着网络大行其道,网页计数器也流行起来.事实上大多数网站均有网页计数器,用以反映该网站的访问量.计数器的来源很广,Frontpage等网页编辑器自带了网页计数器,有的站点也提供免费的计数器下载.其实熟悉了ASP编程后,自己做一个计数器很容易.下面介绍一种实现方法.计数器原理是:在第一次使用网页时置初始值1,以后每请求网页一次,将计数器值加1.这样我们只要在服务器上放置一个文本文件counter.txt,文本文件的内容有计数器的值,以后每请求一次页面,读出文本文件的计数器的数值,加

JSP“抓”网页代码的程序

js|程序|网页 JSP"抓"网页代码的程序如下: <%@ page contentType="text/html;charset=gb2312"%> <% String sCurrentLine; String sTotalString; sCurrentLine=""; sTotalString=""; java.io.InputStream l_urlStream; java.net.URL l_url

jsp网页计数器实现示例

 网页计数器想必大家都有见到过吧,记录每一个访问者,下面有个不错的示例,感兴趣的朋友可以参考下  代码如下: //过滤器类  public class EcondingFilter implements Filter {  private String charset = null;  private ServletContext context = null;  private String path = "";  /**  * 在销毁前将数据存入本地文件中  */  public

Win7系统打开网页提示应用程序已被JAVA安全阻止怎么办

  Win7系统打开网页提示应用程序已被JAVA安全阻止怎么办            具体方法如下: 1.完成JAVA版本更新,然后刷新有问题的网页页面,以排除JAVA版本问题引起JAVA安全阻止; 2.从开始菜单中打开控制面板,我们需要进入控制面板来修改相应的配置; 3.进入控制面板后,在控制面板中找到JAVA选项,如果找不到可将查看方式切换到大图标或图标即可; 4.在JAVA控制面板中打开安全选项,并找到例外站点列表; 5.打开JAVA控制面板中编辑例外站点列表,将我们需要在网页上运行JAV

网页开发的程序,能否自动读某一段话,也就是指定某段话自动语音读出来

问题描述 网页开发的程序,能否自动读某一段话,也就是指定某段话自动语音读出来 网页开发的程序,能否自动读某一段话,也就是指定某段话自动语音读出来 解决方案 http://www.it165.net/pro/html/201307/6515.html 发送文字到服务器端,服务器生成语音文件或者输出语音流,然后用客户端的播放器,如flash或者html5的audio表情播放这个文件 解决方案二: 不需要任何代码,windows为残障人士提供了讲述人功能http://windows.microsoft

|zyciis| 慕白兄以前教我的从网页调用WinFrom程序的例子,那个WinForm程序执行完后可不可以返回数据到那个页面呢

问题描述 我现在在做发IC卡的程序在网页中添加一个ID,然后发卡http://topic.csdn.net/u/20071217/18/420dd1f2-6f17-4854-a08b-1480928c4ea8.html这个时候我就用ICCard:|1|sdf5465sd1f213sd//前面的为用户户后面的为验证MAC传了一个用户ID过去然后在客户端用程序给这个用户发一张VIP卡,并在客户端用WebService去更新数据库当发完VIP卡后,网页是没有改变的,这个时候就要手动的刷新一下才能从数据

我的IE网页调用cgi程序时,浏览器却自动跳出下载窗口。要怎么设置,或者修改程序让IE执行cgi程序?

问题描述 我的IE网页调用cgi程序时,浏览器却自动跳出下载窗口.而用google浏览器,就能正常执行cgi程序.请问要怎么设置,或者修改程序让IE执行cgi程序?求各种帮拖,大爱 解决方案 解决方案二:在IIS上运行CGI有十个简单的步骤:1)安装InternetServiceManager.2)从列表中选择WWWServive.3)选择Properties/ServiceProperties命令.4)单击Directories标签.5)单击Add按钮.6)指定自己的cgi-bin目录的完整路

php获取网页请求状态程序示例_php技巧

对于网页返回状态代码一般情况下我们都会去查自己网站状态码是不是200或错误页面是不是404代码,并且多数情况下我们的查看方法就是使用站长工具或ff浏览器等来查看,极少有人想到自己写一个查看状态代码的功能. 本文就此简述php获取网页请求状态程序示例如下: 方法一,使用 fsockopen(不推荐使用curl_getinfo!) 复制代码 代码如下: function get_http_code($url="localhost", $port=80, $fsock_timeout=10)

Win7系统打开网页提示应用程序已被JAVA安全阻止的解决方法

具体方法如下: 1.完成JAVA版本更新,然后刷新有问题的网页页面,以排除JAVA版本问题引起JAVA安全阻止: 2.从开始菜单中打开控制面板,我们需要进入控制面板来修改相应的配置: 3.进入控制面板后,在控制面板中找到JAVA选项,如果找不到可将查看方式切换到大图标或图标即可; 4.在JAVA控制面板中打开安全选项,并找到例外站点列表; 5.打开JAVA控制面板中编辑例外站点列表,将我们需要在网页上运行JAVA脚本的站点添加到此列表中; 6.将需要运行JAVA脚本的站点添加至其中,并对弹出的安