分页问题

<%
b=Server.URLEncode(rs("HGZ_BianHao"))
str1=b
NewStr=Replace(str1,"%0D%0A","|||")  '这个是如果直接将内容显示在页面上的话转换成换行
ostr=Replace(str1," ",vbcrlf)  '这个是如果内容是包含在<textarea></textarea>里面就显示出换行.
'AStr=Replace(str,asc(32),"<br>")'这个是通过把空格的ASC码进行转换.原理差不多
%>
<% If Rs("HGZ_BianHao")<>"" Then  %>
<%  str=NewStr
   str = "|||" & str
   strA = split(str,"|||")
   page = request("page")
   if page ="" then page = 1
   response.write strA(page)
   response.write "<br>"
%>
<%
rs.movenext
end if
%>
<%
   for i = 1 to ubound(strA)
   if i <> clng(page) then
    response.write "<a href='3.asp?page="&i&"&HGZ_id="&HGZ_id&"'>【" & i & "】</a> "
   else
  response.write "<a href='3.asp?page="&i&"'><font color=red>【" & i & "】</font></a> "
     end if
   next
%>
这个是一个数组中的字段  在显示分页的时候   如果获取到数组中的值段 很多   就会出现格子很满，
我想问一下我要怎么实现 向百度那样  一行分页10页   后面还跟着下一页的   那样分页样式。
我在网上看了一下，那个不是在数组中实现的分页。
大家帮帮忙哈？