文章系統(tǒng)自動(dòng)與手動(dòng)分頁(yè)方法的實(shí)現(xiàn)

《文章系統(tǒng)自動(dòng)與手動(dòng)分頁(yè)方法的實(shí)現(xiàn)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、文章系統(tǒng)自動(dòng)與手動(dòng)分頁(yè)方法的實(shí)現(xiàn).txt52每個(gè)人都一條拋物線，天賦決定其開(kāi)口，而最高點(diǎn)則需后天的努力。沒(méi)有秋日落葉的飄零，何來(lái)新春綠芽的餓明麗？只有懂得失去，才會(huì)重新?lián)碛?。文章系統(tǒng)分頁(yè)方法的實(shí)現(xiàn)：一、后臺(tái)添加部分加入“文章分頁(yè)方式：1.手動(dòng)分頁(yè)2.自動(dòng)分頁(yè)3.不分頁(yè)”，在數(shù)據(jù)庫(kù)中寫入一個(gè)值以判斷后臺(tái)管理員選擇的分頁(yè)方式。并注明，如果用手動(dòng)分頁(yè)方式，在需要分頁(yè)的地方需插入代碼：“[NextPage]”標(biāo)記，前臺(tái)程序以此標(biāo)記判斷手動(dòng)分頁(yè)部分文章的分頁(yè)顯示方式。范例：1.分頁(yè)方式：

2、wContent"type="radio"value="0"checked> 不分頁(yè)  自動(dòng)  手動(dòng)注意：手動(dòng)方式要輸入“[NextPage]”二、前臺(tái)顯示文章部分，先判斷后臺(tái)管理員選擇的文章分頁(yè)方式，如果用戶選擇的是自動(dòng)分頁(yè)，則調(diào)用“自動(dòng)分頁(yè)部分程序”，選擇的是手動(dòng)分頁(yè)則調(diào)用

3、“手動(dòng)分頁(yè)部分程序”。范例：1.判斷后臺(tái)管理員發(fā)表文章的時(shí)候使用的分頁(yè)方法判斷方法：（這里以showContent為數(shù)據(jù)庫(kù)分頁(yè)方式字段做例子講解）打開(kāi)數(shù)據(jù)庫(kù)后<%ifrs("showContent")=0thenresponse.writebbimg(rs("content"))elseifrs("showContent")=1thencallAutoShow()elseifrs("showContent")=2thencallFingerShow()elseresponse.writebbimg(rs("

4、content"))endif%>判斷后臺(tái)管理員使用的是哪種分頁(yè)方式，以便調(diào)用不同的程序；其中“AutoShow”為自動(dòng)分頁(yè)，“FingerShow”為手動(dòng)分頁(yè)方式。2.自動(dòng)分頁(yè)：<%callAutoShow()%>說(shuō)明：此代碼將顯示文章和文章自動(dòng)分頁(yè)的整個(gè)過(guò)程包含在一個(gè)文件內(nèi)執(zhí)行，所以在顯示文章頁(yè)面就需要加入以下代碼：，此代碼將顯示文章和自動(dòng)分頁(yè)的文件包含進(jìn)去，以執(zhí)行“Call”語(yǔ)句，調(diào)用整個(gè)程序過(guò)程。3.手動(dòng)分頁(yè)：<%callFinge

5、rShow()%>說(shuō)明：此代碼將顯示文章和文章自動(dòng)分頁(yè)的整個(gè)過(guò)程包含在一個(gè)文件內(nèi)執(zhí)行，所以在顯示文章頁(yè)面就需要加入以下代碼：，此代碼將顯示文章和自動(dòng)分頁(yè)的文件包含進(jìn)去，以執(zhí)行“Call”語(yǔ)句，調(diào)用整個(gè)程序過(guò)程。4.inc目錄下page.asp文件的程序代碼如下：（僅供參考）<%'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆'◆過(guò)程名：autoshow◇'◇功能：文章內(nèi)容自動(dòng)分頁(yè)◆'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇ConstShowContent

6、ByPage="Yes"'文章內(nèi)容是否分頁(yè)顯示ConstMaxPerPage_Content=1000'每頁(yè)顯示大約字符數(shù)subAutoShow()dimCurrentPagedimContentLen,MaxPerPage,pages,i,lngBounddimBeginPoint,EndPoint'ArticleID=rs("SMT_id")'strContent=rs("SMT_news")ContentLen=len(strContent)CurrentPage=trim(request("page

7、"))ifShowContentByPage="No"orContentLen<=MaxPerPage_Contentthenresponse.write(""&strContent&"")ifShowContentByPage="Yes"thenresponse.write"