怎么回事，老大

     :)

你可以使用ADODB.RecordSet的MoveNext方法比ID进行加减要好得多
request.QueryString("ID")这个是你的新闻编号？

request.QueryString("ID")
是我的，
要加什么代码呢、

<%
'获得上一条新闻
function getPreviousNews(rs,id)
   '循环确定新闻在所有记录中的位置
   Do Until rs.Eof
      If rs("id")=id Then
         Exit Do
      End IF
      rs.MoveNext
   Loop
   IF rs.EOf Then
      '如果没有找到返回上一条没有了
      getPreviousNews="<font color=red>·上一条：</font>已经没有了<BR> "
   Else
      '找到后开始获得上一条
      rs.MovePrevious'让记录集向上移动一条记录
      IF rs.BOF Then
         '如果上一条不存在
         getPreviousNews="<font color=red>·上一条：</font>已经没有了<BR> "  
      Else
         '如果存在显示上一条
         getPreviousNews="<font color=red>·上一条：</font><a href=""showdm.asp?id=" & rs("id") & """>" & rs("title") & "</a><BR>"
      End IF         
   End IF
End Function

'获得下一条新闻
function getNextNews(rs,id)
   Do Until rs.Eof
      If rs("id")=id Then
         Exit Do
      End IF
      rs.MoveNext  
   Loop
   IF rs.EOf Then
      getPreviousNews="<font color=red>·下一条：</font>已经没有了<BR> "  
   Else
      rs.MoveNext'数据库记录集向下移动一条记录
      IF rs.EOF Then'判断下一条是否存在
         getPreviousNews="<font color=red>·下一条：</font>已经没有了<BR> "   
      Else
         getPreviousNews="<font color=red>·下一条：</font><a href=""showdm.asp?id=" & rs("id") & """>" & rs("title") & "</a><BR>"
      End IF         
   End IF  
End Function

'调用代码   
Dim tSql

'创建记录集(注:使用此方法必须这样创建记录集，否则有可能出错误）
set RelationArt = server.createobject("adodb.recordset")
tSql="select id,title from article order by date desc"'调用SQL语句获得数据库的所有新闻。
RelationArt.Open tSql,con,1,3

'调用函数获得上一条
Response.Write getPreviousNews(RelationArt,request.querystring("id"))
RelationArt.MoveFirst'移动记录集到第一条(很关键)   
'调用函数获得下一条
Response.Write getNextNews(RelationArt,request.querystring("id"))
RelationArt.close   
Set RelationArt=Nothing   
%>

3q3q