<%
pid1=rs("id")
function Getpre
sql="select top 1 * from news where id>"&pid1&" order by id"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.Write("没有新闻了")
else
pid2=rs("id")
response.Write("<a href='shownews.asp?id="&pid2&"'>"&rs("title")&"</a>")
end if
end function

function Getnext
sql="select top 1 * from news where id<"&pid1&" order by id desc"
set rs=conn.execute(sql)
if rs.eof then
response.Write("没有新闻了")
else
pid3=rs("id")
response.Write("<a href='shownews.asp?id="&pid3&"'>"&rs("title")&"</a>")
end if
end function
%>

没有显示,没有错误提示

<%rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&request("id")-1
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
%>
                    <span class="STYLE10">上篇文章:</span>已经没有了
                    <%else%>
                    <br>
                    <span class="STYLE10">上篇文章:</span><a href="shownews.asp?id=<%=rs("id")%>"><%=rs("title")%></a>
                    <%end if%>
                    <BR>
                    <% rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&request("id")+1
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
 %>
                    <span class="STYLE10">下篇文章:</span>已经没有了
                    <%else%>
                    <span class="STYLE10">下篇文章:</span><a href="shownews.asp?id=<%=rs("id")%>"><%=rs("title")%></a>
                    <%end if%>

[[italic] 本帖最后由 angerzl 于 2007-12-21 09:47 编辑 [/italic]]