用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 
%>