复制代码代码如下: <! - # includeFile = "Conn.asp" ->
<%
setjs = server.createObject ("adodb.recordSet")
sql = "selecttop10 * fromarticleOrderByidDesc"
setjs = conn.excute (sql)
dowhilenotjs.eof
Titre = JS ("Title")
addate = js ("addate")
Foolcat = Foolcat + "<li> <href =" "/" & js ("id") & ". htm" ">" & title & "" & addate & "</a> </li> <br>"
JS
boucle
'生成 JS 文件
Foolcat = "" + Foolcat + ""
Footcat = "Document.Write ('" & Footcat & "')"
Folderpath = server.mappath ("./")
Setfso = server.createObject ("scripting.filesystemObject")
Setfout = fso.createtextfile (FolderPath & "/ top10.js")
fout.writelinefoolcat
'关闭连接
fout.close
setfout = rien
Js.Close
setjs = rien
Conn.Close
setConn = rien
%>