上一篇,下一篇过程代码

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

FunctionGetPre(pid,prame,ptable)
id=prame&_id
title=prame&_title
table=city_&ptable
url=show_&ptable
sql=SelectTOP1&id&,&title&FROM&table&Where&id&<&pid&orDERBY&id&DESC
setrs=Conn.Execute(sql)
Ifrs.eoforrs.bofThen
pre=上一篇:没有新闻了
Else
pre=<ahref=&url&.asp?&id&=&rs(0)&>&rs(1)&</a>
EndIf
GetPre=pre
EndFunction

Rem=下一篇
Rem=============
Rem=参数函意和上过程一样
Rem==========
FunctionGetNext(nid,nrame,ntable)
id=nrame&_id
title=nrame&_title
table=city_&ntable
url=show_&ntable
sql=SelectTOP1&id&,&title&FROM&table&Where&id&>&nid&orDERBY&id&
setrs=Conn.Execute(sql)
Ifrs.eoforrs.bofThen
nnext=下一篇:没有新闻了
Else
nnext=<ahref=&url&.asp?&id&=&rs(0)&>下一篇:&rs(1)&</a>
EndIf
GetNext=nnext
EndFunction

实现代码:
偶数据库里有表:
city_activecity_datecity_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)%>下一篇