手动分页方式显示文章具体的内容函数的使用

最新推荐文章于 2024-11-01 15:19:31 发布

joe8282

最新推荐文章于 2024-11-01 15:19:31 发布

阅读量836

点赞数

分类专栏： ASP专栏文章标签： html ie

ASP专栏专栏收录该内容

37 篇文章 0 订阅

订阅专栏

前提:在后台添加文章时,在文章内容文本框中需要分页的地方加上"[NextPage]"作为分页标识符,注意没有双引号,另外一定记住大小写!!!!

1.建立好记录集(如果您不想更改第二步所写的记录集名称,请定义为:rs)

这里所说的记录集是内容的详细信息页面,其中必须用到where条件句,接受传递过来的Request值.

2.在<html>上面加入以下代码:

<%
'=================================================
'过程名：ManualPagination
'作用：采用手动分页方式显示文章具体的内容
'参数：无
'=================================================
sub ManualPagination()
dim ArticleID,strContent,CurrentPage
dim ContentLen,MaxPerPage,pages,i
dim arrContent
ArticleID=rs("id")
strContent=rs("cont")
ContentLen=len(strContent)
CurrentPage=trim(request("ArticlePage"))
if Instr(strContent,"[NextPage]")<=0 then
response.write strContent
response.write "[1]"
else
arrContent=split(strContent,"[NextPage]")

pages=Ubound(arrContent)+1
if CurrentPage="" then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
end if
if CurrentPage<1 then CurrentPage=1
if CurrentPage>pages then CurrentPage=pages

response.write arrContent(CurrentPage-1)

response.write ""
if CurrentPage>1 then
response.write "<a href='" & strFileName & "?id=" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>上一页</a>  "
end if
for i=1 to pages
if i=CurrentPage then
response.write "[" & cstr(i) & "] "
else
response.write "<a href='" & strFileName & "?id=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a> "
end if
next
if CurrentPage<pages then
response.write " <a href='" & strFileName & "?id=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
end if
response.write ""

end if

end sub
%>

3.调用

在需要显示文章内容分页的地方写入:

<%call ManualPagination()%>

4.保存文件,在IE中浏览一下,是不是分页了?呵呵