程序代码：

  <%
    set rst=server.createObject("adodb.recordset")           '这里是公告
sql="select * from tbl_affiche  order by a_id desc"

 rst.open sql,conn,1,1

 do while not rst.eof
  %>
  <tr>
    <td><%=rst("a_id")%></td>
    <td><%=cutstr(rst("a_title"),22,"...")%></td>    'cutstr是截止字符的函数！
    <td><%=rst("a_intime")%></td>
    <td><a href="admin_affiche_del.asp?id=<%=rst("a_id")%>" target="_blank" onclick="javascript:return confirm('您确定删除此公告吗？')">删除</a>&nbsp; <a href="admin_affiche_modify.asp?act=modify&id=<%=rst("a_id")%>" target="_blank">修改</a></td>
  </tr>
  <%
  rst.movenext
   loop
  rst.close

 set rst=nothing
  %>
</table>
<%
conn.close
set conn=nothing
%>