   <%
on error resume next
'option explicit
startime=timer()
db="bbs/data/7ii.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
     <%
		  set rs=server.CreateObject("adodb.recordset")
		  sql="select top 10 * from LeadBBS_Topic order by ID desc"
		  rs.open sql,conn,1,1
		  if rs.eof and rs.bof then
		  response.write "目前还没有新闻！"
		  else
		  do while not rs.eof
		  %>
		  <a href="bbs/Announce/Announce.asp?BoardID=100&ID=1558"><%=rs("Title")%></a>
		  <%rs.movenext
		  loop
		  end if
          %>