asp 文章分頁對象

<%
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)就可以了

我這上面只是寫了一個大概，並不是很完善，但基本上就是這個樣子了。