1.
<%
'这里要处理接收到的分页参数，以此来进行显示第几页的内容
'下面这两句就是如果没有page这个参数传来就让变量pageNum取显示第一页的值：0
If Request("page")="" Then
pageNum=0
'否则就给变量赋值为传递来的page里的参数，来显示其他页
Else
pageNum=Request("page")
End if
%> <% '如果加了可选执行UBB代码，可以加上下面的代码
'rs("NoUBB")是数据库里关于禁用UBB的字段，0为禁用，1为执行
If rs("NoUBB")=0 then
'为避免和文章内容相连出现错误，用Replace函数把分页代码“|||”的前后各加一个全角的
'rs("content")是数据库里正文的字段，在这里加上UBB或者禁用UBB
Content=Replace((unHTML(rs("content"))),"|||"," ||| ")
Elseif rs("NoUBB")=1 then
Content=Replace((ubb(rs("content"))),"|||"," ||| ")
End if
%>
<% '这里就是关键了
'我们用split函数将文章分段取出存入变量content
ContentStr=split(Content,"|||")
'按照刚才从URL参数中取得的要显示那页的那个变量，就循环显示一页
For i=pageNum to pageNum
%>
<!--这里将是文章正文内容-->
<%=ContentStr %>
<% Next %>
</td>
</tr>
<tr>
<td height="30" class="ClassName">本文共分
<%
'分页的地方，用ubound(ContentStr)取得文章一共分为几页，注意这里是从0开始，所以总页数需要加1
For p = 0 to ubound(ContentStr)
'链接还是本页面，只不过文章ID参数后面还要加上一个分页的参数:page %>
<a href="display.asp?ID=<%=rsquest("ID")%>&page=<%=p%>" class=""><%=p+1%></a> <% Next %>页
2.
NewsID=Request.QueryString("NewsID")
Page=Request.QueryString("page")
if page="" then
page=1
elseif not IsNumeric(page) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
end if
page=int(page)
arr_Content=split(News_Content,"[---分页---]")
MaxPages=ubound(arr_Content)
Response.Write arr_Content(Page-1)
url="readnews.asp?newsid="&newsid
if MaxPages >0 then
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>首页</a> "
if Page-1 > 0 then
Prev_Page = Page - Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a>
end if
for PageCounter=0 to MaxPages
PageLink = PageCounter+1
if PageLink <> Page Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<font color='#FF0000'><B>["& PageLink &"]</B></font> "
end if
If PageLink = MaxPages+1 Then Exit for
Next
if page <= Maxpages then
bdd_Page = Page + 1
Response.write "<a class=black href='" & Url & "&page=" & bdd_Page & "' title='第" & bdd_Page & "页'>下一页</A>"
end if
Response.write " <A class=black href='" & Url & "&page=" & Maxpages+1 & "' title='第"& Maxpages+1 &"页'>尾页</A>"
end if
