Microsoft VBScript 运行时错误 错误 '800a000d'

Question

asp 错误 '800a000d' 怎么解决

<%
 
dim file,fileop
set file=server.createobject("scripting.filesystemobject")
set fileop=file.opentextfile(server.mappath("text.txt"),1,true)
count=fileop.readline()
fileop.close
 
set fileop=file.opentextfile(server.mappath("text.txt"),1)
count=count+1
fileop.write count
response.write count
fileop.close
%>

Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'count'
/计算器.asp，行 8

Answer 1

count=fileop.readline()这句读出的数据不是数字，自己加下判断不是数字初始化为0

<%
dim file,fileop
set file=server.createobject("scripting.filesystemobject")
set fileop=file.opentextfile(server.mappath("text.txt"),1,true)
count=fileop.readline()
fileop.close
if not isnumeric(count) then count=0'判断不是数字初始化为0
set fileop=file.opentextfile(server.mappath("text.txt"),2)'1只读，你要写回内容要用2，要不报错
count=count+1
fileop.write count
response.write count
fileop.close
%>