<% 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=" mce_href="?page=""&i&">"&i&" </a> ") next else Response.Write(str) end if end function call page(str,5) %>