<%'on error resume next
 pageWordNum=2000 ' 每页显示的字数，这里300可以是变量
StartWord = 1
Length=len(Content) '要显示内容的总的长度
PageAll=cint((Length+PageWordNum-1)\PageWordNum) '该篇新闻总共可分的总页数
if request.querystring("i")="" then  '如果是新闻的刚开始则默认i＝0
i=1
else
   i=cint(request.querystring("i"))  '第几页的标记
end if

Content = mid(Content,StartWord+i*PageWordNum,PageWordNum) '利用mid函数进行新闻内容的截取（mid函数的含义：从字符串中返回指定数目的字符）
%>

本文章共有:<%= PageAll %>页
<%'开始进行分页操作
if 1<=i<PageAll then
'if cint(i)<cint(PageAll)-1 then
if i>=0 then%>
<a href="list.asp?unid=<%=unid%>&i=<%=i-1%>">上一页</a><br/> <% end if  %>
     <% for n=0 to PageAll-1 %>
          (<A href='list.asp?unid=<%=unid%>&i=<%=n%>'><%=n%></a>)
 <% next%>

<%if i<PageAll then%>
<a href="list.asp?unid=<%=unid%>&i=<%=i+1%>">下一页</a><br/><% end if %>

<%
end if

 %>

这个代码用起来非常方便,唯一的一个问题就是它是从0开始计数的

也就是第0页,第一页,....第N页,到现在还没有解决不要第0页的问题

哪位高手用了此程序,如果发现了秘密请联系我,我会帮你发表的,

在此谢了!!!!!       联系QQ:187367103