你的位置:| 首页网站建设如何实现点击数的计算?→文章正文  
文章导航


如何实现点击数的计算?



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 & """);"
%>


  上一页 1 2 3 4 5 下一页
 
公司简介 在线客服 客服中心 意见反馈 相关法律 隐私条款 广告服务 友情链接
Q链:515347638  电子邮箱:hanen@126.com 粤ICP备05086553