asp如何实现点击数的计算?
发布时间:2010-05-18 18:39:00
如下:
counter.htm
<a href=counter.asp?save=123&url=http://127.0.0.1/>http://127.0.0.1</a>
共点击次数:<script src=view.asp?save=123></script>
counter.asp
<%
path="d:data"
file=request("save")
url=request("url")
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path & file & ".txt") then
Set thisfile = fs.OpenTextFile(path & file & ".txt", 1, False)
number=thisfile.readline + 1
thisfile.Close
Set outfile=fs.CreateTextFile(path & file & ".txt")
outfile.WriteLine number
outfile.close
set fs=nothing
else
number=1
Set outfile=fs.CreateTextFile(path & file & ".txt")
outfile.WriteLine number
outfile.close
set fs=nothing
end if
response.redirect url
%>
view.asp
<%
path="d:data"
file=request("save")
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path & file & ".txt") then
Set thisfile = fs.OpenTextFile(path & file & ".txt", 1, False)
number=thisfile.readline
thisfile.Close
set fs=nothing
else
number=0
end if
response.contenttype = "application/x-javascript"
response.write "document.write(""" & number & """);"
%>
猜你喜欢
- 论坛上看到有人问ASP是否可以定时触发事件,我就顺便做了一个玩玩。其实做这个的原理是很简单的,只是我们当时没有仔细的去想想该怎么实现,我这里
- 在小飞的博客上看到他写了一篇关于reset.css的文章,文章中关于css的部分分析的非常不错,但对于文中关于强调把CSS分别配置,对每一个
- <%'解析一个xml文件的公用函数集合dim document'装载一个xml文档,函数名Loaddocument(文
- 本文介绍了prototype.js常用函数及其使用方法例子说明函数名
- 在许多情况下,当迁移至SQL Server 2008之前必须了解那些反对和放弃功能的具体情况。下文是几个主要功能在兼容性上的问题列表:1.S
- CSS布局作为一个热门技术,发展的确有些缓慢。CSS最早被提议在1994年,最早被浏览器支持在1996年,CSS一直被力捧为传统的以HTML
- 第一次见到《Web标准和SEO应用实践》是在我们UCD书友会《设计沟通十器》新书发布现场,机械工业出版社的朋友还带了很多相关新书过来,当时本
- 前两天,编辑建议我去当当和卓越申请个用户,在网站上放上我的书的链接,这样还可以拿到一些反点儿,于是我兴冲冲地跑到几个网站上去看,却只在卓越(
- 1、前言 MySQL 是完全网络化的跨平台关系型数据库系统,同时是具有客户机/服务器体系结构的分布式数据库管理系统。它具有功能强、使用简便、
- 问题:这里只解决一个问题,到底什么是Access?设计一个数据库管理系统,用access在access里面设计好表,查询,然后再用vb做窗体
- 从MySQL 5.0.2开始,通过mysql_stmt_attr_set() C API函数实现了服务器端光标。服务器端光标允许在服务器端生
- 本文讲解如何设置SQL Server数据库全文索引服务。在Microsoft SQL Server 7.0 中提供了全文索引服务(Full-
- 阅读上一篇:你是真正的用户体验设计者吗? Ⅰwrite2vin 的 原文路宛兮写的简介:本文介绍了: 1.关于用户体验的几种观点; 2.关于
- 一、使用css缩写使用缩写可以帮助减少你CSS文件的大小,更加容易阅读。css缩写的主要规则请参看《常用css缩写语法总结》,这里就不展开描
- The Only Thing We Have To Fear Is Premature Standardization原文地址:http:/
- 终于完成了偶的拖动窗口,花了近15个小时,庆祝一下(*^__^*);以前写了IE下的功能,于是又写了firefox下的功能,在firefox
- 遵循Web标准的思想,网页要表现出一种亲和力。那么,针对残障用户来说,其“阅读”器可不能读取图像上传递的信息的。所以我们会采用一种Using
- 如果你是一名Web Developer,而且还知道CSS Sprite这个词,请先去搜索一下,也许你正在使用这个技术,但只是不知道它的名字罢
- 我查了资料:setRequestHeader,单独指定请求的某个http头语法oXMLHttpRequest.setRequestHeade
- 为什么传输几千个表的数据时向导会失败?当前的向导体系结构会创建一个 DTS 软件包数据流以传输数据。但如果要处理几千个表,则会遇到可伸缩性限