<!--#include file="conn.asp"-->  <%  set js = server.CreateObject("ADODB.RecordSet")  sql="select top 10 * from article order by id desc"  set js = conn.Execute (Sql)  do while not js.eof      title=js("title")  addate=js("addate")  foolcat = foolcat + "<li><a href=""/"& js("id")&".htm"">" &title&" "&addate&"</a></li><br>"   js.movenext  loop  '生成JS文件  foolcat = "" + foolcat + ""  foolcat = "document.write('" & foolcat & "')"  FolderPath = Server.MapPath("./")  Set fso = Server.CreateObject("Scripting.FileSystemObject")  Set fout = fso.CreateTextFile(FolderPath&"\top10.js")  fout.WriteLine foolcat  '关闭连接  fout.close  set fout = nothing  js.close  set js = nothing  conn.close  set conn=nothing  %>