通过FSO进行页面计数
作者：cnbruce 来源：cnbruce博客 发布时间：2008-11-27 16:02:00
标签：fso,计数,统计
<％
Function FileCounter(counter_file)
Dim fs,txt,file
Application.lock
Set fs=Server.CreateObject("Scripting.FileSystemObject")
file=Server.MapPath(counter_file)
Set txt=fs.OpenTextFile(file,1,true)
if Not txt.atEndOfStream then
FileCounter=CLng(txt.ReadLine)
End if
FileCounter=FileCounter+1
txt.Close
On Error Resume Next
Set txt=fs.CreateTextFile(file,True)
if Err.Number=70 then
FileCounter="请先将"&file&"的只读属性去掉！"
ElseIf Err.Number<>0 then
FileCounter=Err.Description
else
txt.writeLine FileCounter
txt.close
End if
Application.Unlock
End function
％>
<％=FileCounter("num.txt")％>
0
投稿猜你喜欢
- 通过XML使系统之间的数据交换变得更简单，因为它与编程语言无关，刚引入XML的概念时，是通过一个脚本或应用程序解析XML数据，将其转换为适合
- 要想从命令行启动mysqld服务器，你应当启动控制台窗口(或“DOS window”)并输入命令：C
- XMLHttpRequest 最近在 W3C 标准之路上又迈进了一步，W3C Web API&nbs
如果说亲密性原则是对元素的归类组合，是将元素之间逻辑理解上的差异在视觉上表现出来，是属于信息分类的话，那么对齐原则即是在视觉上串起这些差异化- 在seclists中看到一个很惊人的thread:http://seclists.org/oss-sec/2012/q2/493MySQL爆
- 无论使用int还是varchar，对于Status的多选查询都是不易应对的。举例，常规思维下对CustomerStatus的Enum设置如下
- 我们有时候希望回车键敲在文本框（input element）里来提交表单（form），但有时候又不希望如此。比如搜索行为，希望输入完关键词之
- udf_WeekDayName 代码如下:CREATE FUNCTION [dbo].[udf_WeekDayName] ( ) RETUR
- Web 前端优化最佳实践第三部分面向 Cookie 。目前只有 2 条实践规则。1. 缩小 Cookie (Reduce Cook
- XPath(XML Path language)是一种处理XML文档段的语言。XSLT(Extensible Stylesheet Lang
- 下面直接记录下配置主从库的操作:(本文用的是mysql5.0以上)1.在主库建立要同步的数据库,建立主库的帐号和修改主库配置首先连接上数据库
- ASP 错误代码 说明 ASP 0100 内存不足 ASP 0101 意外错误 ASP 0102 需要字符串输入 ASP 0103 需要数字
- 最近在为公司做一个门户网站,项目并不咋D,可规划却不小.在做的过程中就发现修改占了很大的工作量.于是就开始想了想如何使前端修改轻松一些.这个
- SQL Server 2000使得以XML导出数据变得更加简单，但在SQL Server 2000中导入XML数据并对其进行处理则有些麻烦。
- 给浏览器绑定事件有时候是非常痛苦的事情，不同的浏览器提供不尽相同的功能的同时，也提供了不同的事件。例如，IE 系列的浏览器支持 mousee
- 先由exp把数据卸出到文件系统, 产生一个.dmp文件, 然后必要时再由imp将数据装入数据库. 对于一般中小型数据库来说, 全数据库的ex
- 下面的各种屏蔽网页鼠标或键盘的代码都是我以前收集的，挺实用的，防一般的访客还是很有用的。1.禁止鼠标选中捕捉网页文字图片等元素在<bo
- 这是由十几位视觉设计师设计的挂历，每个月份都是不同的风格，就像每个月都有不同温度和心情一样，思维跳跃性很大，可以作为挂历设计参考。当然，如果
- 数据处理在现代企业运营中变得越来越重要,越来越关键,甚至会成为企业发展的一项瓶颈. 数据保护的重要性也不言而喻. 如果一个企业没有很好的数据
- 在我做过的N多项目中，基本都有个跑不开的怪圈——首页很难设计。根据进度安排，首页必须按时出来，不然没法review，也没法测试。于是，首页只
