复制代码代码如下:
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")%>'下一篇