複製代碼代碼如下：<！ - ＃includefile =“ conn.asp” - >
<％
setjs = server.createobject（“ adodb.recordset”）
sql =“ selecttop10*fromarticleOrderByidDesc”
setjs = conn.execute（sql）
dowhilenotjs.eof
title = js（“標題”）
addate = js（“ addate”）
foolcat = foolcat+“ <li> <ahref =”“/”＆js（“ id”）＆“。htm”>“”＆title＆“＆”＆addate＆“＆” </a> </a> </li> <br> <br> <br>
js.movenext
環形
'生成js文件
foolcat =“”+foolcat+“”
foolcat =“ 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 =沒有
conn.close
setConn =沒有
％>