| 
	| 〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项〗 |  | <% 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>
 
 |  | 文章作者:未知  更新日期:2008-03-07 |  | 〖文章浏览:〗〖发送文章〗〖打印文章〗 |  |  |  |