复制代码 代码如下:<>

<%

setjs=server.CreateObject("ADODB.RecordSet")

sql="selecttop10*fromarticleorderbyiddesc"

setjs=conn.Execute(Sql)

dowhilenotjs.eof

title=js("title")

addate=js("addate")

foolcat=foolcat+"<li><ahref=""/"&js("id")&".htm"">"&title&""&addate&"</a></li><br>"

js.movenext

loop

'生成JS文件

foolcat=""+foolcat+""

foolcat="document.write('"&foolcat&"')"

FolderPath=Server.MapPath("./")

Setfso=Server.CreateObject("Scripting.FileSystemObject")

Setfout=fso.CreateTextFile(FolderPath&"top10.js")

fout.WriteLinefoolcat

'关闭连接

fout.close

setfout=nothing

js.close

setjs=nothing

conn.close

setconn=nothing

%>