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

您可能感興趣的文章: