当网站展示的作品比较多时，加入这个功能有助于提升浏览者的阅览体验，省去了返回值列表再进入的步骤；同时起到一个引导的作用，把浏览者留在了当前网站而不是看完了就关闭窗口，导致客户流失！

此功能适用于文章和产品展示类页面，网络上很多网站，包括很多CMS建站系统都采用了这个功能，所以这是一个比较普遍的功能，代码也比较简单。

'news 是数据表
'sortNum 是字段（排序）
'上一篇--------------------------------------------------------------------------
set prsn=server.CreateObject("Adodb.recordset")
psqln="select top 1 * from [news] where id<"&id&" order by id desc,sortNum"'在news表中查找1条id是小于当前id的数据，并以id的降序与sortNum的升序排列
prsn.open psqln,conn,1,1
If prsn.eof And prsn.bof Then
strNext="没有了！"
Else
PreviousId=prsn("id")
PreviousName=prsn("productsName")
strPrevious="<a href=""show.asp?id="&PreviousId&""" title="""&PreviousName&""">"&PreviousName&"</a>"
End If
prsn.close
set prsn=nothing
'下一篇--------------------------------------------------------------------------
set nrsn=server.CreateObject("Adodb.recordset")
nsqln="select top 1 * from [news] where id>"&id&" order by id,sortNum"'在news表中查找1条id是小于当前id的数据，并以id的升序与sortNum的升序排列
nrsn.open nsqln,conn,1,1
If nrsn.eof And nrsn.bof Then
strNext="没有了！"
Else
NextId=nrsn("id")
NextName=nrsn("productsName")
strNext="<a href=""show.asp?id="&NextId&""" title="""&NextName&""">"&NextName&"</a>"
End If
nrsn.close
set nrsn=nothing
'----------------------------------------------------------------------------

使用：

上一篇：<%=strPrevious%>

下一篇：<%=strNext%>

当初是应客户要求写了这两段代码，其实代码还可以再简化一些，这里就不多操作了。

本文由:深圳腾高广告http://www.tenggao.net/整理发布，转载请说明出处!