基于ASP新聞中中上一條下一條記錄實(shí)現(xiàn)的方法

代碼如下

xw 表字段
id 自動(dòng)編號(hào)
xwbt 新聞標(biāo)題

xwnr 新聞內(nèi)容

xwlb_id 對(duì)應(yīng)新聞?lì)悇eID

tjsj     錄入時(shí)間


代碼如下：

<%
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是同一個(gè),但是rs的id是上面顯示新聞的ID,因?yàn)檫@個(gè)上一條和下一條都在新聞下面嗎,呵呵
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
%>