上一篇,下一篇过程代码

技术  /  管理员 发布于 7年前   215

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 = "
"&rs(1)&"
" 
End If 
GetPre = pre 
End Function 

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 = "
下一篇:"&rs(1)&"
" 
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里

引用上一篇下一篇