ASP生成文本文件(.txt)的代码_

<%
set conn=server.CreateObject( "adodb.connection" )
set rs=server.CreateObject( "adodb.recordset" )
db= "数据库路径"
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(db)
sql= "select * from 表名 order by id desc"
set rs=conn.execute(sql)
set fileobj=server.CreateObject( "scripting.filesystemobject" )
set textobj=fileobj.createtextfile(server.MapPath("要生成文件的路径和名称"))
%>
<table width= "90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
       <td height="39">
        </td>
    </tr>
     <tr>
       <td><font color="#FF0000">生成歌曲列表成功！</font><br>
<%
while not rs.eof
%>
      <% textobj.writeline( "mkList("""& rs("字段1")&""","""& rs("字段2")&""");") %>
<%
rs.movenext
wend
%>
      </td>
   </tr>
</table>

文章作者：未知