<html>
<title>ttasp.net(ASP统计点击次数)</title>
<body bgcolor="#FFFFFF">
<%
on error resume next
创建一个服务器对象
set fso = createobject("scripting.filesystemobject")
针对文本文件打开
set act = fso.opentextfile(server.mappath("asp_count.txt"))
读取文本文档的值
如果文本文档不存在的话那么错误接下来会重新出现
将会在下一行下拉
counter = clng(act.readline)
添加一个到计数器
counter = counter + 1
关闭这个对象
act.close
在服务器上创建一个新的文件
Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)
把当前的计数器值写到文本文档上去
act.WriteLine(counter)
关闭这个对象
act.Close
把这个计数器写入浏览器文本
Response.Write counter
%>
</body>
</html>
热门信息
阅读 (109)
1 什么样的编程语言是最值得我们学习的呢?阅读 (109)
2 asp 如何解析api接口返回的xml阅读 (109)
3 ASP-数组阅读 (108)
4 asp网站伪静态化URL Rewrite中的httpd.ini伪静态化规则编写方法阅读 (105)
5 asp取access数据库里本周、本月、本季度的记录~