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")%> ' 下一篇