複製代碼代碼如下:<! - #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 =沒有
%>