基于ASP企业网站建设中上一条下一条记录如何实现呢
在这里主要应用在企业网站新闻和产品展示的详细页面
经测试完整正确通过!
基于 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 %> 本文来源:
