<%
  strcon = "DSN=wqj;UID=admin;PWD=admin"
  set conn= Server.CreateObject("ADODB.Connection")
  con.ConnectionTimeout=15
  con.CommandTimeout=10
  con.Open strcon
set rs=Server.CREATEOBJECT("ADODB.Recordset")
sql="select top 8* from news order by addtime desc,id desc"
rs.open sql,conn,3,3
rscount =rs.recordcount
if rscount <=0 Then
  Response.Write("目前没有新闻!")
  Else
  while("not rs.eof")
  %>
  <tr>
  <td width="76%" height="27" align="left" bgcolor="d6dff7">
  <%=rs("title")%>(<%=rs("addtime")%>)</td>
 <td width="13%" height="27" align="left" bgcolor="d6dff7">
   <a href="newsmodi.asp? id=<%=rs("id")%>">修改</a></td>
   <td width="11%" height="27" align="left" bgcolor="d6dff7">
   <a href="newsdel.asp? id=<%=rs("id")%>">删除</a></td>
   </tr>
   <%
   rs.movenext
   wend
   end if
   rs.close
   con.close