Generate JS files with ASP+FSO

复制代码代码如下:<!--#includefile="conn.asp"-->

<%

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

%>