Question

asp文章上一篇下一篇代码

我的ACCESS里的文章存放表名是news，文章ID名是news_id,现在我想将以下代码套入我的数据存，然而就是不可以（上一篇、正打开的、下一篇都是同一个文章），请问为什么呀，在线待呀。

<%sql="select top 1 title,id from news where id<"&rsnews("id")&" order by id desc"
set rsnews=conn.execute(sql)
if rsnews.eof then
response.write "上一篇文章:没有了"
else
response.write "上一篇文章: <a href=shownews.asp?id="&rsnews("id")&">"&rsnews("title")&"</a>"
end if
sql="select top 1 title,id from news where id>"&rsnews("id")&" order by id"
set rsnews=conn.execute(sql)
if rsnews.eof then
response.write "下一篇文章:没有了"
else
response.write "下一篇文章:<a href=shownews.asp?id="&rsnews("id")&">"&rsnews("title")&"</a>"
end if%>
各位网友，非常感谢你的回答，但有些网友，可能是没看清问题，我问的是上一篇和下一篇的问题，而他们答的是上一页与下一页，这都是不同的嘛，请这些不看问题而去回答问题的人，你们说我怎么办呀，我也不会给分你呀，再说答非所问，这。。。。。。。。。。唉！

Answer 1

<%
sql = "Select * from news order by id desc"
rs.open sql,conn,1,1

if rs.bof and rs.eof then
Call Error()
end if

dim Current_Page,Page_Count,Total_Count,Current_Count,Num,col

if request.QueryString("Current_Page")<>"" then
Current_Page=request.QueryString("Current_Page")
else
Current_Page=1
end if

rs.PageSize = 20 '定义分页记录集每页显示记录数
rs.AbsolutePage = Current_Page 'absolutepage：设置指针指向某页开头
Page_Count=rs.PageCount
Total_Count=rs.RecordCount
Current_Count=rs.PageSize
%>

<%Sub list_Pages()

if Page_Count <= 1 then
exit Sub
end if

if Current_Page = 1 then
%>

首页 上一页

<%else%>

<a href="<%=Request.ServerVariables("script_name")%>?Current_Page=1">首页</a>
<a href="<%=Request.ServerVariables("script_name")%>?Current_Page=<%=Current_Page-1%>">上一页</a>

<%end if%>

<%if Cint(Current_Page) = Cint(Page_Count) then%>

下一页 尾页

<%else%>

<a href="<%=request.ServerVariables("script_name")%>?Current_Page=<%=Current_Page+1%>">下一页</a>
<a href="<%=request.ServerVariables("script_name")%>?Current_Page=<%=Page_Count%>">尾页</a>

<%end if%>

页数:<%=Current_Page%>/<%=Page_Count%>页 <%=Current_Count%>记录/页 总记录数:<%=Total_Count%>条

<%end Sub%>

<%Sub Error()%>

<br><br><center><font color="#FF0000">此类没有信息！</font></center>

<%end Sub%>

Answer 2

用这个:
rs.movenext
将记录指针从当前的位置向下移一行
rs.moveprevious
将记录指针从当前的位置向上移一行
或者简化分页技术:也可进行上一篇下一篇的代码;

Answer 3

<%
'把两条查询语句中的rsnews("id")改为nid，nid是获取的当前文章的ID号。测试通过
sql="select top 1 title,id from news where id<"&nid&" order by id desc"
set rsnews=conn.execute(sql)
if rsnews.eof then
response.write "上一篇文章:没有了"
else
response.write "上一篇文章: <a href=shownews.asp?id="&rsnews("id")&">"&rsnews("title")&"</a>"
end if
sql="select top 1 title,id from news where id>"&nid&" order by id"
set rsnews=conn.execute(sql)
if rsnews.eof then
response.write "下一篇文章:没有了"
else
response.write "下一篇文章:<a href=shownews.asp?id="&rsnews("id")&">"&rsnews("title")&"</a>"
end if
%>

Answer 4

shownews.asp?id=*******

*******应该为新的要显示的值而不是rsnews("id")

Answer 5

你这是分页程序 网上 随便搜索个分页的代码 看看 别人分页是怎么实现的吧