复制代码代码如下: <!-#includeFile = "conn.asp"->
<%
setjs = server.createObject ("adodb.recordset")
sql = "selecttop10*fromarticleOrderByIddesc"
setjs = conn.execute (sql)
dowhilenotjs.eof
judul = js ("judul")
addate = js ("addate")
foolcat = foolcat+"<li> <ahref =" "/" & js ("id") & ". htm" ">" & title & "" & addate & "</a> </li> <br>"
Js.Movenext
lingkaran
'生成 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 = tidak ada
JS.Close
setjs = tidak ada
Conn.Close
setConn = tidak ada
%>