在文章下面加代码链接到上一篇和下一篇，还得显示文章的名字

Answer 1

<%'判断上一条
Set Rs_R=Server.CreateObject("ADODB.RecordSet")
sql_R="Select top 1 * From [news] where id <"&nid&" order by id desc"
Rs_R.open sql_R,conn,1,1
if not Rs_R.eof then
response.Write("<a href=""shownews.asp?id="&Rs_R("id")&""">上一篇:"&Rs_R("title")&" </a>")
else
response.Write(" ")
end if
Rs_R.Close()
Set Rs_R = Nothing
'判断下一条
Set Rs_N=Server.CreateObject("ADODB.RecordSet")
sql_N="Select top 1 * From [news] where id >"&nid&" order by id asc"
Rs_N.open sql_N,conn,1,1
if not Rs_N.eof then
response.Write("<a href=""shownews.asp?id="&Rs_N("id")&""">下一篇:"&Rs_N("title")&" </a>")
else
response.Write(" ")
end if
Rs_N.Close()
Set Rs_N = Nothing%>