ASP文章系统解决方案实现上一页下一页第1/2页(2)

<table width="557" border="0" cellspacing="5" cellpadding="4" align="left">
        <tr> 
          <td colspan="2" align="center"><span style="font-size:9pt color:#efefef"><%= rs("title") %><br>
            <div align="right"><span style="font-size:9pt color:#efefef">作者：<%= rs("author") %></span></div>
            </span></td>
        </tr>
        <tr> 
          <td colspan="2" ><span style="font-size:9pt color:#efefef"><!--将数据库的资料取出，经过编码后输出，保持输入时的格式不变--><%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td>
        </tr>
<% a1=rs("id") %>
        <tr> 
          <td width="269" align="right"><!--调用前面定义的显示上一篇的函数--><% thehead %></td>
          <td width="257" align="right"><!--调用前面定义的显示下一篇的函数--><%  thenext %></td>
        </tr>
        <% rs.MoveNext%>
        <%Loop%>
      </table></td>
    <td width="217"  valign="top" align="left">相关文章： 
'根据当前文章的栏目号，找出同一栏目的文章    
<% 
    sql="select * from articles where boardid="&boardid&"" 
    set rs=conn.execute(sql)
    %> 
    <%
    Do While Not rs.EOF
    %>
    <table width="207" border="0" cellspacing="2" cellpadding="2">
  <tr>
          <td height="20"><a href="view.asp?id=<%=rs("id")%>"><%= rs("title") %></a></td>
  </tr>
</table>
<% rs.MoveNext%>