复制代码代码如下: <!-#includeFile = "conn.asp"->
<%
setjs = server.createObject ("ADODB.Recordset")
SQL = "SELECTTOP10*FromarticleOrderByidDesc"
setjs = conn.execute (SQL)
dowhilenotjs.eof
Title = JS ("Título")
addate = js ("addate")
foolcat = foolcat+"<li> <ahref =" "/" & js ("id") & ". htm" ">" & title & "" & addate & "</a> </li> <br>"
js.movenext
bucle
'生成 JS 文件
Foolcat = ""+Foolcat+""
foolcat = "document.write ('" & Foolcat & "')"
FolderPath = server.mappath ("./")
Setfso = server.createObject ("scripting.filesystemObject")
Setfout = fso.createTextFile (FolderPath & "/top10.js")
fout.writelinefoolcat
'关闭连接
Fout.clar
setfout = nada
js.lose
setjs = nada
Conn.clar
setConn = nada
%>