"把出取来的记录放入数组
dim strtmp
strtmp=Split((str),"<br>")

"取出要显示的记录，同时得到页数
Dim n,tmp,i,j,tt
n=500
i=0
j=0
Do While i<=ubound(strtmp)
    tmp=strtmp(i)
    tt=true
    Do While tt
   If i>=ubound(strtmp) then
     tt=false
  j=j+1
    elseif Len(tmp)>=n Then
     tt=false
  j=j+1
   ElseIf Len(tmp)+Len(strtmp(i+1))>=n Then
     tt=false
  j=j+1
   Else
     tmp=tmp+"<br>"+strtmp(i+1)
  i=i+1
   End If
 Loop
    if page=j then  str=tmp+"<br>"
i=i+1
Loop

"判断传送的参数是否越界,如果越界，则取得最后一页的内容
if page>j then
str=tmp
end if

"显示分页内容
"注意传递的参数，这里只传递了page，如果有其它参数要一起传递的，否则分页后不显示了
response.write "分页——>"
For n=1 To j
if n=page then
response.write "&nbsp;"&n&"&nbsp;"
else
response.write "[<a href=index.asp?page="&n&">"&n&"</a>]"
end if
Next
response.write "<br><br>"

"显示要分取出要显示的这部分内容
response.write str
%>

想取得源文件，点这里下载a1.rar