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 



文章来自: 本站原创
引用通告地址: http://www.is21.cn/trackback.asp?tbID=541
Tags:
评论: 0 | 引用: 0 | 查看次数: 1675
发表评论
你没有权限发表留言!