手机
当前位置:查字典教程网 >编程开发 >编程10000问 >如何实现点击数的计算?
如何实现点击数的计算?
摘要:counter.htm<ahref=counter.asp?save=123&url=http://127.0.0.1/>http://12...

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-"

response.write "document.write(""" & number & """);"

%>

[1]

【如何实现点击数的计算?】相关文章:

如何防范利用刷新来“作弊”的计数器?

如何编写一个创建FTP站点的函数?

如何将访问者数目周期性地保存?

如何测试字符串的长度?

如何制作一个倒计时的程序?

如何在网站中插播广告?

如何实现非大小写的替换?

如何最大限度地实现安全登录功能?

不用Global.asa也能实现统计在线人数吗?

如何在线更改密码?

精品推荐
分类导航