一湖碧水

Set  fso  =  Server.Createobject("FileSystemObject")  
Set  MyTextFile  =  fso.CreateTextFile(fPath,  True)  

       If  (Not  rec.EOF)  Then  
               Do  While  (Not  rec.EOF)  
                   tempstr  =  "一条记录"  
                       MyTextFile.WriteLine  (tempstr)  
                       rec.MoveNext  
               Loop  
       End  If