在追加之前，需要判斷文件是否存在。如果存在，追加才能成功。否則，追加會出錯。
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
filename=server.mappath("test.Html")
IF MyFileObject.FileExists(filename) then '判斷文件是否存在
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
%>
