用ASP+FSO生成JS文件

<!--#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

　　%>