复制代码代码如下：<！ - ＃includefile = "conn.asp" - >
<％
setjs = server.createObject（ "adodb.recordset"）
sql = "SelectTop10*fromArticleOrderByIdDesc"
setjs = conn.execute（sql）
dowhileenotjs.eof
title = js（ "title"）
addate = js（ "addate"）
faulcat = qualcat+"<li> <ahref =" "/"＆js（ "id"）＆ "。htm" ">"＆ ""＆addate＆ "</a> </li> <br>"
js.movenext
ループ
'生成js文件
faulcat = ""+qualcat+""
qualcat = "document.write（ '"＆foolcat＆ "'）"
folderpath = server.mappath（ "./"）
setFSO = server.createObject（ "Scripting.filesystemObject"）
setFout = fso.createTextFile（folderpath＆ "/top10.js"）
fout.writelinefoolcat
'关闭连接
fout.close
SetFout = Nothing
js.close
setjs = Nothing
conn.close
setConn =何もない
％>