复制代码代码如下: <!-#includefile = "conn.asp"->
<%
setjs = server.createObject ("adodb.recordset")
sql = "selectTop10*fromArticleOrderByidDesc"
setjs = conn.execute (sql)
dowhilenotjs.eof
title = js ("title")
addate = js ("Addate")
pourtcat = pourtcat+"<li> <ahref =" "/" & js ("id") & ". htm" ">" & with & "" & addate & "</a> </li> <br>"
Js.movenext
петля
'生成 JS 文件
portlcat = ""+poolcat+""
pourtcat = "document.write ('" & foolcat & "')"
FOLDERPATH = server.mappath ("./")
Setfso = server.createObject ("scripting.filesystemobject")
SetFout = fso.createTextFile (folderPath & "/top10.js")
fout.writelinefoolcat
'关闭连接
fout.close
setFout = ничего
Js.close
setjs = ничего
Conn.close
setConn = ничего
%>