哪位朋友帮我看看下面的代码哪里有错..请改一下再发给我。谢谢。。
<BR>
<%function filecounter(counterfile)
dim fs,txt,file
application.Lock()
set fs=server.CreateObject("scripting.filesystemobject")
file=server.MapPath("counterfile")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
filecounter=Clng(txt.readline)
end if
filecounter=filecounter+1
txt.close
on error resume next
set txt=fs.createtextfile(file,true)
if err.number=70 then
filecounter="请将"&file&"的只读属性去除"
elseif err.number<>0 then
filecounter=err.description
else
txt.writeline filecounter
txt.close
end if
application.UnLock()
end function %>
您是本站第<font color="#FF00CC" size="+3"><%=filecounter("counter.txt")%></font>位访客，谢谢您对我们的支持，我们将竭诚为您服务。</p>
<p> <span class=style1>
