天枫庄资源网 Design By www.wosibo.com

复制代码 代码如下:
Rem==上一篇== 
Rem================================================================ 
Rem= 参数说明: 
Rem= pid当前ID,prame:栏目前辍(如一般web_news表,字段时一般为wn_**,prame就代表wn) 
Rem= ptable(表前辍.如一般表名是:站点名_表名(shenzhe_news) ptable:就代表shenzhe) 
Rem= 说明:采用上面命名法,可使该过程达到通用 
Rem============================================================= 

Function GetPre(pid,prame,ptable) 
    id = prame&"_id" 
title = prame&"_title" 
table = "city_"&ptable 
url = "show_"&ptable 
sql = "Select TOP 1 "&id&","&title&" FROM "&table&" Where "&id&"<"&pid&" orDER BY "&id&" DESC" 
set rs = Conn.Execute(sql) 
If rs.eof or rs.bof Then 
     pre = "上一篇:没有新闻了" 
Else 
     pre = "<a href="&url&".asp?"&id&"="&rs(0)&">"&rs(1)&"</a>" 
End If 
GetPre = pre 
End Function 

Rem = 下一篇 
Rem============= 
Rem= 参数函意和上过程一样 
Rem========== 
Function GetNext(nid,nrame,ntable) 
    id = nrame&"_id" 
title = nrame&"_title" 
table = "city_"&ntable 
url = "show_"&ntable 
sql = "Select TOP 1 "&id&","&title&" FROM "&table&" Where "&id&">"&nid&" orDER BY "&id&" " 
set rs = Conn.Execute(sql) 
If rs.eof or rs.bof Then 
     nnext = "下一篇:没有新闻了" 
Else 
     nnext = "<a href="&url&".asp?"&id&"="&rs(0)&">下一篇:"&rs(1)&"</a>" 
End If 
GetNext = nnext 
End Function 

实现代码: 
偶数据库里有表: 
city_active  city_date  city_note 
city_active主要字段有: ca_id,cd_title 
city_date主要字段有: cd_id,cd_title 
city_note主要字段有: cn_id, cn_title 

这样引用就可: 
在show_note.asp?cn_id=4里引用上一篇下一篇 
<%=GetPre(cn_id,"cn","note")%> ' 上一篇 
<%=GetNext(cn_id,"cn","note")%> ' 下一篇 

标签:
上一篇,下一篇过程代码

天枫庄资源网 Design By www.wosibo.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
天枫庄资源网 Design By www.wosibo.com

评论“上一篇,下一篇过程代码”

暂无上一篇,下一篇过程代码的评论...

P70系列延期,华为新旗舰将在下月发布

3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。

而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?

根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。