您的位置：论坛首页 >> 软件论坛论坛

ASP记录点击数的实现

楼主： 2008-7-11 10:02:56

游客

编辑　

删除　

留言　

好友　

置顶　

取消精华

原文：ASP记录点击数的实现

在HTML中用法

＜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楼： 2008-7-11 10:02:56

游客

删除　

留言　

好友

搞不成功，发个

2楼： 2008-7-11 10:04:09

游客

删除　

留言　

好友

发个给源码给我，谢谢 caihn@163.com