错误 '800a000d' 类型不匹配: 'count'

Question

<%

1. dim file,fileop
2. set file=server.createobject("scripting.filesystemobject")
3. set fileop=file.opentextfile(server.mappath("text.txt"),1,true)
4. count=fileop.readline()
5. fileop.close
6.  
7. set fileop=file.opentextfile(server.mappath("text.txt"),1)
8. count=count+1
9. fileop.write count
10. response.write count
11. fileop.close
12. %>

 

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