如何解决！输入超出了文件尾 ！！！

[sanshisong]

content = request.form("s4")
set rs = server.CreateObject("adodb.recordset")
sql ="select * from gk"
rs.open sql,conn,1,3
rs.addnew
rs("gk")=content
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set Mb=fso.OpenTextFile("index.htm")
Mbcontent=Mb.ReadAll
上面是代码片断，提示Mbcontent=Mb.ReadAll输出超出了文件尾！！！

[孟子E章]

index.htm里面有内容吗？

Set Mb=fso.OpenTextFile(Server.Mappath("index.htm"))

[若白师妹]

血红的钻石啊!

[刘晓慧]

content = request.form( "s4 ")
set rs = server.CreateObject( "adodb.recordset ")
sql = "select * from gk "
rs.open sql,conn,1,3
rs.addnew
rs( "gk ")=content
Set fso=Server.CreateObject( "Scripting.FileSystemObject ")

'判断文件是否存在，如果不存在也会出错。不存在的话就创建一个
if not fso.fileexists(server.mappath("index.htm")) then
Set Mb=fso.createtextfile( server.mappath("index.htm "))
else
Set Mb=fso.OpenTextFile( server.mappath("index.htm ")，1)
end if

'你也可以这样写Set Mb=fso.OpenTextFile( server.mappath("index.htm ")，1，true)
'true的意思是 不存在时是否创建新文件，1的意思是只读
'AtEndOfStream 如果文件指针在 TextStream 文件末尾，则该属性值返回 True；否则返回 False。
if Not Mb.AtEndOfStream then
Mbcontent=Mb.ReadAll
end if