< a href=counter.asp?save=123 file file file file file file #106avascript" response.write "document.write(""" """);" % > [1]" />
欢迎来到入门教程网!

编程问答

当前位置:主页 > 网络编程 > 编程问答 >

如何实现点击数的计算?

来源:本站原创|时间:2020-01-11|栏目:编程问答|点击:

counter.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

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]

上一篇:如何判断电子邮件的地址格式是否正确?

栏    目:编程问答

下一篇:没有了

本文标题:如何实现点击数的计算?

本文地址:https://www.xiuzhanwang.com/a1/bianchengwenda/12107.html

网页制作CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:835971066 | 邮箱:835971066#qq.com(#换成@)

Copyright © 2002-2020 脚本教程网 版权所有