SEO首页>>网站建设>>程序开发>>asp长文章的自动分页代码

<%
sub autopage()
dim Maxpagelen,page,content,PageNumber,ArticleID
dim contentlen
dim BeginPoint,EndPoint

Maxpagelen=1000
content=ubbcode(rs("content"))
ArticleID=rs("ArticleID")
contentlen=len(content)
page=request.QueryString("page")

if contentlen<=Maxpagelen then
response.Write content
else
if page="" then
page=1
else
page=Cint(page)
end if

if pageNumber*MaxPagelen<contentlen then
PageNumber=PageNumber+1
end if
PageNumber=int(contentlen/Maxpagelen)+1
if page<1 then page=1
if page>PageNumber then page=PageNumber
if page=1 then
BeginPoint=1
else
BeginPoint=MaxPagelen*(page-1)+1
end if
if page=PageNumber then
EndPoint=contentlen
else
EndPoint=MaxPagelen*page
if EndPoint>=ContentLen then
EndPoint=ContentLen
end if
end if

content=Mid(content,BeginPoint,EndPoint-BeginPoint)
response.Write content
response.Write"<br>"
response.Write"<br>"
response.Write"<br>"

end if
for i=1 to PageNumber
response.Write "<a href="[url=http://www.700net.com/article.asp?ID=][color=#0000ff]http://www.700net.com/article.asp?ID=[/color][/url]"" & ArticleID &"&page=" & i & "> "& i &"</a>"
Next
end sub
%>

内容来源：EX工作室-SEO资料站
浏览次数：0
ex 发布于 2008-1-26

你的姓名：
评论主题：
支持UBB：
评论内容：
验 证 码：