- ·上一篇文章:fso对文件复制、移动、删除的操作
- ·下一篇文章:fso生成有多行内容的html文件
fso向html文件追加内容
在追加之前,需要判断文件是否存在。如果存在,追加才能成功。否则,追加会出错。
<
%
Set 
MyFileObject=Server.CreateObject("
Scripting.FileSystemObject"
)
filename=server.mappath("
test.html"
)
IF 
MyFileObject.FileExists(filename) 
then 
&
#39
判断文件是否存在
Response.write("
存在这个文件<
br>
"
)
Set 
MyTextFile=MyFileObject.OpenTextFile(filename,8,TRUE)
MyTextFile.WriteLine(Request.ServerVariables("
HTTP_USER_AGENT"
))
MyTextFile.Close
response.write 
"
在test.html文件后追加完成"
Else
Response.write("
不存在这个test.html文件,不可以追加"
)
END 
IF
%>
<
%
Set 
MyFileObject=Server.CreateObject("
Scripting.FileSystemObject"
)
filename=server.mappath("
test.html"
)
IF 
MyFileObject.FileExists(filename) 
then 
&
#39
判断文件是否存在
Response.write("
存在这个文件<
br>
"
)
Set 
MyTextFile=MyFileObject.OpenTextFile(filename,8,TRUE)
MyTextFile.WriteLine(Request.ServerVariables("
HTTP_USER_AGENT"
))
MyTextFile.Close
response.write 
"
在test.html文件后追加完成"
Else
Response.write("
不存在这个test.html文件,不可以追加"
)
END 
IF
%>
fso向html文件追加内容