ktaolun.asp

是一种自动化办公软件

<!--#include file="conn.asp"-->
<table width="952" height="121" border="1" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="7" align="center"><span class="STYLE5">讨论中心</span></td>
  </tr>
  <tr>
    <td width="242" align="center"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;标题</td>
    <td width="154" align="center" valign="middle">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;作者</td>
    <td width="193" align="center" valign="middle">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;部门</td>
	 <td width="295" align="center" valign="middle">发表时间</td>
	
  </tr>
  <%
  dim rs
  dim sql 
  set rs=server.CreateObject("ADODB.RECORDSET")
  sql="select * from taolun"
  rs.open sql,conn,1,1
  
  while not rs.eof
  
  
  %>
  <tr>
    <td><div align="center"><%=rs("title")%></div></td>
    <td><div align="center"><%=rs("author")%></div></td>
    <td><div align="center"><%=rs("select1")%></div></td>
	 <td><div align="center"><%=rs("time")%></div></td>
   
  </tr>
    <tr>
    <td align="center" valign="middle"> 内容</td>
    <td colspan="3" align="left" valign="top"><p><%=rs("content")%></p>
      <p>&nbsp;</p>
      <p>&nbsp;</p></td>
    </tr>
  <%
  rs.movenext
  wend
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  %>
</table>