<%
set cnn=server.createobject("adodb.connection")
strcnn=.... '这里是你的数据库的路径
cnn.open strcnn
sqlstr="select title from artilce order by posttime desc"
set rs=cnn.execute(sqlstr)
i=10
if not rs.eof then
do while not rs.eof and i>0
response.write rs("title")&"
"
rs.movenext
i=i-1
loop
end if
cnn.close
set cnn=nothing
%>