对一篇很长文章做到完美分页输出.pdfVIP

对一篇很长的文章做到完美的分页输出 利用统计文章字数，然后达到一定字数就截断输出，但是分页的内容就会在莫名其妙的地方截断，不是很友 好。 很简单，在要截断的地方附近找下面的符号: ；’”？。！;.! 如果后面存在p或br就分页。主要是要研究文章的格式。 % if Request.ServerVariables(Content_Length) 0 then content = Request.Form(textarea1) PageLength = 1000 每页字数 CLength = Len(content) PageCount = Int(Clength/PageLength) + 1 计算页数 dim PageArray redim PageArray(PageCount) Seperator = Array(chr(13),chr(10),。,！,？,；,，,”,’) 分隔符 PageArray(0) = 0 Pos = 0 for j=0 to ubound(Seperator) Pos = instr(PageArray(i)+900,content,Seperator(j)) PageArray(i)+900 附近位置是100字，