Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: ""]'
/counter.asp,行 12
<%
dim visitors,whichfile,thisfile,fs,out
whichfile=server.mappath("functions/counter.txt")
set fs=createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
if session("in")<>"in" then
session("in")="in"
visitors=visitors+1
end if
response.write visitors
set out=fs.createtextfile(whichfile)
out.writeLine(visitors)
out.close
set fs=nothing
%>
请高手解答
本文探讨了一个VBScript运行时错误'800a000d'的问题,该错误出现在一个网站计数器脚本中。文章详细介绍了错误发生的上下文及脚本的具体内容,寻求解决方案。
732

被折叠的 条评论
为什么被折叠?



