"上一篇""目录""下一篇"在ASP代码中如何写?

Question

在我的新闻分类中分了两类,每一类中的每一条新闻的具体内容都在一个页面中展示请问如何不混着出现上一篇下一篇还有目录(一个分类一个)?

Answer 1

简单介绍方法：

数据表articles中有id（文章ID）、title（文章标题）、content（文章内容）、addtime（文章发布时间）等其它各相关字段。

<!--数据库连接文件-->

<!--#include file="conn.asp"-->

<%

`定义一个nextrs函数来找出下一篇的ID

function nextrs

nextrsd=server.CreateObject("adodb.recordset")

sql="select top 1 * from articles where id>"&a1&" order by id"

set nextrsd=conn.execute(sql)

if nextrsd.eof then

response.Write "下一篇：这是本分类下的最后一篇文章"

else

a2=nextrsd("id")

response.Write "下一篇：<a href='article.asp?id="&a2&"'>"&nextrsd("title")&"</a>"

end if

end function

`定义一个backrs函数来找出上一篇的ID

function backrs

backrsd=server.CreateObject("adodb.recordset")

sql="select top 1 * from articles where id<"&a1&" order by id desc"

set backrsd=conn.execute(sql)

if backrsd.eof then

response.Write "上一篇：这是本分类下的第一篇文章"

else

a0=backrsd("id")

response.Write "上一篇：<a href='article.asp?id="&a0&"'>"&backrsd("title")&"</a>"

end if

end function

`取得传递过来的文章ID

ID=request("id")

sql="select * from articles where id="&id

set rs=conn.execute(sql)

a1=rs("id")

%>

<!--显示文章内容..............................-->

<!--调用前面定义的显示上一篇文章的函数--><% backrs %><br>

<!--调用前面定义的显示下一篇文章的函数--><% nextrs %>

<!--程序结束-->

今天项目中用到这个功能，起初没有什么思路，想通之后其实很简单。

<!--#include file="conn.asp"-->

<%

bigCate = Request("bigCate")

smallCate = Request("smallCate")

newsid = Request("id")

%>

<%

......

文章内容

......

%>

程序代码

<%

if bigCate="产品介绍" or bigCate="工程案例" then

%>

<table width="95%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="center" height="25">

<%

headrs=server.CreateObject("adodb.recordset")

sql="select top 1 * from new where new_stype='"&smallcate&"' and new_id<"&newsid&" order by new_id desc"

set headrs=conn.execute(sql)

if headrs.eof then

response.Write("没有了")

else

a0=headrs("new_id")

response.Write("<a href='news_show.asp?bigCate="&bigcate&"&smallCate="&smallcate&"&id="&a0&"'>上一张</a>")

end if

%></td>

<td align="center" height="25">

<%

endrs=server.CreateObject("adodb.recordset")

sqls="select top 1 * from new where new_stype='"&smallcate&"' and new_id>"&newsid&" order by new_id desc"

set endrs=conn.execute(sqls)

if endrs.eof then

response.Write("没有了")

else

a00=endrs("new_id")

response.Write("<a href='news_show.asp?bigCate="&bigcate&"&smallCate="&smallcate&"&id="&a00&"'>下一张</a>")

end if

%></td>

</tr>

</table>

<%end if%>

---------================================================================================

把这段代码插入到你要放上一页下一页的地方就可以了，但是你的文章是倒着存入数据库的，所以下一篇其实是上一篇，如果你就是故意这样弄的，那你把两个字符串对调一下就行了

<script type="text/javascript">
var href = location.href;
var nid = parseInt(href.split("?")[1].split("=")[1],10);
var links = "<a href=\""+href.split("?")[0] + "?id="+(nid-1)+"\">上一篇</a>       <a href=\""+href.split("?")[0] + "?id="+(nid+1)+"\">下一篇</a>";
document.write(links);
</script>

<3>

<%
'arti_show.asp的原来内容

function prev1()
sql = "SELECT TOP 1 id from CommonSite_articles WHERE id<'"&cls_id&"' ORDER BY id desc"
set rs1 = Conn.Execute(sql)
if rs1.bof or rs1.eof then
prev1="无新闻"
else
prev1="<a href="&"arti_show.asp?cls_id="&rs1("id")&">上一篇</a>"
end if
end function
function next1()
sql = "SELECT TOP 1 id from CommonSite_articles WHERE id>"&cls_id&" ORDER BY id"
set rs1 = Conn.Execute(sql)
if rs1.bof or rs1.eof then
next1="无新闻"
else
next1="<a href="&"arti_show.asp?cls_id="&rs1("id")&">下一篇</a>"
end if
end function
%>

<!--用下面的调用：写在新闻下方-->
<%=prev1()%>
<%=next1()%>

\\\\\\\\\\\\\\\\\-------------------------=============================================

以前看到一个帖子讲用ID+1和ID-1的办法判断“上一篇下一篇”，
在用的过程中发现一个问题：当删除数据库中的一篇文章时，就会造成ID不连续，
如果用ID+1和ID-1来判断就会出现找不到记录的问题，在这个程序里，
通过查询大于当前ID的第一条记录来找出下一篇的ID，
查询小于当前ID的第一条记录来找出上一篇的ID，这样就算ID不连续也可以正常显示了。
至于相关文章的显示则是在数据表里添加一个boardid字段来区分不同的文章栏目，
在每次添加一篇新文章时加上boardid号就可以了，
显示一篇文章时根据boardid来查询数据库就能显示出相关文章。
数据表articles中的字段有id,boardid,title,content,author,addtime。

因为信息拦截，里面的关键词用空格隔开了。在使用的时候修改一下。
<!--程序开始-->
'定义一个thenext函数来找出下一篇的ID，如果当前记录已经是最后一条记录，则输出文字“没有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="s elect 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="s elect 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
%>
'数据库连接文件
<!--#include file="conn.asp"-->
'取得传递过来的ID，显示文章标题作者和内容
<%
id=request("id")
sql="s elect * from articles where id="&id
set rs=conn.execute(sql)
%>
<%
boardid=rs("boardid")
%>
<title>文章系统-<% =rs("title") %></title>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<%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="s elect * 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>
<!--#include file="copyright.asp" -->
</body>
<!--程序结束-->

Answer 2

搞不太明白你的意思。如果你想实现的是同一个分类里面的 上一篇 和下一篇 文章的效果。那么你就判断比当前记录要 小 和 大的数据就行。直接判断id（自动编号）；这里要判断是否到达了数据库的尾部。

Answer 3

你用sql语句控制下不就可以了 在新闻展示页面 你把新闻分类 的Id 新闻的Id 都传过去 在上一篇 下一篇 上 判断下 就可以了

Answer 4

strsql="select top 1 * from 表名 where id>" & id & " order by id asc"
strsql="select top 1 * from 表名 where id<" & id & " order by id desc"