asp版长文章分页

 <%
'以下部分是验证提交的page是否为合法的参数
'这部分最好判断一下提交的参数是否为数值字符
dim page
page=Trim(request("page"))
If page="" Then
page=1
Elseif CInt(page)<=0 then
page=1
else
page=CInt(page)
End If
'进行查询，取出要显示的记录
  str=rs1("content")
'把出取来的记录放入数组
dim strtmp
if(Instr(str,"</p>")>0) then
strtmp=Split((str),"</P>")
else
strtmp=Split((str),"<BR>")
end if
'取出要显示的记录，同时得到页数
Dim n,tmp,i,j,tt
n=1000
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 str
%>
                                    </span>
                                    <div align="center" class="STYLE4">
<%
response.write "<br>"
For n=1 To j
if j<>1 then
if n=page then
response.write "&