〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项〗 |
<% 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 |
〖文章浏览:〗〖发送文章〗〖打印文章〗 |
|
|