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
