代碼如下:

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