复制代码 代码如下:<!--#include file="conn.asp"--> <% set js = server.CreateObject("ADODB.RecordSet") sql="select top 10 * from article order by id desc" set js = conn.Execute (Sql) do while not js.eof title=js("title") addate=js("addate") foolcat = foolcat + "<li><a href=""/"& js("id")&".htm"">" &title&" "&addate&"</a></li><br>" js.movenext loop '生成JS文件 foolcat = "" + foolcat + "" foolcat = "document.write('" & foolcat & "')" FolderPath = Server.MapPath("./") Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(FolderPath&"top10.js") fout.WriteLine foolcat '关闭连接 fout.close set fout = nothing js.close set js = nothing conn.close set conn=nothing %>

　　推荐阅读

　　冒泡算法的三种JavaScript表示

以前学习冒泡算法，总是弄不清楚n和n-1等一些变量的关系，原因是没有弄明白它的真正含义，今天写了一个冒泡算法的JS小程序，终于弄明白了。复制代码 代码如下:var R1=new Array(); R1[1]=35; R1[2]=55; R1[3]=65; >>>详细阅读

本文标题：用ASP+FSO生成JS文件

地址：http://www.17bianji.com/kaifa2/ASP/32948.html

 1/2    1