请使用ASP提供的计数器组件，在页面上显示“您是第一位访问者”

请使用ASP提供的计数器组件，在页面上显示“您是第一位访问者”

<%'把代码保存为543count.asp文件。 '仅显示访量： '显示访量并增加一次计数： '无m参数时，只加计数，不显示 on error resume next response.expires=0 dim ct,fs,o,wf wf="count.txt" '存访量的文件名 wf=server.mappath(wf) set fs=server.createobject("scripting.filesystemobject") if fs.fileExists(wf)=false then ct=1 else Set o=fs.OpenTextFile (wf, 1, false) ct=0 ct=trim(o.readline) if isnumeric(ct) then ct=clng(ct)+1 else ct=1 o.close set o=nothing end if if request("m")="show" then '显示计数 response.write "document.write('" &ct& "');" elseif request("m")="show_add" then '显示并且计数加1 response.write "document.write('" &ct& "');" set o=fs.CreateTextFile(wf,true) o.writeline(ct) o.close set o=nothing set fs=nothing else '计数加1 set o=fs.CreateTextFile(wf,true) o.writeline(ct) o.close set o=nothing set fs=nothing end if %> 在任意页面上调用： 您是第位访客。