你用百度搜就可以找到很多，不过本人感觉很多都不行，我想做过，可是没成功。

文章按字数分页
<%
'文本格式化
function htmlformat(str)
htmlformat = Replace((Replace(str, vbCrlf, "<br>"), chr(32)&chr(32), "&nbsp;&nbsp"
End Function
%>
<%
pagelen=800
thisid=request.querystring("id"
wz=rs("content"
if len(wz)>pagelen then
p_count=(len(wz)/pagelen)+1
c_page=request.querystring("page"
cc_page=cint(c_page)
if c_page="" or c_page="1" then
page=1
content=left(wz,pagelen)
response.write htmlformat(content)
response.write "<br><br><div align=center>页码：<font color=red>"
for i=1 to p_count
if i=cc_page then
response.write "["&i&"] "
else
response.write "[<a href=detail.asp?id="&thisid&"&page="&i&">"&i&"</a>]&nbsp;&nbsp;"
end if
next
response.write "</font></div>"
elseif cc_page<=p_count then
cc_page=cint(c_page)
a=cc_page-1
content=Mid(wz,a*pagelen+1,pagelen)
response.write htmlformat(content)
response.write "<br><br><div align=center>页码：<font color=red>"
for i=1 to p_count
if i=cc_page then
response.write "["&i&"] "
else
response.write "[<a href=detail.asp?id="&thisid&"&page="&i&">"&i&"</a>]&nbsp;&nbsp;"
end if
next
response.write "</font><div>"
else
response.write "页号超出,请<a href=javascript:history.back(-1)>返回</a>"
end if
else
response.write htmlformat(wz)
end if
%>

按字数分页个人感觉比较愚蠢，因为有时候一个代码比如<br>会被分割到两页，但是如果在添加新闻的时候就添加分页符又感觉有些影响系统的可操作性和简易程度，还是按行比较好点，可是按行就比较困难，真不好取舍。

我用||||做为分页符号，但是新闻内容不能显示，代码如下：
<%
content=rsnews("content")
If Request("page")=""Then
pageNum=0
Else
pageNum=Request("page")
End if
Content=Replace((unHTML(rs("content"))),"||||","　||||　")
ContentStr=split(Content,"||||")
For i=pageNum to pageNum
response.write ""&ContentStr&"<br>"
next
For p = 0 to ubound(ContentStr)
%><a href="onews1.asp?ID=<%=owen%>&page=<%=p%>" class=""><%=p+1%></a>
<% Next %>页

谢谢各位的顶力支持，谢谢！谢谢！