新闻搜索 新闻标题 新闻内容

<% t=0 Set rs=Server.CreateObject("ADODB.RecordSet") sql="Select * from News order by id desc" rs.Open sql,conn,1,1 if not Rs.eof then do while not rs.eof t=t+1 %> <% if t>=10 then exit do rs.movenext loop else response.write "" end if rs.close %> 最新新闻 <%= t %> 　" title="<%=rs("title")%>"><%=left(rs("title"),10)%> 尚无收录

热门新闻 <% t=0 Set rs=Server.CreateObject("ADODB.RecordSet") sql="Select * from News order by hits desc" rs.Open sql,conn,1,1 if not Rs.eof then do while not rs.eof t=t+1 %> <% if t>=10 then exit do rs.movenext loop else response.write "" end if rs.close %> 　" title="<%=rs("title")%>"><%=left(rs("title"),10)%> <%=rs("hits")%> 尚无收录