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

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