ASP中生成文本文件的两种方式

<% 
Set fso = CreateObject("Scripting.FileSystemObject") 
File=Server.MapPath("要生成文件路径和文件名.htm") 
Set txt=fso.OpenTextFile(File,8,True)  
data1="文件内容"用WriteLine方法生成文件 
txt.WriteLine data1 
data2="文件内容"'用Write方法生成文件 
txt.Write data2 
txt.Close 
txt.fso 
%>

<% 
Dim objAdoStream 
Set objAdoStream = Server.createObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write("文件内容") 
objAdoStream.SaveToFile 要生成文件路径和文件名.htm,2 
objAdoStream.Close() 
%>