复制代码代码如下: <!-#incluirfile = "Conn.asp"->
<%
setjs = server.createObject ("adodb.recordset")
SQL = "SelectTop10*FromArticeDoverByidDesc"
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
laço
'生成 JS 文件
Foolcat = ""+Foolcat+""
Foolcat = "Document.Write ('" & Foolcat & "')"
PastaPath = server.mappath ("./")
Setfso = server.createObject ("scripting.filesystemobject")
Setfout = fso.createTextFile (FolderPath & "Top10.js")
fout.WriteLineFoolcat
'关闭连接
fout.close
setfout = nada
JS.Close
setJs = nada
Conn.Close
setConn = nada
%>