源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

如何实现点击数的计算?

  • 时间:2020-11-04 07:13 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:如何实现点击数的计算?
[u]counter.htm

[/u]

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 [u]counter.asp[/u] % 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 % [u]view.asp[/u] % 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 & """);" %

[b][1][/b]
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部