cxinwen1.asp

是一种自动化办公软件

<!--#include file="conn.asp"-->
<table width="777" height="121" border="1" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="7" align="center"><span class="STYLE5">新闻中心</span></td>
  </tr>
  <tr>
    <td width="141" align="center">标题</td>
    <td width="141" align="center" valign="middle">作者</td>
    <td width="142" align="center">部门</td>
    <td width="108" align="center">内容</td>
    <td width="161" align="center" valign="middle">发表时间</td>
  </tr>
  <%
  dim rs
  dim sql
  set rs=server.CreateObject("ADODB.RECORDSET")
  sql="select * from news "
  rs.open sql,conn,1,1

  while not rs.eof
  
  
  %>
  <tr>
    <td><div align="center"><%=rs("Title")%></div></td>
    <td><div align="center"><%=rs("zuozhe")%></div></td>
    <td><div align="center"><%=rs("bumen")%></div></td>
    <td><div align="center"><%=rs("neirong")%></div></td>
    <td><div align="center"><%=rs("time")%></div></td>
  </tr>
  <%
  rs.movenext
  wend
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  %>
</table>