ASP 当前记录上一条下一条的另种方法

DATE: 2016-11-10 / VIEWS: 1125

以前每次都是通过排序(点击查看)来解决,今天无意从网上发现这样更为简单:

程序代码 程序代码
ID=Request("ID") '当前记录ID

取上一条记录

Set Objrs=Conn.Execute("Select Max(ID) From News Where ID<"&ID)
If Not Objrs.Eof Then
MinID=Objrs(0)
Else
MinID=0
End If

取下一条记录

Set Objrs=Conn.Execute("Select Min(ID) From News Where ID>"&ID)
If Not Objrs.Eof Then
MaxID=Objrs(0)
Else
MaxID=0
End If

If MinID=0 Then

Else
Response.write("<a href='?ID=<%=MinID%>'><</a>")
End If

If MaxID=0 Then

Else
Response.write("<a href='?ID=<%=MaxID%>'>></a>")
End If


相关信息:ASP 当前记录上一条下一条的常规方法