将数据库中的数据按照规定输出到TEXT文件里.文本文件中每一行代表一条数据记录。

先从数据库中把数据读出，然后用fso的writeline方法写入文本就可以，当然这样如果你的数据量很大的话，就不是很理想的了，不过你可以先把它负给一个变量，然后对变量进行处理，最后在用write方法写入，可能会好点！

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

数据量再大也可以。  
1)先从数据库中把数据读出记录，保存到变量中：  
val1=rs("field1")  
val2=rs("field2")  
...  
valn=rs("fieldn")  
2)然后用fso的writeline方法写入文本文件：  
<%  
Set  AFileSystemObject  =  CreateObject("Scripting.FileSystemObject")  
Set  ATextStream  =  AFileSystemObject.CreateTextFile("C:\test\test.txt",true)  
ATextStream.WriteLine(val1)  
ATextStream.WriteLine(val2)  
...  
ATextStream.WriteLine(valn)  
ATextStream.Close  
on  error  resume  next  
if  err<>0  then  
     Response.write  "错误："&err.Description  
else  
     Response.write  "数据库写入完毕！"  
end  if  
%>