基于ASP新闻中中上一条下一条记录实现的方法

代码如下

xw 表字段
id 自动编号
xwbt 新闻标题

xwnr 新闻内容

xwlb_id 对应新闻类别ID

tjsj     录入时间


代码如下：

<%
sql1="select * from xw where xwlb_id="&xwlb_id&" order by tjsj desc" '如果有类别的话,加上where lbid="lbid",最好前面加上,如果lbid<>空,那样是最好了
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,cn,1,3
do while not rs1.eof
if rs1("id") = rs("id") then '这里要注意一下,rs1的ID和rs的ID是同一个,但是rs的id是上面显示新闻的ID,因为这个上一条和下一条都在新闻下面吗,呵呵
exit do
end if
rs1.movenext
loop
%>
              <%rs1.moveprevious%>
              <%
if rs1.bof then
response.write ""
else
%>
            <a href="?id=<%=rs1("id")%>">
              <%set rsokss=server.CreateObject("adodb.recordset")
      rsokss.open"select * From xw where id="&rs1("id"),cn,1,3%>
                上一篇：<%=rs1("xwbt")%></a><br>
            <%
end if
rs1.movenext
rs1.movenext
%>
            <%

if rs1.eof then
response.write ""
else
%>
            <a href="?id=<%=rs1("id")%>">
              <%set rsokss=server.CreateObject("adodb.recordset")
      rsokss.open"select * From xw where id="&rs1("id"),cn,1,3%>
              下一篇：<%=rs1("xwbt")%>
              <%end if%>
            </a>
          <%
rs1.close
set rs1=nothing
%>