中科新闻网一个苹果ppt百度文库:这段程序有问题吗？提示visitors=visitors+1这一行错误
来源：百度文库 编辑：中科新闻网 时间：2024/05/09 09:31:39
Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: '[string: ""]'
<%whichfile=server.mappath("include/count.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to countlen
response.write mid(visitors,i,1)
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
<%whichfile=server.mappath("include/count.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to countlen
response.write mid(visitors,i,1)
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
程序没问题，看看count.txt这个文件
visitors=cstr(cint(visitors)+1)