基于ASP企业网站建设中上一条下一条记录如何实
发布日期:2019-11-05 18:01   浏览次数:
基于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 %> 本文来源:
« 上一篇:上一篇:网站建设与维护测试6
» 下一篇:下一篇:网站建设需要哪些材料?
Copyright ©2020 Power by DedeCms