> 最新新闻 更多新闻  <% i=0 set rs=server.CreateObject("adodb.recordset") rs.open "select top 6 newsname,adddate,newsid from news order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有新闻！" else do while not rs.eof i=i+1 %> <% if i>=6 then exit do rs.movenext loop end if rs.close set rs=nothing%> <%dim i response.write ""&trim(rs("newsname"))&" " %>