ASP编写计数器的优化方法
矢量图 | 首 页 | 网页素材 | 网页特效 | 网页教程 | flash教程 | 3dmax教程 | ASP教程 | 常用范文 | 应用公文 |
教 程 | 频道首页 | flash教程 | 3dmax教程 | photoshop教程 | html/css | asp教程 | php教程 | fireworks教程 | dreamweaver教程|
资 料 | java教程 | 网页模版 | 搜索引擎 | 电脑技术 | 网络应用 | 操作系统 | 饮食文化 | 应用公文 | 贺词致辞 | 个人求职 |
频 道 | 明星资料 | 民俗风情 | 传统节日 | 人物传记 | 历史资料 | 常用范文 | 名胜古迹 | 体育资料 | 教育资料 | 综合资料 |
你的位置:首页 > 资料教程 > 正文 > ASP编写计数器的优化方法
ASP编写计数器的优化方法

http://www.sucai123.com 资料教程 2004-10-5 22:38:47

     很多的网站都有记数器,用来记录网站的访问量,这给网站管理员即时了解本网站的运行及访问情况提供了很多的方便。笔者研究过很多用ASP编写的计数器程序,发现大部份都是在一个访客访问站点的时候就打文本文件或数据库,读取以前的计数值进行加1,然后再写入文件,若网站访问量很大,可能会对系统造成很大的负担,那么有没有优化的方法呢,笔者经过研究测试,答案是:有。

熟悉ASP的朋友都知道,ASP提供一个Application属性用来保存服务器的一些公共变量,我们可以用这个变量来保存记数器的信息。

思路是先设定两个Application变量,一个Application(“TotalCount”),用来保存记数值;另一个Application(“LastwriteTime”),用来保存上次把记数值保存到文件的时间。我们可以自己定义把计数值保存到文件的间隔时间,比如1小时、1天或者一个月。在有访客访网站的时候,让Application(“TotalCount”)进行加1,如果上次保存计数的时间与现在的时间差大于我们设定的保存时间间隔值,那么就把当前的计数值写入文件保存,这样就减少了程序的IO操作,节约了系统的负担。

为了避免发生意外,如断电或者服务器停止反应需待重启等,我们可以设定保存时间间隔为2小时,这样即使发生意外,损失也不会太大。

例程如下:

<%

Dim oFSO   '定义FSO组件对象

Dim oFile  '定义读写文件对象

Dim nCount '定义从文件中读取的记数值

Dim sFilePath '定义计数器保存文件的路径

Const iInterval=2 '定义保存时间间隔为2小时

SFilePath=Server.MapPath("Count/Count.txt")  '假设计数器文件在根目录下的Count目录中,文件名为Count.txt

IF  Application("TotalCount")=0 or Application("TotalCount")="" THEN

'如果第一次运行网站,比如重启后,我们就需要从文件中读取出以前的计数值

   Set oFSO=Server.CreateObject("Scripting.FileSystemObject") '实例化文件操作对象oFSO

      IF not oFSO.FileExists(sFilePath) THEN

          OFile=oFSO.CreateTextFile(sFilePath,true)  '如果文件不存在,则创建一个文



      oFile.Write("1")   写入当前的计数值"1"

           oFile.close

           Application("TotalCount")=1

      ELSE

            Set oFile = oFSOt.OpenTextFile(sFilePath)

            NCount=OFile.ReadLine

            Application("TotalCount")=Clng(nCount)+1

            OFile.close

      End IF

      Application("LastwriteTime")= Now  '设置最后一次访问的时间为当前时间



ELSE

      Application("TotalCount")= Application("TotalCount")+1

      IF DateDiff("H", Application("LastwriteTime"),Now)>iInterval THEN

       '如果当前时间与上次保存计数值的时间差大于设定的时间间隔,则把计数值重新写入文件

           Set oFSO=Server.CreateObject("Scripting.FileSystemObject") '实例化文件操作对象oFSO

           OFile=oFSO.OpenTextFile(sFilePath,true)  '打开文件

           oFile.Write(Application("TotalCount"))   '写入当前的计数值

        &n

此新闻共有21 2


-来源:互联网 关闭 ASP编写计数器的优化方法】
∷∷ 相 关 文 章 ∷∷
·asp的19个基本技巧
·asp的19个基本技巧
·ASP中使用SQL语句操作数据库
·用ASP学做一个在线调查
·ASP的含义、功能和选择
·ASP编写计数器的优化方法
·ASP程序中使用Telnet协议
·asp 应用程序成为 exe 文件
∷∷ 热 门 推 荐 ∷∷