asp新闻系统的上一篇下一篇功能如何实现?

简单一点可以用数据集的分页来实现
sql= "select * from nesw"
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
rs.PageSize = 10
'rs.PageSize = 10设置分页的记录数现在是10条记录分一页，一条一页的话就把rs.PageSize设置为1就ok了，还有这是一个要接受参数的页面所以要在页面上面写上接受的参数（页数，数据库中数据记录的id）

'后面是页面传递参数的处理防止在表单中输入的参数不正确而导致页面出现异常错误
If Len(Request("page")) = 0 Then '如果为空
iPage = 1
Elseif Not IsNumeric(Request("page")) Then '如果不是数字
page=CInt(Asc(Request("page")))
If page < 1 Then
iPage=1
ElseIf page > CInt(rs.PageCount) Then
iPage=CInt(rs.PageCount)
else
ipage=page
End If
Else '如果是数字
page=Cint(Request("page"))
if page > CInt(rs.PageCount) Then
ipage=rs.pagecount
elseif page<1 then
ipage=1
else
ipage=page
end if'是不是数字
End if'有没有参数
'页面参数传递处理完毕

'中间就是你要显示的新闻的内容

'下面是出现的超链接：上一页 下一页 第一页 最后一页 ====
'页脚上的超连接的控制部分