分页问题
<%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页 后面还跟着下一页的 那样分页样式。
我在网上看了一下，那个不是在数组中实现的分页。
大家帮帮忙哈？
