首先感謝V37斑竹對我的幫助，這個方案解決了顯示“上一篇下一篇”和相關文章的問題，貼出來讓大家分享。
以前看到一個帖子講用ID+1和ID-1的辦法判斷“上一篇下一篇”，在用的過程中發現一個問題：當刪除數據庫中的一篇文章時，就會造成ID不連續，如果用ID+1和ID-1來判斷就會出現找不到記錄的問題，在這個程序裡，通過查詢大於當前ID的第一條記錄來找出下一篇的ID，查詢小於當前ID的第一條記錄來找出上一篇的ID，這樣就算ID不連續也可以正常顯示了。
至於相關文章的顯示則是在數據表裡添加一個boardid字段來區分不同的文章欄目，在每次添加一篇新文章時加上boardid號就可以了，顯示一篇文章時根據boardid來查詢數據庫就能顯示出相關文章。
數據表articles中的字段有id,boardid,title,content,author,addtime
複製代碼代碼如下:
<!--程序開始-->
'定義一個thenext函數來找出下一篇的ID，如果當前記錄已經是最後一條記錄，則輸出文字“沒有了”
<%
functionthenext
newrs=server.CreateObject("adodb.recordset")
sql="selecttop1*fromarticleswhereid>"&a1&"orderbyid"
setnewrs=conn.execute(sql)
ifnewrs.eofthen
response.Write("沒有了")
else
a2=newrs("id")
response.Write("<ahref='view.asp?id="&a2&"'>下一篇</a>")
endif
endfunction
%>
'定義一個thehead函數來找出下一篇的ID，如果當前記錄已經是最前面的一條記錄，則輸出文字“沒有了”
<%
functionthehead
headrs=server.CreateObject("adodb.recordset")
sql="selecttop1*fromarticleswhereid<"&a1&"orderbyiddesc"
setheadrs=conn.execute(sql)
ifheadrs.eofthen
response.Write("沒有了")
else
a0=headrs("id")
response.Write("<ahref='view.asp?id="&a0&"'>上一篇</a>")
endif
endfunction
%>
'數據庫連接文件
<!--#includefile="conn.asp"-->
'取得傳遞過來的ID，顯示文章標題作者和內容
<%
id=request("id")
sql="select*fromarticleswhereid="&id
setrs=conn.execute(sql)
%>
<%boardid=rs("boardid")%>
<title>文章系統-<%=rs("title")%></title><bodyleftmargin="0"topmargin="0">
<!--#includefile="top.asp"-->
<%
DoWhileNotrs.EOF
%>
<tablewidth="773"border="0"cellspacing="0"cellpadding="0"align="center">
<tr>
<tdwidth="576"align="left">
<tablewidth="557"border="0"cellspacing="5"cellpadding="4"align="left">