'按标识手动分页

function manualPage(str)

pages=request.QueryString("page")

contentstr=split(str,"{$page$}")

Response.Write(ContentStr(pages))

Response.Write("<p/>")

Response.Write("<div class=""pageList"">")

For i = 0 to ubound(ContentStr)

Response.Write("<a href='?ID="&id&"&page="&i&"'>"&i+1&"</a>&nbsp;")

Next

Response.Write("</div>")

end function

'按长度分页

function autoPage(str,fontnum)

if len(str)>fontnum then

if len(str) mod fontnum>0 then '计算总页数

pagecontent=len(str)\fontnum+1

else

pagecontent=len(str)\fontnum

end if

Dim arr()

ReDim arr(pagecontent)

for m = 1 to pagecontent

if m<>pagecontent then

arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)

else

arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))

end if

next

if Request.QueryString("page")<>"" then

Response.Write(arr(Request.QueryString("page")))

else

Response.Write(arr(1))

end if

Response.Write("<p/>")

Response.Write("<div class=""pageList"">")

for i = 1 to pagecontent

Response.Write("<a href=http://www.webyi.com/wschool/program/ASP/20090808/16173.HTML?ID="&id&"&page="&i&">"&i&"</a> ")

next

Response.Write("</div>")

else

Response.Write(str)

end if

end function

在页面中

<%

if Instr(Content,"{$page$}")=0 then '判断是否是手工分页标志，不是就自动分页

call autoPage(Content,2000)

else

call manualPage(Content)

end if

%>

下一篇：ASP移除所有HTML代码的函数