这不是分页，这是分割，使用split函数来分割
s=split(aa,"||")
这样
s(0)="我我我"
s(1)="是是是是"
……

那要搞首页 上一页 下一页 尾页  与分页一样的怎么搞????

是不是这样搞？（我随便写的一个）
<%
'------------------循环分页----------------------------------

dim str
str="我我我||是是是是||中中国国人人||哈哈哈哈"
str1=split(str,"||")
page1=request.QueryString("page")
if page1="" then
page1=str1(0)
end if
for i=0 to Ubound(str1)
if str1(i)=page1 then
response.Write "<div>"&str1(i)&"</div><p>"
select case i
case 0
%>
<a href="?page=<%=str1(0)%>">首页</a>  <a href="?page=<%=str1(0)%>">上一页</a>  <a href="?page=<%=str1(i+1)%>">下一页</a>  <a href="?page=<%=str1(Ubound(str1))%>">尾页</a>
<%
case Ubound(str1)
%>
<a href="?page=<%=str1(0)%>">首页</a>  <a href="?page=<%=str1(i-1)%>">上一页</a>  <a href="?page=<%=str1(Ubound(str1))%>">下一页</a>  <a href="?page=<%=str1(Ubound(str1))%>">尾页</a>
<%
case else
%>
<a href="?page=<%=str1(0)%>">首页</a>  <a href="?page=<%=str1(i-1)%>">上一页</a>  <a href="?page=<%=str1(i+1)%>">下一页</a>  <a href="?page=<%=str1(Ubound(str1))%>">尾页</a>
<%
end select
end if
next
%>

你写那个,,,能在新闻内容分页里使用吗????

http://www.programfan.com/blog/article.asp?id=15045

此问题已经解决,,,,,谢谢各位的意见咯!!!!


<%
Const AA = "我是内容呀||我是内容二||我是内容三||呵呵又到内容四了"

Page = Request.querystring("Page")
IF Page = "" Or Page <= 0 Then
    Page = 0
Else
    Page = Cint(Request.querystring("Page"))
End IF

Content = Split(AA,"||")

PageCo = ubound(Content)

For i = Page To Page
    Response.Write Content(Page)
Next

Response.Write "<br>"
Response.Write "<br>"
For j = 0 To PageCo
    Response.Write "&nbsp;&nbsp;<a href=""?Page="&j&""">["&j&"]</a>"
Next
%>

分享一下!