新闻显示页面自动分页可否根据表格高度来定??还有哪些其它方法,我现在根据字符数来定的,但这样有时会把代码分开,高手支招,有什么其它方法呀???

第二种方法应该如何写呀,帮我修改一下,谢谢!!!
dim Maxpagelen,page,content,PageNumber,ArticleID
dim contentlen
dim BeginPoint,EndPoint

Maxpagelen=1000

contentlen=len(strout(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

end if

if pagenumber>1 then
response.write"共有"&pagenumber&"页"
for i=1 to PageNumber
if i=pagenumber then
if i<>page then
response.Write "<a href=?zixunid=" & zixunid &"&page=" & i & "> "& i &"</a>"
else
response.write"<font color='#FF0000'> "&i&"</font>"
end if
else
if i<>page then
response.Write "<a href=?zixunid=" & zixunid &"&page=" & i & "> "& i &"</a>"
else
response.write"<font color='#FF0000'> "&i&"</font>"
end if
end if
Next
end if

如果生成html页面自动分页应该如何搞,哪位朋友帮帮忙呀!!!!!!!!!!!急!!!!!!

无论是否生成静态的,只要能实现分页不错就行,现在我定1000字符,却在分页的结尾和开头少了一个字,怎么搞呀????