分页问题

<%
dim articleStr,CurrentPage,Maxlen,totalLen,i,j,n
articleStr="地方官环境口令地方官环境口令地方官环境口令地方官环境口令，地方官环境口令，地方官环境口令地方官环境口令地方官环境口令，地方官环境口令地方官环境口令地方官环境口令，地方官环境口令地方官环境口令地方官环境口令。地方官环境口令地方官环境口令地方官环境口令。地方官环境口令.<br>地方官环境口令地方官环境口令地方官环境口令.地方官环境口令地方官环境口令."

Maxlen=20
totalLen=len(articleStr)
if totalLen mod Maxlen = 0 then
pageCounts=fix(totalLen/Maxlen)
else
pageCounts=fix(totalLen/Maxlen)+1
end if
Response.write "总页数："&pageCounts&"<br>"
CurrentPage=Request("page")
if CurrentPage="" then
CurrentPage=1
end if
if int(CurrentPage)>pageCounts then CurrentPage=int(pageCounts) end if
i=(CurrentPage-1)*Maxlen+1
j=Maxlen
Response.write mid(articleStr,i,j)&"<br>"
if CurrentPage<2 then
Response.write "上一页"
else
Response.write "<a href='?page="&CurrentPage-1&"'>上一页</a>"
end if

for n = CurrentPage-3 to CurrentPage+3
if n>0 and Clng(n)<=pageCounts then
Response.write"<a href='?page="&n&"'>"&n&"</a> "
end if
next

if CuttentPage=pageCounts then
Response.write "下一页"
else
Response.write "<a href='?page="&CurrentPage+1&"'>下一页</a>"
end if
%>