〈%
‘上一篇
Function pre_pagetable,a1,title,linkpage)
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from "&table&" where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
art_title0=headrs(title)
response.Write("<a href=‘"&linkpage&"?id="&a0&"‘>"+art_title0+"</a>")
end if
End Function
‘下一篇
Function next_page(table,a1,title,linkpage)
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from "&table&" where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
art_title2=newrs(title)
response.Write("<a href=‘"&linkpage&"?id="&a2&"‘>"+art_title2+"</a>")
end if
End Function
%〉

在显示文章页调用
 <%a1=rs("id")%>
        <tr>
          <td>上一条：<% Call pre_page("nh_news",a1,"ne_title","news_show.asp")%></td>
        </tr>
        <tr>
          <td>下一条：<% Call next_page("nh_news",a1,"ne_title","news_show.asp")%></td>
        </tr>