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
