|
產生分頁連結 For 公式 產生分頁連結 For 公式
雖然Java Script來處理分頁問題好處蠻多的,不過對於JS還不是很熟的讀者顯然也是一個門檻,要做到相同的
功能真的沒有辦法了嗎？其實不然用Notes的公式也可做到一樣的效果,不過呢有幾點要注意的,既然是用Notes
公式來處理的話一定會用的Server的處理時間,所以要確定Server心臟要夠強,不然就是中小型網站可適用
,如果是同時很多人上線的網站,建議還是用JS較佳,這就是設計程式的一些系統上的考量囉！
當然Lotus Script也可做不過這應該算是更難的拉,有機會我們在介紹好囉！好那我們看以下的範例
[CurrentQuery]
Query為"自訂搜尋套表"[註一]系統變數以下簡稱SK,可取任意欄位名稱只要將欄位內容放入Query即可
欄位內容:Query[顯示時計算]
[CurrentResults]
搜尋結果顯示有無搜尋到文件若無則顯示"沒有符合文件",若有則顯示"搜尋結果 1 - 11 共 18 筆"
欄位內容:[顯示時計算]
@If(Hits=0 ; "沒有符合文件";
"搜尋結果 " + @Text(Start)+" - "+
@Text(
@If( (Start + Hits) > TotalHits ; TotalHits ; (Start) + Hits )
)
+" 共 " + @Text(Totalhits)+" 筆 ")
[已計算完值] 內容:
放入以下公式就會產生,分頁效果不過呢讀者要注意該有的SK變數都要存在並且放在這個"已計算完值"的前面,一般是用副套表放在些SK變數[TotalHits、Start、count...]並且放在套表的最上方本範是將Server設定文件顯示在250筆.
REM '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~';
REM {NOTE: start param must be before count param in the original URL};
pageString := "<a href=\"srch?SearchView&Query=" + Query + "&start=";
REM {We are limited to 250 docs by domino!!};
hitNum := @If(TotalHits > 250;250;TotalHits);
adJust := @Integer(hitNum/10);
endDate := @Text(@Adjust([1900/01/01];0;0;adJust;0;0;0);"D0S0");
numRange := @Explode(@TextToTime("01/01/1900 - " + endDate));
numList := (@TextToTime(numRange) - [1900/01/01]) / 86400;
textList1 := @Text(numList+1);
textList10 := @Text(numList * 10+1);
repl := pageString + @Text(Start) + "&count=10\">" + @Text(1+(Start-1)/10) + "</a>";
with := "<b>" + @Text(1+(Start-1)/10) + "</b>";
@If(TotalHits > 10;@Implode(@Replace(pageString + textList10 + "&count=10&SearchFuzzy=True\">" + textList1 + "</a>"; repl; with) ;" | ");" ")
REM '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~';
註一：欲瞭解Notes 搜尋函數關鍵字 請用Notes 設計師說明(Lotus Domino Designer 6 Help) 輸入"自訂搜尋套表"("Customizing search forms")查詢
資料來源:
http://www.codestore.net/store.nsf/unid/DOMM-4SSGPN?OpenDocument
'====================================================
' 本程式由『笑傲江湖工作室』撰寫
' 使用Lotus Notes製作 R6
' 作者：阿沖 huchung ling
' Mail： huchungling@power2.evernet.com.tw
' Web Site: http://Rnext.evernet.com.tw
'Working Together
' TRY IT....
'the power of one
'心是最大的戰場
' 唯有不斷的學習 才是成功的關鍵
'====================================================
'作者保留著作權，並同意任何人以任何形式及方式轉載或引用並請註明出處保留作者資訊
|