| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 946 人关注过本帖
标题:求助朋友,如何在现有的新闻程序中加上一页及下一页(新闻名)
只看楼主 加入收藏
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
怎么回事,老大
2009-10-23 18:43
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
     :)
2009-10-24 18:49
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
你可以使用ADODB.RecordSet的MoveNext方法比ID进行加减要好得多
request.QueryString("ID")这个是你的新闻编号?
2009-10-25 11:32
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
回复 13楼 yms123
request.QueryString("ID")
是我的,
要加什么代码呢、
2009-10-25 19:45
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:20 
<%
'获得上一条新闻
function getPreviousNews(rs,id)
   '循环确定新闻在所有记录中的位置
   Do Until rs.Eof
      If rs("id")=id Then
         Exit Do
      End IF
      rs.MoveNext
   Loop
   IF rs.EOf Then
      '如果没有找到返回上一条没有了
      getPreviousNews="<font color=red>·上一条:</font>已经没有了<BR> "
   Else
      '找到后开始获得上一条
      rs.MovePrevious'让记录集向上移动一条记录
      IF rs.BOF Then
         '如果上一条不存在
         getPreviousNews="<font color=red>·上一条:</font>已经没有了<BR> "  
      Else
         '如果存在显示上一条
         getPreviousNews="<font color=red>·上一条:</font><a href=""showdm.asp?id=" & rs("id") & """>" & rs("title") & "</a><BR>"
      End IF         
   End IF
End Function

'获得下一条新闻
function getNextNews(rs,id)
   Do Until rs.Eof
      If rs("id")=id Then
         Exit Do
      End IF
      rs.MoveNext  
   Loop
   IF rs.EOf Then
      getPreviousNews="<font color=red>·下一条:</font>已经没有了<BR> "  
   Else
      rs.MoveNext'数据库记录集向下移动一条记录
      IF rs.EOF Then'判断下一条是否存在
         getPreviousNews="<font color=red>·下一条:</font>已经没有了<BR> "   
      Else
         getPreviousNews="<font color=red>·下一条:</font><a href=""showdm.asp?id=" & rs("id") & """>" & rs("title") & "</a><BR>"
      End IF         
   End IF  
End Function

'调用代码   
Dim tSql

'创建记录集(注:使用此方法必须这样创建记录集,否则有可能出错误)
set RelationArt = server.createobject("adodb.recordset")
tSql="select id,title from article order by date desc"'调用SQL语句获得数据库的所有新闻。
RelationArt.Open tSql,con,1,3

'调用函数获得上一条
Response.Write getPreviousNews(RelationArt,request.querystring("id"))
RelationArt.MoveFirst'移动记录集到第一条(很关键)   
'调用函数获得下一条
Response.Write getNextNews(RelationArt,request.querystring("id"))
RelationArt.close   
Set RelationArt=Nothing   
%>
2009-10-26 17:02
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
3q3q
2009-10-26 19:56
快速回复:求助朋友,如何在现有的新闻程序中加上一页及下一页(新闻名)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026993 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved