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 
  
PageNumberPageNumber=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=articele.asp?ArticleID=" & ArticleID &"&page=" & i & "> "& i &"</a>" 
  
Next 
  
end sub 
  
%>  
 

本文連結http://www.cxybl.com/html/wlbc/Asp/20120613/29951.html