计数器代码[转]

最近许多网友在讨论计数器的问题,偶尔看到一篇文章,贴出来以解大家燃眉之急
一下代码贴在第一页即可
<%
' Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var
' Determine whether we use images or plain text
' You could just set this to True or False instead
bUseImages = CBool(Request.QueryString("images"))
' Compute our count file's filename
' This is based on the file from which you call count.asp
' It basically takes that name and appends a .cnt so I don't
' accidently overwrite any files. If for some reason you have
' a file named script_name.asp.cnt then change this or watch out!
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")
' Create FileSystemObject to deal with file access
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
' Read the current count from the file
If Not objCountFile.AtEndOfStream Then
' Set value to contents of the file
iCount = CLng(objCountFile.ReadAll)
Else
' If no file exists or it's empty start at 0
iCount = 0
End If
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
' Increment the count
iCount = iCount + 1
' Overwrite existing file and get a text stream to new one
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
' Write updated count
objCountFile.Write iCount
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
' Destroy the FSO object
Set objFSO = Nothing

时间: 2024-09-20 07:43:31

计数器代码[转]的相关文章

如何在网站添加计数器代码

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 在网站添加计数器代码 放置计数器代码到网页当中,才能统计网站的访问情况.在这里需要注意一点的是:每个页面都需要放置这个代码,才能统计到每个页面.那么如何放置这个代码每个页面呢?在我们的网站系统后台将会很容易做到. 步骤如下: 1.登录系统,在前面有介绍过如何登录系统后台,这里就不重复了. 2.点击导航菜单中的"标签". 3

javascript-Web前端JS计数器代码修改问题

问题描述 Web前端JS计数器代码修改问题 这是一个js计时器的代码,目前只能向上滚动数字,我想改成向下滚动的应该怎么办呢,跪谢各位大神~ function DigitRoll(a){if(this.container=document.querySelector(a.container),this.width=a.width||2,!this.container)throw Error("no container");this.container.style.overflow=&qu

php写的网页计数器代码

<html> <head> <title>php教程写的网页计数器代码</title> <head> <body> <?php $countfile = "counter.txt"; //定义计数器写入的文件是当前目录下的counter.txt文件中,然后我们应当测试该文件能否打开 if (($fp = fopen($countfile, "r+")) == false) {  //用读写

php简单自主开网页访问次数计数器代码

这里是我们用php教程简单自主开网页访问次数计数器代码偌,是一款基于文件的图形计数器范例代码,会用到的文件用 num.txt //累计访问次数 vist.php//测试文件 count.php//统计访问次的核心程序,因为它会把文字转换成gif图片,并且输出到浏览器. <HTML> <HEAD> <TITLE>图形计数器范例</TITLE> </HEAD> <BODY> 您好,您是第<img src="ImgOutFi

【技术贴】网站首页浏览量统计代码,适合.NET||网页浏览量计数器代码

[.NET]独家发布网页首页浏览量计数器,目前网上木有我这么简单的 设计的思路就是在本地路径下放一个txt存放初始值,然后每次刷新首页之后让.net去访问这个txt文件读取这个初始值并累加之后再写入这个文件,(这样以后就能读取到总访问量了)嗯,思路就是这么简单,需要在default.cs文件的Page_Load事件里写8行代码即可解决!比网上的写入sql数据库写入xml,ajax调用,js远程调用要简单,实惠,方便,效率.不用数据库操作,对服务器压力明显减轻. 效果图如下:   代码如下. 1.

js计数器代码_时间日期

复制代码 代码如下: <script Language="javascript">  var seconds = 10;//记数时间  var handle;//事件柄  //开始记数器  function startTimer() {   handle = setInterval("timer()",1000);  }  //结束记数器  function stopTimer() {   clearInterval(handle);   seconds

php简单自主开网页访问次数计数器代码(1/2)

会用到的文件用 num.txt //累计访问次数 vist.php//测试文件 count.php//统计访问次的核心程序,因为它会把文字转换成gif图片,并且输出到浏览器.  代码如下 复制代码 <HTML> <HEAD> <TITLE>图形计数器范例</TITLE> </HEAD> <BODY> 您好,您是第<img src="ImgOutFileCount.php">位访客 </BODY&g

三款php计数器代码

 代码如下 复制代码 <?php //计数器 function countx($file="count.dat"){ if(file_exists($file)){ $fp=fopen($file,"r"); $numx=fgets($fp,10); fclose($fp); $numx++; //以上四行代码可以用一条表达式代替:$numx=file_get_contents($file)+1; } else{ $numx=1;} file_put_cont

jsp计数器代码

js|计数器 <!-- JSP-Hitcounter counts sessions. Copyright (C) 2000 Jesper Schmitz Mouridsen. Visit www.webappcabaret/jsm2/webapps.jsp?find=jsphcs for more info. This program is free software; you can redistribute it and/or modify it under the terms of th