<!--
#include&nbs
p;file="conn.asp"-->
<%
set js = server.CreateObject("ADODB.Reco
rdset")
SQL="select top 10 *
From article order by id desc"
set js = conn.Execute (Sql)
do while not js.eof
t
ITle=js("title")
addate=js("addate")
foolcat = foolcat + "<li><a
href=""/"&
amp; 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.File
SystemObject")
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
%>