<%
ArticlePageContent=split(ArticleContent,"<hr style=""page-break-after:always;"" class=""ke-pagebreak"" />")
response.write (ArticlePageContent(i))
c=ubound(ArticlePageContent)
if c>0 then
for i=0 to c
if i=0 then
PageNO=""
else
PageNO=i+1
PageNO="("&PageNO&")"
end if
%>
<%=PageList%>
<%
'分页部分
PageList=""
PageList=PageList&"<div class=""t_page ColorLink"">"
PageList=PageList&"当前页数:<span class=""FontRed"">" & i+1 & "</span>/" & c+1 &" "
PageList=PageList&"<a href=""article.asp?id="&id&""">" & "首页" & "</a>"
select case i
case 0
PageList=PageList&" 上一页 "
case 1
PageList=PageList&"<a href=""narticle.asp?id="&id&""">" & "上一页" & "</a>"
case else
PageList=PageList&"<a href=""article.asp?id="&id&"&page="&i-1&""">" & "上一页" & "</a>"
end select
for counter=0 to c
if counter=0 then
if counter=i then
PageList=PageList&" 1 "
else
PageList=PageList&"<a href=""article.asp?id="&id&""">" & 1 & "</a> "
end if
else
if counter=i then
PageList=PageList&" "&counter+1&" "
else
PageList=PageList&"<a href=""article.asp?id="&id&"&page="&counter&""">" & counter+1 & "</a> "
end if
end if
next
if i=c then
PageList=PageList&" 下一页 "
else
PageList=PageList&"<a href=""article.asp?id="&id&"&page="&i+1&""">" & "下一页" & "</a>"
end if
PageList=PageList&"<a href=""article.asp?id="&id&"&page="&c&""">" & "尾页" & "</a></div>"
next
end if
%>
以上代码如何实现用page实现分页,希望高手帮忙修改下,也可也给段分页的代码