注册 登录
编程论坛 → ASP技术论坛

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

chenjunyong 发布于 2008-06-04 21:03， 1243 次点击
  一般情况下,在看某网站文章的时候,在文章的最下面都会列出上一篇和下一篇的连接.并写出了那两篇的文章名称.很想知道.这是怎么实现的呢???有空的话,说下那步骤和那代码啊`~感谢万分啊~
16 回复
#2
2007bo2008-06-04 22:19
这应该是分页技术
第一页|上一页|下一页|最后一页
!--#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
chenjunyong2008-06-05 22:14
你不要答非所问啊,难道我上面写的不够清楚还是你看得不清楚呢?那里写着要写出上一篇和下一篇的连接名称,这是要从数据库那读取的.

这是样式来的~

上一篇：解决Windows Vista中IE 7.0自动关闭问题
下一篇：安装Vista SP1后遇到声音问题的解决方法
#4
ilovey42008-06-06 03:31
他这不还是分页技术么　　把上面代码的连接给改下就行了
#5
zhangyao32872008-06-06 08:41
你们理解错了,我刚开始接触ASP的时候也遇到这个问题,但是最后还是自己想办法解决掉了,楼主的意思是新闻内容写入HTML页面里,同一新闻的分页问题,是静态页,不是动态
楼主建议写代码时要灵活运用,
方法一:新闻每一页,对应的HTML地址都写入数据库,可以直接从数据库读取.
方法二:生成静态页的时候给HTML地址做手脚,比如一个新闻生成20080606.html,第二页完全可以生成20080606_2.html,这样你可以在生成HTML页的时候写上<a href="Repalce(rs("地址"),".html","_2.html")">下一页</a>
以上代码都是简单说了一些,是我自己想的笨方法,如果谁有高明方法请给予指点,帮助新人,人人有责
#6
cnly2008-06-06 09:35
获取当前页面的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")
#7
zhangyao32872008-06-06 09:38
回复 6# cnly 的帖子
cnly兄弟,他说的是同一篇新闻,
#8
cnly2008-06-06 10:22
回复 7# zhangyao3287 的帖子
#9
zhangyao32872008-06-06 10:24
回复 8# cnly 的帖子
如果同时有几个编辑在添加新闻,结果导致同一条新闻的ID号不相连,那你的办法就没有用了
#10
flynet2008-06-06 17:28
让我来告诉你 怎么做的
例子：
当前 查看的新闻是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
各执行各的 明白了么
#11
flynet2008-06-06 17:32
回复 5# zhangyao3287 的帖子
你说的不错 但我看 楼主不是要你说的那个
#12
chenjunyong2008-06-10 11:54
我好想死啊,难道是我理解错你们说的意思,还是你们理解错了我的意思.看来还是我的表达能力有限啊..............
#13
hmhz2008-06-10 12:02
呵呵
#14
zhangyao32872008-06-10 13:19
我明白楼主的意思了,很多网站有这样的,比如说  本站
[[it] 本帖最后由 zhangyao3287 于 2008-6-10 13:22 编辑 [/it]]

[[it] 本帖最后由 zhangyao3287 于 2008-6-10 13:23 编辑 [/it]]
#15
chenjunyong2008-06-10 18:50
终于有人明白我说的了,啊~~~~真是知音啊,14楼的.麻烦说下那方法啊~~
#16
sjzfls2008-06-11 08:44
去看看这个帖子把~

http://bbs.

[[it] 本帖最后由 sjzfls 于 2008-6-11 08:46 编辑 [/it]]
#17
chenjunyong2008-06-11 21:14
能说得明白点吗???
1
©2025, BC-CN.NET
电脑版