ASP生成JS文件

用ASP+FSO生成JS文件
<!–#include file=”conn.asp”–>
<%
set js = server.Cr&#101;ateObject(“ADODB.RecordSet”)
sql=”sel&#101;ct top 10 * from article o&#114;der by id desc”
set js = conn.Execute (Sql)
do while not js.eof
title=js(“title”)
addate=js(“addate”)
goaler = goaler + “<li><a href=””/”&amp; js(“id”)&amp;”.htm””>” &amp;title&amp;” “&amp;addate&amp;”</a></li><br>”
js.movenext
loop
‘生成JS文件
goaler = “” + goaler + “”
goaler = “document.write(‘” &amp; goaler &amp; “‘)”
FolderPath = Server.MapPath(“./”)
Set fso = Server.Cr&#101;ateObject(“Scripting.FileSystemObject”)
Set fout = fso.Cr&#101;ateTextFile(FolderPath&amp;” op10.js”)
fout.WriteLine goaler
‘关闭连接
fout.close
set fout = nothing
js.close
set js = nothing
conn.close
set conn=nothing
%>