新建文本文件例 Dim Fileobject 定义一个 FileSystemObject对象实例 Dim textfile 定义一个 TextStream对象实例 Set Fileobject Server CreateObject( Scripting FileSystemObject Set textfile= FileObject Create TextFile("c: \inetpub\wwwroot\asptemp\ chapter&test. txt Textfile. Writeline("你好 TextFile. Close 关闭 TextStream对象新建文本文件例 <% Dim FileObject '定义一个FileSystemObject对象实例 Dim TextFile '定义一个TextStream对象实例 Set FileObject= Server.CreateObject("Scripting.FileSystemObject") Set TextFile= FileObject.CreateTextFile("c:\inetpub\wwwroot\asptemp\ chapter8\test.txt") TextFile.WriteLine("你好") TextFile.Close '关闭TextStream对象 %>