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
%>

Answer 1

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

<%
'........
if not isnumeric(count) then count=0'判断不是数字初始化为0

'........
%>