<!--#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
%>
我要评论
网友评论