急救,大家帮我看看哪儿有错误
欢迎光临本站 您是第<font color="#990000" size="2">
<%
On Error Resume Next
dim fsobject,fileobject,count,tobject
set fsobject=server.createobject("scripting.filesystemobject")
set fileobject=fsobject.GetFile(Server.MapPath("counter.txt"))
set tobject=Fileobject.OpenASTextStream(1,-2)
count=clng(tobject.ReadAll)
if session("vistornum")="" then
count=count+1
session("vistornum")=count
else
session("vistornum")=count
end if
set tobject=fsobject.createtextfile((server.mappath("counter.txt")),true)
tobject.write cstr(count)
set fsobject=nothing
set fileobject=nothing
set tobject=nothing
response.write "<font color='#990000'><strong>"& count&"</strong></font>"
%>
</font> 位访问者<br>记数到1309就出错了。