?<%
'-------------------------------------------------------
'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
%>