[无错版]asp上一条记录,下一条记录 功能实现及相关函数 PreOrNext

下一条: select top 1 * from table where ID>NowID order by ID
上一条: select top 1 * from table where ID<NowID order by ID DESC

想不明白，为什么网上那么多都是错的，还被人一遍又一遍的复制，不会个个都是采集高手吧，采的东西多了，根本没时间看他是不是正确的，或者说根本没必要看。

坚持四项基本原则，坚持从群众的利益出发，为人类伟大事业而奋斗。

：）

请大家鼓掌。

鼓过掌的看下边，我给出了一个函数：

'函数名：PreOrNext
'函数功能：实现上一条记录，下一条记录功能
'参数：自动编号id，显示上一条下一条的参数：opt,有两个值 ，"pre"与"next"
'注意：使用时要修改的项：BlogArticle为表名，ID为自动编号

Function PreOrNext(ID, opt)

    Set rsPreOrNext = Server.CreateObject("Adodb.Recordset")
    If opt = "pre" Then sqlPreOrNext = "select * from BlogArticle where ID < " & ID & " order by id desc"
    If opt = "next" Then sqlPreOrNext = "select * from BlogArticle where  ID > " & ID & " order by id"
    rsPreOrNext.Open sqlPreOrNext, conn, 1, 1
    If rsPreOrNext.EOF Then
        PreOrNext = "柳永法首页"
    Else
        PreOrNext = "<a href=infoShow.asp?id="& rsPreOrNext("id")&" target=_blank>" & rsPreOrNext("txtTitle") & "</a>"    
    End If

End Function