ASP怎么修改这段代码，让多个新闻标题在下面的表格显示，不让显示在一个表格里

<!--#include file="conn.asp"-->
<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sql="select * from news order by title desc"
rs.open sql,conn,3,3
rs.pagesize=5            '定义一页显示的记录数目
tatalrecord=rs.recordcount  '获取记录总数目
tatalpages=rs.pagecount     '获取分页的数目
rs.movefirst
nowpage=request("page")   '用request获取当前页数，注意page是自己定义的变量并非函数
if nowpage&"x"="x" then   '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage)   '将页码转换成数字型
end if
rs.absolutepage=nowpage    '将指针移动到当前显示页的第一条记录
%>
<html>
<head>
<title>新闻查看</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<div align="center">查看新闻</div>
<div align="right">
<%
if session("Membername") ="" then
%>
<a href="huiyuan.asp">会员登陆</a>&nbsp;&nbsp;&nbsp;<a href="zhuceHY.asp">注册</a>
<%else%>
<%=session("Membername")%>&nbsp;&nbsp;&nbsp;<a href="zhuxiao.asp">注销</a>
<%end if%>
</div>
<table width="100%" border="1" cellspacing="0" bordercolor="#0099CC">
  
  <tr>
    <td width="24%" height="30" align="center" bgcolor="#E0DFE3">新闻标题</td>
    <td width="25%" align="center" bgcolor="#E0DFE3">新闻内容</td>
    <td width="27%" align="center" bgcolor="#E0DFE3">发布人</td>
    <td width="24%" align="center" bgcolor="#E0DFE3">发布日时间</td>
  </tr> 
   <tr>
     <td height="30" align="center"><a href="NewsContent.asp?id=<%=rs("id")%>">
      <%
n=1
while not rs.eof and n<=rs.pagesize 
if len(rs.Fields.Item("title").Value)>10then
response.Write left(rs.Fields.Item("title").Value,10)&"......"
else
response.Write rs.Fields.Item("title").Value
end if 
n=n+1
rs.movenext                        '显示页面的数据
wend
%>
     </a></td>
     <td></td>
     <td align="center"></td>
     <td></td>
   </tr>
</table>
<div>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
  <%if nowpage>1 then%>
  <a href="index.asp?page=<%=nowpage-1%>">上一页</a>
  <%else%>
  上一页
  <%end if%>
  <%for k=1 to tatalpages%>
  <%if k<>nowpage then %>
  <a href="index.asp?page=<%=k%>"><%=k%></a>
  <%else%>
  <%=k%>
  <%end if%>
  <%next%>
  <%if nowpage < tatalpages then%>
  <a href="index.asp?page=<%=nowpage+1%>">下一页</a>
  <%else%>
  下一页
  <%end if%>
  <%if nowpage<>1 then%>
  <a href="index.asp?page=<%=1%>"> 首页</a>
  <%else%>
  首页
  <%end if%>
  <%if nowpage<>tatalpages then %>
  <a href="index.asp?page=<%=tatalpages%>">末页</a>
  <%else%>
  末页
  <%end if%>
</div>
</body>
</html>

解决方案 »

  1.   

    标题是都在一个TD里不是在一个表格，你应该以行循环
        <%
    n=1
    while not rs.eof and n<=rs.pagesize  
      %>
      <tr>
      <td height="30" align="center" colspan="4"><a href="NewsContent.asp?id=<%=rs("id")%>">
     <%
    if len(rs.Fields.Item("title").Value)>10then
    response.Write left(rs.Fields.Item("title").Value,10)&"......"
    else
    response.Write rs.Fields.Item("title").Value
    end if  
    n=n+1%>
      </a></td>
      
      </tr>
      <%
      rs.movenext '显示页面的数据
    wend
      %>