| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 946 人关注过本帖
标题:求助朋友,如何在现有的新闻程序中加上一页及下一页(新闻名)
取消只看楼主 加入收藏
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:11 
求助朋友,如何在现有的新闻程序中加上一页及下一页(新闻名)
undefined

[ 本帖最后由 sunnydesign 于 2009-10-22 18:01 编辑 ]
搜索更多相关主题的帖子: 朋友 
2009-10-22 17:58
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
undefined

[ 本帖最后由 sunnydesign 于 2009-10-22 17:59 编辑 ]
2009-10-22 17:58
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
     
2009-10-22 18:36
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
现在的

function WebContent()
  dim ID
  ID=request.QueryString("ID")
  if ID="" or (not isnumeric(ID)) then
    response.write "<div align='center'>数据读取异常错误</div>"
    exit function
  end if
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from NwebCn_Products where ViewFlag and ID="&ID
  rs.open sql,conn,1,3
  response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  if rs.bof and rs.eof then
    response.write "<tr><td>暂无相关信息</td></tr>"
  else
    if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
      dim BigPicPath
   BigPicPath=HtmlSmallPic(rs("GroupID"),rs("BigPic"),rs("Exclusive"))
     response.write "<tr> <td width='100%' valign='top'><font color='#FF3300'>"&rs("ProductName")&"</font></td>"
    response.write "<tr> <td></td>"  
 
 response.write "<tr><td colspan='2' width='604'>"&rs("Content")&"</td></tr>"
   
 else
      response.write "<tr><td colspan='2'><hr width='100' size='1' noshade='noshade' color='#FF0000'></td></tr>"
    response.write "<tr><td colspan='2'><hr height='30' width='100%' size='1' noshade='noshade' color='#FF0000'><div align='center'><img src='Images/NoRight.jpg'></div></td></tr>"
 end if
 
 
 
    rs("ClickNumber")=rs("ClickNumber")+1
 rs.update     
  end if
  response.write"</table>"
  rs.close
  set rs=nothing
end function
 
 
 
 
网上找的一段  
<%  
set RelationArt = conn.execute("select top 1 id,title from article where id<"&request.querystring("id")&" order by date desc")  
IF RelationArt.eof and relationArt.bof Then  
Response.Write "<font color=red>·上一条:</font>已经没有了<BR> "  
else  
Response.Write "<font color=red>·上一条:</font><a href=""showdm.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"  
end if  
Set RelationArt=Nothing  
set RelationArt = conn.execute("select top 1 id,title from article where id>"&request.querystring("id")&" order by id")  
IF RelationArt.eof and relationArt.bof Then  
Response.Write "<font color=red>·下一条:</font>已经没有了"  
else  
Response.Write "<font color=red>·下一条:</font><a href=""showdm.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
RelationArt.close  
Set RelationArt=Nothing  
%>
 
只显示:
·
上一条:已经没有了
·下一条:已经没有了
 
实际上是有下一条的
好像不适用,显是不是要改什么字段?
 
 
 
麻烦朋友帮我看下,多谢了,
2009-10-22 18:36
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
undefined
2009-10-23 17:26
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
undefined
2009-10-23 17:26
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
undefined
2009-10-23 17:27
sunnydesign
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2009-10-22
收藏
得分:0 
hi 我回复不了,怎么回事,老大,能不能帮改下代码呢,以后有机会可以合作哦~ 多谢啊
undefined
2009-10-23 17:38
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
快速回复:求助朋友,如何在现有的新闻程序中加上一页及下一页(新闻名)
数据加载中...
 
   



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

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