新微赢技术网

标题: 上一篇.下一篇连接问题. [打印本页]

作者: 毅歌 时间: 2010-1-10 04:11
标题: 上一篇.下一篇连接问题.
一般情况下,在看某网站文章的时候,在文章的最下面都会列出上一篇和下一篇的连接.并写出了那两篇的文章名称.很想知道.这是怎么实现的呢???有空的话,说下那步骤和那代码啊`~感谢万分啊~

作者: 大天使路西法 时间: 2010-1-10 04:11
第一页|上一页|下一页|最后一页
!--#include file="Function/conn.inc"-->

<%
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">

</style>
<SCRIPT language=JavaScript>
function Cbg(obj, objColor)
{
obj.style.backgroundColor=objColor
}
</SCRIPT>
</head>
<body>

<table width="100%"  border="0" cellpadding="0" cellspacing="0">
  <tr>
<td width="6%" rowspan="2" valign="top" bgcolor="#460000"> </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"> 文章分类</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;">  <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"> 最近更新文章</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">  <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"> 热门排行</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">  <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"> 文章列表</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">  <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">  <%=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; ">|<<</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; "><<</font></a></td>
  <%Else %>
<td width=30 align=center bgcolor="#700303" class=links>|<<</td>
<td width=30 align=center bgcolor="#700303" class=links><<</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; ">>></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; ">>>|</font></a></td>
<%Else %>
<td width=30 align=center bgcolor="#700303" class=links>>></td>
<td width=30 align=center bgcolor="#700303" class=links>>>|</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"> </td>
  </tr>
  <tr>
<td height="80" align="center" valign="middle" bgcolor="#460000" class="JJ"><%=copyright%></td>
  </tr>
</table>
</body>
</html>

作者: 我為ぷぃ情醉 时间: 2010-1-10 04:11
让我来告诉你怎么做的
例子：
当前查看的新闻是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
各执行各的明白了么

作者: 30岁就改变 时间: 2010-1-10 04:11
你不要答非所问啊,难道我上面写的不够清楚还是你看得不清楚呢?那里写着要写出上一篇和下一篇的连接名称,这是要从数据库那读取的.

这是样式来的~

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

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

作者: lala 时间: 2010-1-10 04:11
他这不还是分页技术么　　把上面代码的连接给改下就行了

作者: 况天佑 时间: 2010-1-10 04:11
获取当前页面的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")

作者: 龙龙 时间: 2010-1-10 04:11
如果同时有几个编辑在添加新闻,结果导致同一条新闻的ID号不相连,那你的办法就没有用了

作者: 惠儿雨点 时间: 2010-1-10 04:11
cnly兄弟,他说的是同一篇新闻,

作者: 亾莣乁靈柩 时间: 2010-1-10 04:11

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)