asp下载次数统计代码

<%
sub numpad()
set files=server.createobject("scripting.filesystemobject")
set numtxt=files.opentextfile(server.mappath("/num/num.txt"))
application("num")=numtxt.readline
numtxt.close
application("num")=application("num")+1
response.write application("num")
set numtxt=files.createtextfile(server.mappath("\num\num.txt"),true)
numtxt.writeline(application("num"))
numtxt.close
end sub
application.lock
numpad
application.unlock
%>
然后建一个文本文件，命名为num，在里面写个0，就好了