ASP 当前记录上一条下一条的另种方法
以前每次都是通过排序(点击查看)来解决,今天无意从网上发现这样更为简单:
程序代码
相关信息:ASP 当前记录上一条下一条的常规方法

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
取上一条记录
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 当前记录上一条下一条的常规方法