设为首页收藏本站
开启辅助访问 切换到宽版

新微赢技术网

 找回密码
 注册
快捷导航
搜索
热搜: 回贴
新微赢技术网»论坛 › 学习网 知识堂 › WEB开发 › ASP › 上一篇.下一篇连接问题.
返回列表 发新帖
查看: 122|回复: 9
打印 上一主题 下一主题

上一篇.下一篇连接问题.

[复制链接]
毅歌
跳转到指定楼层
1#
发表于 2010-1-10 04:11:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
一般情况下,在看某网站文章的时候,在文章的最下面都会列出上一篇和下一篇的连接.并写出了那两篇的文章名称.很想知道.这是怎么实现的呢???有空的话,说下那步骤和那代码啊`~感谢万分啊~
回复

使用道具 举报

2#
发表于 2010-1-10 04:11:07 | 只看该作者
第一页|上一页|下一页|最后一页
!--#include file="Function/conn.inc"-->
<!--#include file="Function/Function.asp"-->
<%
   sql="select * from GOCOL_system"
   rs.open sql,conn,1,1
   Web_Name=rs("Web_Name")
   Http=rs("Http")
   Admin_Email=rs("Admin_Email")
   Web_Logo=rs("Web_Logo")
   metakey=rs("metakey")
   Page_Exit=rs("Page_Exit")
   metades=rs("metades")
   copyright=rs("copyright")
   rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="<%=metakey%>">
<meta name="Description" content="<%=metades%>">
<%=Page_Exit%>
<title><%=Web_Name%></title>
<link href="inc/css.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/javascript" src="js/openpopups.js"></script>
<style type="text/css">
<!--
body,td,th {
    color: #cccccc;
}
body {
    background-color: #820405;
}
a:link {
    color: #CCCCCC;
    text-decoration: none;
}
a:visited {
    text-decoration: none;
    color: #CCCCCC;
}
a:hover {
    text-decoration: underline;
    color: #666666;
}
a:active {
    text-decoration: none;
    color: #CCCCCC;
}
.links {
    border: 1px solid #000000;
}
-->
</style>
<SCRIPT language=JavaScript>
function Cbg(obj, objColor)
{
obj.style.backgroundColor=objColor
}
</SCRIPT>
</head>
<body>
<!--#include file="top.asp"-->
<table width="100%"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="6%" rowspan="2" valign="top" bgcolor="#460000">&nbsp;</td>
    <td width="88%" height="500" align="center" valign="top" bgcolor="#820405"><table width="98%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="250" valign="top"><table width="250" border="1" cellpadding="0" cellspacing="0" bordercolor="#460000" style="border-collapse:collapse; margin-top:10px;">
          <tr>
            <td height="30" align="left" valign="middle" bgcolor="#700303">&nbsp;文章分类</td>
          </tr>
          <tr>
            <td height="111"  align="center" valign="top">
    <%
        sql="select * from gocol_news_types order by num"
        rs.open sql,conn,1,1
        do while not rs.eof         
    %>
            <div align="left" style="margin-left:10; margin-top:10px;">&nbsp;&nbsp;<a href="Blog.asp?class=<%=rs("id")%>"><%=rs("types")%>
<%
        m_SQL = "SELECT Count(*) FROM news where classid="&rs("id")
        Set rst = conn.Execute(m_SQL)
        Response.write ("（"&rst(0)&"）")
        rst.Close
    %></a></div>
            <%
    rs.movenext
    loop
    rs.close
    %>   
        <br>    </td>
          </tr>
        </table><br> <table width="250" border="1" cellpadding="0" cellspacing="0" bordercolor="#460000" style="border-collapse:collapse; margin-top:10px;">
          <tr>
            <td height="30" align="left" valign="middle" bgcolor="#700303">&nbsp;最近更新文章</td>
          </tr>
         
                    <%
        sql="select top 10 * from news where 1=1"
        classid=request.QueryString("class")
   if not isNumeric(classid) then
      response.write "非法操作！已被禁止！"
      response.End()
end if        
if classid<>"" then
        sql=sql&" and classid="&classid
        end if
        sql=sql&" order by id desc"
    rs.open sql,conn,1,1
    i=1
    do while not rs.eof and i < 10
    %>
                    <tr onMouseOver="Cbg(this, '#aa0000')" onMouseOut="Cbg(this, '#820405')">
                      <td height="24" align="left" valign="middle">&nbsp;&nbsp;<a href="Blogred.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><font color="#CCCCCC"><%=Code(rs("title"),30)%></font></a></td>
                    </tr>
                    <%  rs.moveNEXT
                    i=i+1
    loop
    rs.close
    %>                    
               
        </table>
        <table width="250" border="1" cellpadding="0" cellspacing="0" bordercolor="#460000" style="border-collapse:collapse; margin-top:10px;">
          <tr>
            <td height="30" align="left" valign="middle" bgcolor="#700303">&nbsp;热门排行</td>
          </tr>
         
                <%
        sql="select top 10 * from news where 1=1"
                classid=request.QueryString("class")

   if not isNumeric(classid) then
      response.write "非法操作！已被禁止！"
      response.End()
end if        
    if classid<>"" then
        sql=sql&" and classid="&classid
        end if
        sql=sql&" order by hits desc"
    rs.open sql,conn,1,1
    i=1
    do while not rs.eof and i < 10
    %>
                <tr onMouseOver="Cbg(this, '#aa0000')" onMouseOut="Cbg(this, '#820405')">
                  <td height="24" align="left" valign="middle">&nbsp;&nbsp;<a href="Blogred.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><font color="#CCCCCC"><%=Code(rs("title"),28)%></font></a></td>
                </tr>
                <%  rs.moveNEXT
                i=i+1
    loop
    rs.close
    %>
            
        </table>    </td>
        <td valign="top">
        <table width="98%" border="1" align="right" cellpadding="0" cellspacing="0" bordercolor="#460000" style="border-collapse:collapse; margin-top:10px;">
          <tr>
            <td height="30" align="left" valign="middle" bgcolor="#700303">&nbsp;文章列表</td>
          </tr>
          <tr>
            <td height="700"  align="center" valign="top"><table width="100%" frame=below border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#460000" style="border-collapse:collapse;">
            <%
        sql="select * from news where 1=1"
        classid=request.QueryString("class")
           if not isNumeric(classid) then
      response.write "非法操作！已被禁止！"
      response.End()
end if   
        
        if classid<>"" then
        sql=sql&" and classid="&classid
        likurl="&class="&classid
        end if
        sql=sql&" order by id desc"
    rs.open sql,conn,1,1
  if rs.eof or rs.bof then
   else %>
        <% rs.pagesize=30 %>
        <% if request("page")="" then
  page=1
  else
  page=CLng(request("page"))
  end if
  %>
        <%
   IF page<1 Then
    page=1
    end if
    If page>rs.pagecount Then
    page=rs.pagecount
   rs.absolutepage=page
   end if
    %>
        <%
    rs.absolutepage=cint(page)%>
        <% for ipage=1 to rs.pagesize
        %>
            <tr onMouseOver="Cbg(this, '#aa0000')" onMouseOut="Cbg(this, '<%=bg%>')">
              <td width="25" height="24" align="center" valign="middle"><img src="images/jiantou.gif" width="9" height="9" align="absmiddle"></td>
              <td height="24" align="left">&nbsp;&nbsp;<a href="Blogred.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><font color="#CCCCCC"><%=rs("title")%></font></a></td>
               <td width="90" height="24" align="left" valign="middle">&nbsp;&nbsp;<%=rs("time")%></td>
              <td width="50" height="24" align="center" valign="middle"><%=rs("hits")%></td>
            </tr>
<%  rs.moveNEXT
IF rs.EOF Then
      Exit For
   End If
   next
end if
   %>
        </table>
        <%if page >=1 then%>
        <table border="0" align="center" cellpadding="0" cellspacing="2" bordercolor="#000000" style="margin-top:10px; margin-bottom:10px; ">
        <tr bgcolor="#700303">
          <%
  '翻页控制代码
  IF page<>1 Then
  %>
   <td width="30" height="20" align="center" valign="middle" bgcolor="#700303" class="links"><a href="Blog.asp?page=1<%=likurl%>" title="第一页"><font color="#000000" style="text-decoration:none; ">|&lt;&lt;</font></a></td>
   <td width="30" height="20" align="center" valign="middle" bgcolor="#700303" class="links"><a href="Blog.asp?page=<%=page-1%><%=likurl%>" title="上一页"><font color="#000000" style="text-decoration:none; ">&lt;&lt;</font></a></td>
  <%Else %>
    <td width=30 align=center bgcolor="#700303" class=links>|&lt;&lt;</td>
<td width=30 align=center bgcolor="#700303" class=links>&lt;&lt;</td>
  <% End IF
    if page<> 1 then
     for i=4 to 1 Step -1
     for s=1 to 4
      if (page-i)<=0 then
      i=i-1
     end if
     next
%>
   <td width="30" height="20" align="center" valign="middle" bgcolor="#700303" class="links"><a href="Blog.asp?page=<%=page-i%><%=likurl%>"><font color="#000000" style="text-decoration:none; "><%=page-i%></font></a></td>
<%
next
end if
%>
    <td width="30" height="20" align="center" valign="middle" bgcolor="#aa0000" class="links"><a href="Blog.asp?page=<%=page%><%=likurl%>"><font color="#ffffff" style="text-decoration:none; "><strong><%=page%></strong></font></a></td>
<%
   for i=1 to 4
     if (page+i)>rs.pagecount then
  exit for
  end if
%>
   <td width="30" height="20" align="center" valign="middle" bgcolor="#700303" class="links"><a href="Blog.asp?page=<%=page+i%><%=likurl%>"><font color="#000000" style="text-decoration:none; "><%=page+i%></font></a></td>
<%
next
%>  <%IF page<>rs.pagecount then%>
   <td width="30" height="20" align="center" valign="middle" bgcolor="#700303" class="links"><a href="Blog.asp?page=<%=page+1%><%=likurl%>" title="下一页"><font color="#000000" style="text-decoration:none; ">&gt;&gt;</font></a></td>
   <td width="30" height="20" align="center" valign="middle" bgcolor="#700303" class="links"><a href="Blog.asp?page=<%=rs.pagecount%><%=likurl%>" title="最后一页"><font color="#000000" style="text-decoration:none; ">&gt;&gt;|</font></a></td>
   <%Else %>
    <td width=30 align=center bgcolor="#700303" class=links>&gt;&gt;</td>
<td width=30 align=center bgcolor="#700303" class=links>&gt;&gt;|</td>
   <%End IF
  %>
</tr>
      </table>
      <%end if%>        </td>
          </tr>
        </table></td>
      </tr>
    </table>
      <br />
        <br>
</td>
    <td width="6%" rowspan="2" valign="top" bgcolor="#460000">&nbsp;</td>
  </tr>
  <tr>
    <td height="80" align="center" valign="middle" bgcolor="#460000" class="JJ"><%=copyright%></td>
  </tr>
</table>
</body>
</html>
回复 支持 反对

使用道具 举报

3#
发表于 2010-1-10 04:11:13 | 只看该作者
让我来告诉你 怎么做的
例子：
当前 查看的新闻是id=10的 参数是id好了
那么 下一页 要重新 写语句 sql="select top 1 * from news where id >"&id&" order by id asc"  id=11
上一页  要重新 写语句 sql="select top 1 * from news where id <"&id&" order by id desc"     id=9
各执行各的 明白了么
回复 支持 反对

使用道具 举报

4#
发表于 2010-1-10 04:11:17 | 只看该作者
你不要答非所问啊,难道我上面写的不够清楚还是你看得不清楚呢?那里写着要写出上一篇和下一篇的连接名称,这是要从数据库那读取的.

这是样式来的~

上一篇：解决Windows Vista中IE 7.0自动关闭问题
下一篇：安装Vista SP1后遇到声音问题的解决方法
回复 支持 反对

使用道具 举报

5#
发表于 2010-1-10 04:11:21 | 只看该作者
你们理解错了,我刚开始接触ASP的时候也遇到这个问题,但是最后还是自己想办法解决掉了,楼主的意思是新闻内容写入HTML页面里,同一新闻的分页问题,是静态页,不是动态
楼主建议写代码时要灵活运用,
方法一:新闻每一页,对应的HTML地址都写入数据库,可以直接从数据库读取.
方法二:生成静态页的时候给HTML地址做手脚,比如一个新闻生成20080606.html,第二页完全可以生成20080606_2.html,这样你可以在生成HTML页的时候写上<a href="Repalce(rs("地址"),".html","_2.html")">下一页</a>
以上代码都是简单说了一些,是我自己想的笨方法,如果谁有高明方法请给予指点,帮助新人,人人有责
回复 支持 反对

使用道具 举报

lala
6#
发表于 2010-1-10 04:11:26 | 只看该作者
他这不还是分页技术么　　把上面代码的连接给改下就行了
回复 支持 反对

使用道具 举报

7#
发表于 2010-1-10 04:11:30 | 只看该作者
获取当前页面的id
Dim id
id=Request.QueryString("id")
Set Rs=Conn.Execute("Select top 1 * from [table] where id>"&id&"")

同理

Set Rs=Conn.Execute("Select top 1 * from [table] where id<"&id&" order by id desc")
回复 支持 反对

使用道具 举报

龙龙
8#
发表于 2010-1-10 04:11:34 | 只看该作者
如果同时有几个编辑在添加新闻,结果导致同一条新闻的ID号不相连,那你的办法就没有用了
回复 支持 反对

使用道具 举报

9#
发表于 2010-1-10 04:11:38 | 只看该作者
cnly兄弟,他说的是同一篇新闻,
回复 支持 反对

使用道具 举报

10#
发表于 2010-1-10 04:11:46 | 只看该作者
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-18 14:55 , Processed in 0.109707 second(s), 9 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表