'定义一个thenext函数来找出下一篇的ID，如果当前记录已经是最后一条记录，则输出文字“没有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function
%>
'定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function
%>
'数据库连接文件

'取得传递过来的ID，显示文章标题作者和内容
<%
id=request("id")
sql="select * from articles where id="&id
set rs=conn.execute(sql)
%>
<% boardid=rs("boardid") %>
<title>文章系统-<% =rs("title") %></title><body leftmargin="0" topmargin="0">

<%
Do While Not rs.EOF
%>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
<td width="576" align="left">
<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%>
<%Loop%>
    </td>
  </tr>
</table>

</body>

更多的asp实现上一篇下一篇请到论坛查看: http://BBS.TC711.COM

【双击滚屏】【评论】【收藏】【打印】【关闭】来源：互联网日期：2006-12-2