荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: tiny (Tiny && Caiddy), 信区: Homepage
标 题: ASP记录点击数的实现
发信站: 荔园晨风BBS站 (Fri Nov 9 09:47:03 2001), 转信
在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 & """);"
%＞
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.158]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店