Rem==上一篇==
Rem======================================================
Rem= 参数说明:
Rem= pid当前IDprame:栏目前辍(如一般web_news表字段时一般为wn_**prame就代表wn)
Rem= ptable(表前辍如一般表名是:站点名_表名(shenzhe_news) ptable:就代表shenzhe)
Rem= 说明:采用上面命名法可使该过程达到通用
Rem=====================================================
Function GetPre(pidprameptable)
id = prame&"_id"
title = prame&"_title"
table = "city_"&ptable
url = "show_"&ptable
sql = "SELECT TOP "&id&""&title&" FROM "&table&" WHERE "&id&"<"&pid&" ORDER BY "&id&" DESC"
set rs = ConnExecute(sql)
If rseof or rsbof Then
pre = "上一篇:没有新闻了"
Else
pre = "<a href="&url&"asp?"&id&"="&rs()&">"&rs()&"</a>"
End If
GetPre = pre
End Function
Rem = 下一篇
Rem=============
Rem= 参数函意和上过程一样
Rem==========
Function GetNext(nidnramentable)
id = nrame&"_id"
title = nrame&"_title"
table = "city_"&ntable
url = "show_"&ntable
sql = "SELECT TOP "&id&""&title&" FROM "&table&" WHERE "&id&">"&nid&" ORDER BY "&id&" "
set rs = ConnExecute(sql)
If rseof or rsbof Then
nnext = "下一篇:没有新闻了"
Else
nnext = "<a href="&url&"asp?"&id&"="&rs()&">下一篇:"& rs()&"</a>"
End If
GetNext = nnext
End Function
实现代码:
偶数据库里有表:
city_active city_date city_note
city_active主要字段有: ca_idcd_title
city_date主要字段有: cd_idcd_title
city_note主要字段有: cn_id cn_title
这样引用就可:
在show_noteasp?cn_id=里引用上一篇下一篇
<%=GetPre(cn_id"cn""note")%> 上一篇
<%=GetNext(cn_id"cn""note")%> 下一篇
