<%
'以下部分是验证提交的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 "&
