程序代码：

<%
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 
%>