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

作者:admin 日期:2008-11-27

字体大小: 小中大

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