ASP文章系統解決方案實現上一頁下一頁第1/2頁

來源:互聯網
上載者:User

首先感謝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,如果目前記錄已經是最後一條記錄,則輸出文字“沒有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("沒有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function
%>
'定義一個thehead函數來找出下一篇的ID,如果目前記錄已經是最前面的一條記錄,則輸出文字“沒有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("沒有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function
%>
'資料庫連接檔案
<!--#include file="conn.asp"-->
'取得傳遞過來的ID,顯示文章標題作者和內容
<%
id=request("id")
sql="select * from articles where id="&id
set rs=conn.execute(sql)
%>
<% boardid=rs("boardid") %>
<title>文章系統-<% =rs("title") %></title><body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<%
Do While Not rs.EOF
%>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="576" align="left">
<table width="557" border="0" cellspacing="5" cellpadding="4" align="left">
<tr>
<td colspan="2" align="center"><span style="font-size:9pt color:#efefef"><%= rs("title") %><br>
<div align="right"><span style="font-size:9pt color:#efefef">作者:<%= rs("author") %></span></div>
</span></td>
</tr>
<tr>
<td colspan="2" ><span style="font-size:9pt color:#efefef"><!--將資料庫的資料取出,經過編碼後輸出,保持輸入時的格式不變--><%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td>
</tr>
<% a1=rs("id") %>
<tr>
<td width="269" align="right"><!--調用前面定義的顯示上一篇的函數--><% thehead %></td>
<td width="257" align="right"><!--調用前面定義的顯示下一篇的函數--><% thenext %></td>
</tr>
<% rs.MoveNext%>
<%Loop%>
</table></td>
<td width="217" valign="top" align="left">相關文章:
'根據當前文章的欄目號,找出同一欄目的文章
<%
sql="select * from articles where boardid="&boardid&""
set rs=conn.execute(sql)
%>
<%
Do While Not rs.EOF
%>
<table width="207" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="20"><a href="view.asp?id=<%=rs("id")%>"><%= rs("title") %></a></td>
</tr>
</table>
<% rs.MoveNext%>
<%Loop%>
</td>
</tr>
</table>
<!--#include file="copyright.asp" -->
</body>
<!--程式結束-->

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.