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]