在追加之前，需要判断文件是否存在。如果存在，追加才能成功。否则，追加会出错。
<%

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

评论 (0) All

登陆 还没注册？