复制代码代码如下: <!-#includeFile = "conn.asp"->
<%
setjs = server.createObject ("adodb.recordset")
sql = "selectTop10*fromAnticleReDByIdDesc"
setjs = conn.execute (SQL)
dowhilenotjs.eof
Titel = JS ("Titel")
Addate = js ("Addate")
foolcat = foolcat+"<li> <aRef =" "/" & js ("id") & "htm" ">" & title & "" & addate & "</a> </li> <br>"
Js.Movenext
Schleife
'生成 js 文件
foolcat = ""+foolcat+"" "
foolcat = "document.write ('" & foolcat & "')"
OrdnerPath = Server.Mappath ("./")
Setfso = server.createObject ("scripting.filesystemObject")
Setfout = fso.createTextFile (OrdnerPath & "/top10.js"))
Fout.WriteLineFoolcat
'关闭连接
fout.close
setfout = nichts
Js.CLOSE
setjs = nichts
conn.close
setConn = nichts
%>