Question

asp,新闻页面在文章页面下面的“上一篇”与“下一篇”的代码是什么？

很多网站的文章下面有上一篇：XXXXXX下一篇：XXXXXX，在asp上用什么代码实现？
比如我的文章标题字段是<%=trim(rs("newsname"))%>
需要全的代码如果上一篇或下一篇结束了显示：没有上一篇 或者 没有一下篇

Answer 1

给你个例子，我直接贴过来的哦。

   <%
    Set rs=server.CreateObject("adodb.recordset")
    sql="select * from tablewhere feedback=0 order by id desc"
    rs.open sql,conn,1,1   
 if Not(rs.bof and rs.eof) then     '判别数据表中是否为空记录
   NumRecord=rs.recordcount
   rs.pagesize=14
   NumPage=rs.Pagecount
   if request("page")=empty then 
   NoncePage=1
  else
  if Cint(request("page"))<1 then
   NoncePage=1
  else
   NoncePage=request("page")
  end if
  if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
 end if
else
 NumRecord=0
 NumPage=0
 NoncePage=0
 end if
%>
<div class="Two_Text_right">
          <div class="Two_ggxx">
             <div class="ggxx_bt ggxx_bt_font1">公共信息</div>
             <div class="ggxx_table">
              <table width="100%" border="1">
                  <tr  class="ggxx_table_bt">
                    <td  align=center width="30px">编号</td>
                    <td   align=center width="200px">信息标题</td>
                    <td  align=center  width="60px">发布人</td>
                    <td align=center   width="100px">发布时间</td>
                    <td  align=center  width="50px">点击</td>
                  </tr>
                 
     <%if Not(rs.bof and rs.eof) then
 rs.move (Cint(NoncePage)-1)*14,1
 for i=1 to rs.pagesize%>
<tr onMouseMove=this.style.background="#fff9f9" onMouseOut=this.style.background="" style="cursor:hand">
<td  ><%=i%></td>
<td class="ggxx_tr_left"><a href="ShowMessage.asp?Mesid=<%=rs("id")%>"  style="text-decoration:none;" title="<%=rs("title")%>"><%If Len(rs("title"))<=20 then%><%=rs("title")%><%else%><%=Left(rs("title"),20)%>...</a><%End if%></td>
<td><%=GetName(rs("expman"))%></td>
 <td><%=Year(rs("Expdate"))%>-<%=month(rs("Expdate"))%>-<%=day(rs("Expdate"))%></td>
  <td><%=rs("hits")%></td>
</tr>
<%
   rs.movenext
        if rs.eof then exit for
     next
else
 response.write "<tr><td colspan=6><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if 
rs.close
set rs=nothing
   %>
        </table>
                <div class="ggxx_page"><input type="hidden" name="page" value="<%=NoncePage%>">
           <%     if NoncePage>1 then
 response.write "|<a href=?page=1>首 页</a>| |<a href=?page="&NoncePage-1&">上一页</a>|&nbsp"
else
 response.write "|首 页| |上一页|&nbsp"
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
 response.write "|<a href=?page="&NoncePage+1&">下一页</a>| |<a href=?page="&NumPage&">尾 页</a>|"
else
 response.write "|下一页| |尾 页|"
end if
%>
              &nbsp;页次：<font color="#0033CC"><%=NoncePage%></font>/<font color="#0033CC"><%=NumPage%></font> 
              共<font color="#0033CC"><%=NumRecord%></font>条记录</div>
            </div>
            
          </div> 
        </div>

Answer 2

Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open(sql语句),Conn,1,1
rs.MovePrevious
rs("title") ‘上一条信息
rs.MoveNext
rs("title")‘本条信息
rs.MoveNext
rs("title")‘下一条信息

Rs.Close
Set Rs = Nothing

追问

不太明白

追答

试试就明白了

Answer 3

如果要去做上一篇那么我们就需要去找到上一条记录比如我当前的这条新闻id为7那么我上一条新闻的id就该为6并且还要找到这条记录将标题输出在上一遍那个位置sql语句
select top 1 * from tb_news where id<7 order by id desc 这条sql语句就直接取到了id小于7的所有记录并且降序排序取一条那么id等与6这条记录就取出来了 直接输出标题就可以了

如果要去做下一篇那么我们就需要去找到下一条记录比如我当前的这条新闻id为7那么我下一条新闻的id就该为8并且还要找到这条记录将标题输出在下一遍那个位置sql语句
select top 1 * from tb_news where id>7 order by id asc 这条sql语句就直接取到了id大于7的所有记录并且升序排序取一条那么id等与8这条记录就取出来了 直接输出标题就可以了