以下ASP代码如何实现用page分页

<%

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 &"&nbsp;"

PageList=PageList&"<a href=""article.asp?id="&id&""">" & "首页" & "</a>"

select case i

case 0

PageList=PageList&"&nbsp;&nbsp;上一页&nbsp;&nbsp;"

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&"&nbsp;&nbsp;1&nbsp;&nbsp;"

else

PageList=PageList&"<a  href=""article.asp?id="&id&""">" & 1 & "</a> "

end if

else

if counter=i then

PageList=PageList&"&nbsp;&nbsp;"&counter+1&"&nbsp;&nbsp;"

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&"&nbsp;&nbsp;下一页&nbsp;&nbsp;"

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实现分页，希望高手帮忙修改下，也可也给段分页的代码