ASP新闻分页，将一篇过长的文章分页，生成静态页面

上次还是csdn里的朋友回答的，我复制了下来。原文如下
===========================
利用统计文章字数，然后达到一定字数就截断输出，但是分页的内容就会在莫名其妙的地方截断，不是很友好。
　　很简单，在要截断的地方附近找下面的符号:
；'”？。！;'".!
　　如果后面存在<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字，1-999可调
while pos > 0 and pos < (i+1)*pagelength and pos > i*pagelength
pagearray(i) = pos
pos = instr(pos+pagelength,content,seperator(j))
wendif pagearray(i) > 0 then
response.write "0:i¦ "&pagearray(i)&"<br>"&j&":j"&seperator(j)&"<br>"
j = j + ubound(seperator) + 1
end if
nextfor i=1 to pagecount-1
pagearray(i) = 0
pos = 0
for j=0 to ubound(seperator)
pos = instr(pagearray(i-1)+950,content,seperator(j))
while pos > 0 and pos < (i+1)*pagelength and pos > i*pagelength
pagearray(i) = pos
pos = instr(pos+pagelength,content,seperator(j))
wend
if pagearray(i) > 0 then
response.write i&":i¦ "&pagearray(i)&"<br>"&j&":j"&seperator(j)&"<br>"
j = j + ubound(seperator) + 1
end if
next
nextoutput = mid(content,1,pagearray(0))
output = replace(output,chr(13),"<br>")
response.write "<br><br>第1段<br>"
response.write outputfor i=1 to pagecount-2
output = mid(content,pagearray(i-1)+1,pagearray(i)-pagearray(i-1))
output = replace(output,chr(13),"<br>")
response.write "<br><br>第"&i+1&"段<br>"
response.write output
next'最后一段的输出就没写了else
%>
<form action="" method=post id=form1 name=form1>
<textarea rows=70 cols=120 id=textarea1 name=textarea1>
</textarea>
<input type="submit" value="submit" id=submit1 name=submit1>
</form>
<%end if%>


---------------------------------------------------------------

定义有 每页面长度 maxlength
文本总长度 totallength
扫描文章中每一个段尾处的硬回车
并计算该处长度
一旦超过 maxlength 则分成第一页
删除此硬回车前的部分 重复上述操作。