一、FSO Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fw = fso.OpenTextFile(Server.MapPath("/lib/Display_AD.asp"), 2, true) fw.WriteLine ("<table width=100% border=0 cellspacing=0 cellpadding=3>") fw.WriteLine (" <tr bgcolor=#cb6a3c> ") fw.close set fso=nothing 二、ADODB.Stream Sub WriteTextFile(filePath,fileContent,CharSet) dim stm set stm=CreateObject("adodb.stream") stm.Type=2 'adTypeText,文本数据 stm.Mode=3 'adModeReadWrite,读取写入,此参数用2则报错 stm.Charset=CharSet stm.Open stm.WriteText fileContent stm.SaveToFile filePath,2 'adSaveCreateOverWrite,文件存在则覆盖 stm.Flush stm.Close set stm=nothing End Sub