学步园

<%
str="数据库文章内容测试内容哈哈"
function page(str,fontnum)
if len(str)>fontnum then
if len(str) mod fontnum>0 then '计算总页数
pagecontent=len(str)\fontnum+1
else
pagecontent=len(str)\fontnum
end if

Dim arr()
ReDim arr(pagecontent)

for m = 1 to pagecontent
if m<>pagecontent then
arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)
else
arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))
end if
next

if Request.QueryString("page")<>"" then
Response.Write(arr(Request.QueryString("page")))
else
Response.Write(arr(1))
end if

Response.Write("<br>")

for i = 1 to pagecontent
Response.Write("<a href=?page="&i&">"&i&"</a> ")
next
else
Response.Write(str)
end if
end function

call page(str,5)
%>
对于你这儿的内容是rs("body")那么改最后一句为call page(rs("body"),200)就可以了

我这上面只是写了一个大概，并不是很完善，但基本上就是这个样子了。