您的位置:阿里西西 > 编程技术 > ASP教程 > asp长文章的自动分页代码

asp长文章的自动分页代码

  本站整理   互联网   2013-06-17   点击:   我要评论
  1. <
  2. sub autopage() 
  3. dim Maxpagelen,page,content,PageNumber,ArticleID 
  4. dim contentlen 
  5. dim BeginPoint,EndPoint 
  6.  
  7. Maxpagelen=1000 
  8. content=ubbcode(rs("content")) 
  9. ArticleID=rs("ArticleID") 
  10. contentlen=len(content) 
  11. page=request.QueryString("page") 
  12.  
  13. if contentlen<=Maxpagelen then 
  14. response.Write content 
  15. else 
  16. if page="" then 
  17. page=1 
  18. else 
  19. page=Cint(page) 
  20. end if 
  21.  
  22. if pageNumber*MaxPagelen<contentlen then 
  23. PageNumberPageNumber=PageNumber+1 
  24. end if 
  25. PageNumber=int(contentlen/Maxpagelen)+1 
  26. if page<1 then page=1 
  27. if page>PageNumber then page=PageNumber 
  28. if page=1 then 
  29. BeginPoint=1 
  30. else 
  31. BeginPoint=MaxPagelen*(page-1)+1 
  32. end if 
  33. if page=PageNumber then 
  34. EndPoint=contentlen 
  35. else 
  36. EndPoint=MaxPagelen*page 
  37. if EndPoint>=ContentLen then 
  38. EndPoint=ContentLen 
  39. end if 
  40. end if 
  41.  
  42. content=Mid(content,BeginPoint,EndPoint-BeginPoint) 
  43. response.Write content 
  44. response.Write"<br>
  45. response.Write"<br>
  46. response.Write"<br>
  47.  
  48. end if 
  49. for i=1 to PageNumber 
  50. response.Write "<a href=articele.asp?ArticleID=" & ArticleID &"&page=" & i & "> "& i &"</a>
  51. Next 
  52. end sub 
  53. %>  
本文链接http://www.cxybl.com/html/wlbc/Asp/20120613/29951.html


更多关于 的文章
相关阅读
会员评论所有会员评论

  

相关排行总榜

ASP教程

PHP教程

.NET教程