?? pages.asp
字號:
?<%
'-------------------------------------------------------
'getpages() 簡單分頁函數(shù)
'allrecord 總記錄數(shù)
'nowpage 當前頁
'allpage 總頁數(shù)
'url 頁面地址(包含?)
'-------------------------------------------------------
function getpages(allrecord,nowpage,allpage,url)
dim tempStr:tempStr=""
tempStr="共有 "&allrecord&" 條記錄,分 "&allpage&" 頁,當前在第 "&nowpage&" 頁 "
if nowpage=1 and allpage=1 then
tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首頁"">首頁</a>] "
tempStr=tempStr&"[上一頁] "
tempStr=tempStr&"[下一頁] "
tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾頁"">尾頁</a>]"
elseif nowpage=1 and allpage>1 then
tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首頁"">首頁</a>] "
tempStr=tempStr&"[上一頁] "
tempStr=tempStr&"[<a href="""&url&"page="&nowpage+1&""" title=""下一頁"">下一頁</a>] "
tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾頁"">尾頁</a>]"
elseif cint(nowpage) > 1 and cint(nowpage) < cint(allpage) then
tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首頁"">首頁</a>] "
tempStr=tempStr&"[<a href="""&url&"page="&nowpage-1&""" title=""上一頁"">上一頁</a>] "
tempStr=tempStr&"[<a href="""&url&"page="&nowpage+1&""" title=""下一頁"">下一頁</a>] "
tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾頁"">尾頁</a>]"
elseif cint(nowpage)=cint(allpage) then
tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首頁"">首頁</a>] "
tempStr=tempStr&"[<a href="""&url&"page="&nowpage-1&""" title=""上一頁"">上一頁</a>] "
tempStr=tempStr&"[下一頁] "
tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾頁"">尾頁</a>]"
end if
getpages=tempStr
end function
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -