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