主题:scripting.filesystemobject问题
function counter()
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject") 这里出错的!
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(1, -2)
s=ts.readline
for i=1 to len(s)
response.write "<img src=images/count/"&mid(s,i,1)&".gif width=18 height=22>"
next
ts.close
end function
错误类型:
Microsoft VBScript 运行时错误 (0x800A0035)
文件未找到
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject") 这里出错的!
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(1, -2)
s=ts.readline
for i=1 to len(s)
response.write "<img src=images/count/"&mid(s,i,1)&".gif width=18 height=22>"
next
ts.close
end function
错误类型:
Microsoft VBScript 运行时错误 (0x800A0035)
文件未找到