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

function Getnext
sql="select top 1 * from news where id<"&pid1&" order by n_id desc"
set rs=conn.execute(sql)
if rs.eof then
response.Write("没有新闻了")
else
pid3=rs("n_id")
response.Write("<a href='news.asp?id="&pid3&"'>"&rs("n_title")&"</a>")
end if
end function
%>
上一篇：<% Getpre %>
下一篇：<% Getnext %>
access数据库列表为

实现效果为

文章列表就是不出来，有高手帮助一下的吗

function改成sub

还是不可以的哦，
都是老样子
我找了好久了，都找不到方法

搞定了，代码如下，如果有需要的，可以照一下，
<%
id=request("id")
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where n_id="&request("id")-1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<b>上一篇:</b>已经没有了
<%else%>
<b>上一篇:</b><a href="news.asp?id=<%=rs("n_id")%>"><%=rs("n_title")%></a>
<%end if%>
<%
id=request("id")
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where n_id="&request("id")+1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<b>下一篇:</b>已经没有了
<%else%>
&nbsp;&nbsp;&nbsp;<b>下一篇:</b><a href="news.asp?id=<%=rs("n_id")%>"><%=rs("n_title")%></a>
<%end if%>

实现例子番禺创美装饰：http://www.