asp记录点击数的实现.txt

来自「用纯ＡＳＰ代码实现图片上传并存入数据库中」· 文本 代码 · 共 76 行

ASP记录点击数的实现！    


--------------------------------------------------------------------------------

 【morning】 于 99-4-19 下午 09:18:34 加贴在 Joy 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 & """);"

%>









--------------------------------------------------------------------------------

帖子转发：