發表于:2011-05-14 00:00:00來(lái)源:SOUAB.COM人(rén)氣:8424
1、找一個合适的gif小圖片做爲按鈕圖标,也可(kě)用phtoshop做一個大(dà)小爲20*20,放(fàng)在eWebEditor\ButtonImage\standard目錄下,命名爲Page.gif
2、打開eWebEditor/Include目錄下的Editor.js,添加如(rú)下紅(hóng)色部分(fēn):
case "br": // 插入換行符
insertHTML("<br>")
break;
case "Page": // 插入分(fēn)頁符
insertHTML("[NextPage]")
break;
case "code": // 代碼片段樣式
3、打開eWebEditor/Include目錄下的menu.js,添加如(rú)下紅(hóng)色部分(fēn):
sMenu += getMenuRow("", "insert('br')", "br.gif", "插入換行符");
sMenu += getMenuRow("", "insert('Page')", "Page.gif", "插入分(fēn)頁符");
height = 204;
4、打開eWebEditor數據庫eWebEditor_Button表,增加一條記錄,如(rú)圖(最後一條):
5、登錄eWebEditor後台,點擊樣式管理(lǐ)---點擊你(nǐ)所使用樣式的 工(gōng)具欄---常用工(gōng)具欄---按鈕設置,拉到底,把“插入分(fēn)頁符”添加到已選按鈕,爲了整齊可(kě)以減掉一個用不到的按鈕,保存。
完成。在後台添加或者編輯文章(zhāng),插入分(fēn)頁符看(kàn)看(kàn)效果。
========================================================
好了.ewebeditor的處理(lǐ)完了.現在來(lái)處理(lǐ)前台的顯示頁面關于分(fēn)頁的問(wèn)題咯
========================================================
6.頁面調程序 (打個比方把這個保存在根目錄下文件(jiàn)名function.inc.asp)
<%
'文章(zhāng)内容分(fēn)頁
function contentfy(strcontent,page,link)
dim arycontent,zpage,fp,p
page=cint(page)
arycontent=Split(strcontent,"[NextPage]") '這兒的注意下[NextPage]跟[ NextPage ]兩個中間有空格是有區别的.看(kàn)你(nǐ)editor.js這個中設置的.我因爲這個空格沒注意.吓折騰了後兩個小時.郁悶.也是因爲技術(shù)不到位勒.理(lǐ)解下^_^
zpage=UBound(arycontent)+1
response.Write arycontent(page-1)&"</br>"'輸出文章(zhāng)内容
'判斷總頁數是否大(dà)于1,是就(jiù)輸出
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&"頁 "
'得(de)到第一頁、上一頁的鏈接
if page=1 then
response.write "第一頁 上一頁"
else
response.write"<a href="&link&"&page=1>第一頁</a> <a href="&link&"&page="&(page-1)&">上一頁</a> "
end if
'顯示數字頁數
fp=(int(page/10)+1)*10'計(jì)算當月前頁除以10整數部分(fēn)加1乘以10的頁數;如(rú)當前頁是11除以10的整數就(jiù)1,1+1=2,2*10=20,顯示到20頁
if fp>=zpage then
fp=zpage
end if
p=page-(page mod 10)'計(jì)算當前頁減自(zì)身(shēn)除以10餘數部分(fēn)的頁數;如(rú)當前頁是11,11除以10的餘數是1,11-1=10
if p=0 then
p=1
end if
do while p<=fp'如(rú)上就(jiù)顯示10到20的頁數,若當前頁是10-20中的一頁,都(dōu)顯示數字頁數10-20讓用戶點擊
if page=p then
response.Write p &" "
else
response.Write"<a href="&link&"&page="&p&">"&p&"</a>"&" "
end if
p=p+1
loop
'得(de)到下一頁、最後頁鏈接
if page<zpage then
response.write"<a href="&link&"&page="&(page+1)&">下一頁</a> <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
'然後取得(de)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)%>