文章系统自动与手动分页方法的实现.docVIP

文章系统分页方法的实现： 一、后台添加部分加入“文章分页方式： 1.手动分页 2.自动分页 3.不分页”，在数据库中写入一个值以判断后台管理员选择的分页方式。 并注明，如果用手动分页方式，在需要分页的地方需插入代码：“[NextPage]”标记，前台程序以此标记判断手动分页部分文章的分页显示方式。 范例： 1.分页方式：input name=showContent type=radio value=0 checkednbsp;不分页nbsp;input name=showContent type=radio value=1 nbsp;自动nbsp;input name=showContent type=radio value=2nbsp;手动 注意：手动方式要输入“ [NextPage] ” 二、前台显示文章部分，先判断后台管理员选择的文章分页方式，如果用户选择的是自动分页，则调用“自动分页部分程序”，选择的是手动分页则调用“手动分页部分程序”。 范例： 1.判断后台管理员发表文章的时候使用的分页方法 判断方法：（这里以showContent为数据库分页方式字段做例子讲解） 打开数据库后 %if rs(showContent)=0 then response.write bbimg(rs(content)) elseif rs(showContent)=1 then call AutoShow() elseif rs(showContent)=2 then call FingerShow() else response.write bbimg(rs(content)) end if % 判断后台管理员使用的是哪种分页方式，以便调用不同的程序； 其中“AutoShow”为自动分页，“FingerShow”为手动分页方式。 2.自动分页：%call AutoShow()% 说明：此代码将显示文章和文章自动分页的整个过程包含在一个文件内执行，所以在显示文章页面就需要加入以下代码：!--#include file=inc/page.asp--，此代码将显示文章和自动分页的文件包含进去，以执行“Call”语句，调用整个程序过程。 3.手动分页：%call FingerShow()% 说明：此代码将显示文章和文章自动分页的整个过程包含在一个文件内执行，所以在显示文章页面就需要加入以下代码：!--#include file=inc/page.asp--，此代码将显示文章和自动分页的文件包含进去，以执行“Call”语句，调用整个程序过程。 4.inc目录下page.asp文件的程序代码如下：（仅供参考） % ◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ ◆过程名：autoshow ◇ ◇功 能：文章内容自动分页 ◆ ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇ Const ShowContentByPage=Yes 文章内容是否分页显示 Const MaxPerPage_Content=1000 每页显示大约字符数 sub AutoShow() dim CurrentPage dim ContentLen,MaxPerPage,pages,i,lngBound dim BeginPoint,EndPoint ArticleID=rs(SMT_id) strContent=rs(SMT_news) ContentLen=len(strContent) CurrentPage=trim(request(page)) if ShowContentByPage=No or ContentLen=MaxPerPage_Content then response.write(strContent) if ShowContentByPage=Yes then response.write /pp align=centerfont color=redb[1]/b/font/p end if else if CurrentPage= then CurrentPage=1 else CurrentPage=Cint(CurrentPage) end if pages=ContentLen\MaxPerPage_Content if MaxPerPage_Content*pagesContentLen then pages=pages+1 end if lngBound=MaxPerPage_Content 最大误差范围 if CurrentPage1 then CurrentPage=1 if CurrentPagepages then CurrentPage=pages dim