什么是网站架构,投资公司取名字大全,企业购物网站建设,自动网站建设系统cms这两天有好几个老的ASP网站要改#xff0c;其中有要求加记数器#xff0c;为图简单#xff0c;就用文本文件的形式存储记数。以前用ifream的形式嵌入#xff0c;不能很好的控制记数器显示的风格#xff0c;现在改进了一下#xff0c;可以很好的与嵌入板块风格结合了。把做… 这两天有好几个老的ASP网站要改其中有要求加记数器为图简单就用文本文件的形式存储记数。以前用ifream的形式嵌入不能很好的控制记数器显示的风格现在改进了一下可以很好的与嵌入板块风格结合了。把做的分享一下 一、需要有三个文件 1、Global.asa 全局应用程序文件执行Application_Start、Session_Start事件 2、GetCount.asp 读取当前记录 3、Count.txt 存储访问数 二、代码 1、Global.asa 1SCRIPT LANGUAGEVBScript RUNATServer 2SUB Application_OnStart 3On Error Resume Next 4SFilePathServer.MapPath(Count.txt) 假设计数器文件在根目录下的Count目录中文件名为Count.txt 5Set oFSOServer.CreateObject(Scripting.FileSystemObject) 6IF not oFSO.FileExists(sFilePath) THEN 7 oFileoFSO.CreateTextFile(sFilePath,true) 如果文件不存在则创建一个文件 8 oFile.Write(1) 9 oFile.close10 Application(TotalCount)111ELSE12 Set oFile oFSO.OpenTextFile(sFilePath) 13 NCountOFile.ReadLine14 Application(TotalCount)Clng(nCount)115 oFile.close16 Set oFileoFSO.OpenTextFile(sFilePath,2)17 oFile.Write(Application(TotalCount))18 oFile.close19End IF20err.clear21END SUB22/SCRIPT2324SCRIPT LANGUAGEVBScript RUNATServer25SUB Application_OnEnd26END SUB27/SCRIPT2829SCRIPT LANGUAGEVBScript RUNATServer30SUB Session_OnStart31On Error Resume Next32SFilePathServer.MapPath(Count.txt) 假设计数器文件在根目录下的Count目录中文件名为Count.txt33Set oFSOServer.CreateObject(Scripting.FileSystemObject)34IF Application(TotalCount)0 or Application(TotalCount) THEN35如果第一次运行网站比如重启后我们就需要从文件中读取出以前的计数值36 IF not oFSO.FileExists(sFilePath) THEN37 oFileoFSO.CreateTextFile(sFilePath,true) 如果文件不存在则创建一个文件38 oFile.Write(1)39 oFile.close40 Application(TotalCount)141 ELSE42 Set oFile oFSO.OpenTextFile(sFilePath) 43 NCountOFile.ReadLine44 Application(TotalCount)Clng(nCount)145 oFile.close46 Set oFileoFSO.OpenTextFile(sFilePath,2)47 oFile.Write(Application(TotalCount))48 oFile.close49 End IF50ELSE51 Application(TotalCount) Application(TotalCount)152 IF not oFSO.FileExists(sFilePath) THEN53 oFileoFSO.CreateTextFile(sFilePath,true) 如果文件不存在则创建一个文件54 oFile.Write(Application(TotalCount))55 oFile.close56 ELSE57 Set oFileoFSO.OpenTextFile(sFilePath,2)58 oFile.Write(Application(TotalCount))59 oFile.close60 End IF61End IF62err.clear63End Sub64/SCRIPT6566SCRIPT LANGUAGEVBScript RUNATServer67SUB Session_OnEnd68END SUB69/SCRIPT 2、GetCount.asp 1%document.write( Application(TotalCount) )% 3、需要显示计数器的地方加入HTML也可以 1script typetext/javascript src../GetCount.asp/script 转载于:https://www.cnblogs.com/jcjks/archive/2009/05/11/1453997.html
