奶头一吃一个摸一个就硬,国产成人在线观看亚洲

　ASP文章系統(tǒng)的解決方案

作者：波波洛　時間： 2003-09-11　文檔類型：原創(chuàng)　來自：藍色理想

　　首先感謝V37斑竹對我的幫助，這個方案解決了顯示“上一篇下一篇”和相關文章的問題，貼出來讓大家分享。
　　以前看到一個帖子講用ID+1和ID-1的辦法判斷“上一篇下一篇”，在用的過程中發(fā)現(xiàn)一個問題：當刪除數(shù)據(jù)庫中的一篇文章時，就會造成ID不連續(xù)，如果用ID+1和ID-1來判斷就會出現(xiàn)找不到記錄的問題，在這個程序里，通過查詢大于當前ID的第一條記錄來找出下一篇的ID，查詢小于當前ID的第一條記錄來找出上一篇的ID，這樣就算ID不連續(xù)也可以正常顯示了。
　　至于相關文章的顯示則是在數(shù)據(jù)表里添加一個boardid字段來區(qū)分不同的文章欄目，在每次添加一篇新文章時加上boardid號就可以了，顯示一篇文章時根據(jù)boardid來查詢數(shù)據(jù)庫就能顯示出相關文章。
　　數(shù)據(jù)表articles中的字段有id,boardid,title,content,author,addtime。

代碼拷貝框

<!--程序開始-->
`定義一個thenext函數(shù)來找出下一篇的ID，如果當前記錄已經(jīng)是最后一條記錄，則輸出文字“沒有了”
<% 
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函數(shù)來找出下一篇的ID，如果當前記錄已經(jīng)是最前面的一條記錄，則輸出文字“沒有了”
<% 
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
%>
`數(shù)據(jù)庫連接文件
<!--#include file="conn.asp"-->
`取得傳遞過來的ID，顯示文章標題作者和內(nèi)容
<% 
id=request("id") 
sql="select * from articles where id="&id
set rs=conn.execute(sql)
%>
<% boardid=rs("boardid") %>
<title>文章系統(tǒng)-<% =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"><!--將數(shù)據(jù)庫的資料取出，經(jīng)過編碼后輸出，保持輸入時的格式不變--><%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td>
</tr>
<% a1=rs("id") %>
<tr> 
<td width="269" align="right"><!--調(diào)用前面定義的顯示上一篇的函數(shù)--><% thehead %></td>
<td width="257" align="right"><!--調(diào)用前面定義的顯示下一篇的函數(shù)--><% thenext %></td>
</tr>
<% rs.MoveNext%>
<%Loop%>
</table></td>
<td width="217" valign="top" align="left">相關文章： 
`根據(jù)當前文章的欄目號，找出同一欄目的文章 
<% 
    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>
<!--程序結束-->

[Ctrl+A 全部選擇然后拷貝]

文字水平不行，有說的不好或不對的地方請大家不吝指正。

出處：藍色理想
責任編輯：藍色

◎進入論壇網(wǎng)絡編程版塊參加討論

相關文章

更多相關鏈接

[ASP]利用 xmlhttp 分塊上傳文件

ASP 中健壯的頁結構的異常處理

改進 ASP 的字符串處理性能

ASP 指南

ASP編程入門進階

作者文章

ASP文章系統(tǒng)的解決方案


關鍵字搜索	常規(guī)搜索	推薦文檔
熱門搜索：CSS Fireworks 設計比賽網(wǎng)頁制作 web標準用戶體驗 UE photoshop Dreamweaver Studio8 Flash 手繪 CG

站點最新

站點最新列表

周大�！熬�•自然”設計大賽開啟

國際體驗設計大會7月將在京舉行

中國國防科技信息中心標志征集

云計算如何讓安全問題可控

云計算是多數(shù)企業(yè)唯一擁抱互聯(lián)網(wǎng)的機會

阿里行云

云手機年終巨獻，送禮標配299起

阿里巴巴CTO王堅的"云和互聯(lián)網(wǎng)觀"

1499元買真八核云OS雙蛋大促

首屆COCO桌面手機主題設計大賽

欄目最新

欄目最新列表

淺談JavaScript編程語言的編碼規(guī)范

如何在illustrator中繪制臺歷

Ps簡單繪制一個可愛的鉛筆圖標

數(shù)據(jù)同步算法研究

用ps作簡單的作品展示頁面

CSS定位機制之一:普通流

25個最佳最閃亮的Eclipse開發(fā)項目

Illustrator中制作針線縫制文字效果

Photoshop制作印刷凹凸字體

VS2010中創(chuàng)建自定義SQL Rule

中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx