eWebeditor V2.8增加分页功能！

1、找一个合适的gif小图片做为按钮图标，也可用phtoshop做一个大小为20*20，放在eWebEditor\ButtonImage\standard目录下，命名为Page.gif

2、打开eWebEditor/Include目录下的Editor.js，添加如下红色部分：
 case "br":   // 插入换行符
  insertHTML("<br>")
  break;
 case "Page": // 插入分页符
        insertHTML("[NextPage]")
        break;
 case "code":  // 代码片段样式

3、打开eWebEditor/Include目录下的menu.js，添加如下红色部分：
  sMenu += getMenuRow("", "insert('br')", "br.gif", "插入换行符");
  sMenu += getMenuRow("", "insert('Page')", "Page.gif", "插入分页符");
  height = 204;

4、打开eWebEditor数据库eWebEditor_Button表，增加一条记录，如图（最后一条）：

5、登录eWebEditor后台，点击样式管理---点击你所使用样式的 工具栏---常用工具栏---按钮设置，拉到底，把“插入分页符”添加到已选按钮，为了整齐可以减掉一个用不到的按钮，保存。
完成。在后台添加或者编辑文章，插入分页符看看效果。

========================================================

好了．ewebeditor的处理完了．现在来处理前台的显示页面关于分页的问题咯

========================================================

6.页面调程序 (打个比方把这个保存在根目录下文件名function.inc.asp)

<%
'文章内容分页
function contentfy(strcontent,page,link)
dim arycontent,zpage,fp,p
page=cint(page)
arycontent=Split(strcontent,"[NextPage]") '这儿的注意下[NextPage]跟[ NextPage ]两个中间有空格是有区别的．看你editor.js这个中设置的．我因为这个空格没注意．吓折腾了后两个小时．郁闷．也是因为技术不到位勒．理解下^_^
zpage=UBound(arycontent)+1

response.Write arycontent(page-1)&"</br>"'输出文章内容

'判断总页数是否大于1，是就输出
Response.Write("<BR><BR>")
Response.Write("<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
Response.Write(" <tr>")
Response.Write("<td style=""font-size:12px;text-align:center;"">")

if zpage>1 then
response.write "共"&zpage&"页，第"&page&"页  "
'得到第一页、上一页的链接
  if page=1 then
  response.write "第一页  上一页"
  else
  response.write"<a href="&link&"&page=1>第一页</a>&nbsp;<a href="&link&"&page="&(page-1)&">上一页</a>&nbsp;"
  end if
'显示数字页数
fp=(int(page/10)+1)*10'计算当月前页除以10整数部分加1乘以10的页数；如当前页是11除以10的整数就1，1+1=2，2*10=20，显示到20页
if fp>=zpage then
fp=zpage
end if

p=page-(page mod 10)'计算当前页减自身除以10余数部分的页数；如当前页是11，11除以10的余数是1，11-1=10
if p=0 then
p=1
end if
 
do while p<=fp'如上就显示10到20的页数,若当前页是10-20中的一页，都显示数字页数10-20让用户点击
 if page=p then
 response.Write p &"&nbsp;"
 else
 response.Write"<a href="&link&"&page="&p&">"&p&"</a>"&"&nbsp;"
 end if
p=p+1
loop

'得到下一页、最后页链接
  if page<zpage then
  response.write"<a href="&link&"&page="&(page+1)&">下一页</a>&nbsp;<a href="&link&"&page="&zpage&">最后页</a>"
  else
  response.write"下一页  最后页"
  end if

end if
Response.Write("</td></tr></table>")
end function
%>
 

7.在显示内容的页面调用  <!--#include file="function.inc.asp"-->

8.在页面顶部插入

<%
set rsa=server.createobject("adodb.recordset")
sql="select * from Product where proid="&request.querystring("proid")
rsa.open sql,conn,1,1
mcontent=rsa("content")'数据库中内容的字段名称
rsa.close
'set rsa=nothing
'然后取得page的值和link的值：
if request.QueryString("page")="" then
page=1
else
page=request.querystring("page")
end if
link="s_show.asp?proid="&request.querystring("proid")
 %>

9.在要显示的内容区域插入

<%call contentfy(mcontent,page,link)%>