Question

ASP VB网页如何制作新闻查询的上一条与下一条 请高手指点一二

在这个页面中主要是新闻内容的显示，可是想要让它显示一个上一条新闻标题，与下一条闻题，然后点击可以进入到相应的新闻内容中去查看。
还是不能实现，帮我看看这段代码吧，谢谢了
<%
sql="select top 1 from News order by NewsId asc where 编号="& request("编号")& NewsId>"rs("NewsId")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

%>
我在那个页面中这里面的查询有问题，我不知道如何解决了，就是 sql="select top 1 from News order by NewsId asc where 编号="& request("编号")& NewsId>"rs("NewsId")" 这句话，运行出来总显示语句没有结束，希望大家帮帮忙，我实在不知道如何了

Answer 1

上一篇：
<%
sql="select top 1 id,title from pic where id>"&rs("id")&" order by id asc"
set rsx=server.CreateObject("adodb.recordset")
rsx.open sql,conn,1,1
if rsx.recordcount=0 then
response.Write("没有了")
else
response.Write("<a href=新闻链接>新闻标题</a>")
end if
rsx.close
set rsx=nothing
%>
  
下一篇：
<%
sql="select top 1 id,title from pic where id<"&rs("id")&" order by id desc"
set rsx=server.CreateObject("adodb.recordset")
rsx.open sql,conn,1,1
if rsx.recordcount=0 then
response.Write("没有了")
else
response.Write("<a href=新闻链接>新闻标题</a>")
end if
rsx.close
set rsx=nothing
%>

Answer 2

select top 1 id,title from pic where id>"&rs("id")&" order by id asc
其中的"&rs("id")&" 是获得本新闻的ID
id>"&rs("id")&" order by id asc
就是id比本新闻大的第一条新闻 也就是获得了下一条新闻的信息
这是查询下一第新闻的，如果是查上一第，则正好相反，用
id<"&rs("id")&" order by id desc 注意是倒序的，意思就是比本新闻ID小的最大的ID，就是上一条新闻信息

Answer 3

楼主其实是两个问题:
针对上,下条翻页及新闻点击进入详细显示页面.
<%
sql="select top 1 from News order by NewsId asc where 编号="& request("编号")& NewsId>"rs("NewsId")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
'若实现上一条,下一条翻页效果,在楼主原有代码基本上,接续如下
'===================================
rs.pagesize=10
page=clng(request("page"))
if page=""or page<1 then page=1
if page>rs.pagecount then rs.pagecount=page
if not page=1 then rs.move (page-1)*rs.pagesize
for i=1 to rs.pagesize and not rs.eof
%>

<a href=新闻详细显示页面.asp?x=<%=rs("字段名自动编号")%>><%=rs("字段名称")%></a>

<%
rs.movenext
next
...
%>
<%if page-1>0 then%>
<a href="?page=<%=page-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%if page+1<=rs.pagecount then%>
<a href="?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>

'===================================
备注:记得在新闻详细显示页面接收所传递的参数名x
<%
m=request("x")
sql="select * from News where 字段名自动编号="m""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

>