复制代码代码如下: <!-#include file = "conn.asp"->
-
setjs = server.createObject ("adodb.recordset"))
sql = "selecttop10*fromarticleorderbyiddesc"
setjs = conn.execute (SQL)
dowhilenotjs.eof
title = js ("title")
เพิ่ม = js ("เพิ่ม")
foolcat = foolcat+"<li> <ahref =" "/" & js ("id") & ". htm" ">" & title & "" & เพิ่ม & "</a> </li> <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 = ไม่มีอะไร
js.close
setjs = ไม่มีอะไร
conn.close
setConn = ไม่มีอะไร
-