%
function csPage(id,all,url1,url2)
	if id>1 then tmp="a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1"1"url2""">首頁/a> a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1id-1url2""">上一頁/a>"
	istart=((id-1)\10)*10+1
	if(all-id)>9 then
		iend=((id-1)\10)*10+10
	else
		iend=all
	end if
	for i=istart to iend
		if i=id then
			tmp=tmp"span>"i"/span> "
		else
			tmp=tmp"a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1iurl2""">"i"/a> "
		end if
	next
	if id>all then tmp=tmp"a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1id+1url2""">下一頁/a> a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1allurl2""">尾頁/a>"
	csPage=tmp
end function
 
'DEBUG
for j=1 to 40
	response.write "#Page"j":"csPage(j,40,"#TEST_","_View")"br />"
next
%>

function csPage1(id,all,url1,url2)
	if id>1 then tmp="a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1"1"url2""">首頁/a> a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1id-1url2""">上一頁/a> "
	if alllt;10 or idlt;10 then
		istart=1
		if alllt;10 then iend=all else iend=10
	elseif all-idlt;10 then
		istart=all-10
		iend=all
	else
		istart=id-4
		iend=id+5
	end if
 
	for i=istart to iend
		if i=id then
			tmp=tmp"span>"i"/span> "
		else
			tmp=tmp"a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1iurl2""">"i"/a> "
		end if
	next
	if id>all then tmp=tmp"a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1id+1url2""">下一頁/a> a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" url1allurl2""">尾頁/a>"
	csPage1=tmp
end function
for j=1 to 40
	response.write "#Page"j":"csPage1(j,40,"#TEST_","_View")"br />"
next

'PageinationRecordSet 如果返回false，說明 Adodb.RecrodSet集 為空
'RecordSet Adodb.RecrodSet集
'PageId 當前所在頁
'PageSize 每頁顯示多少條？
'*PageCount 返回頁碼總數
function PageinationRecordSet(byref RecordSet,byref PageId,byval PageSize,byref PageCount)
  if RecordSet.eof then
    PageinationRecordSet = false
  else
    RecordSet.PageSize = PageSize
    PageCount = RecordSet.PageCount
    if PageId > PageCount then PageId = PageCount
    RecordSet.absolutePage = PageId
    PageinationRecordSet = true
  end if
end function
 
'PageId 當前所在頁
'PageCount 頁碼總數
'urlTemplate 鏈接模板
function PageinationPageList(byval PageId,byval PageCount,byval urlTemplate)
  dim codeTemp,iPage
   
  if PageCount > 0 then
    codeTemp = "ul class=""pagination"">"
     
    if PageId = 1 then codeTemp = codeTemp  "li class=""disabled"">" else codeTemp = codeTemp  "li>"
    codeTemp = codeTemp  "a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow"  replace(urlTemplate,"{pg}",1)  """> 首頁 /a>/li>"
    if PageId = 1 then codeTemp = codeTemp  "li class=""disabled"">" else codeTemp = codeTemp  "li>"
    codeTemp = codeTemp  "a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow"  replace(urlTemplate,"{pg}",PageId-1)  """>上一頁/a>/li>"
     
    for iPage = PageId - 5 to PageId + 5
      if iPage = PageId then
        codeTemp = codeTemp  "li class=""active"">a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow"  replace(urlTemplate,"{pg}",iPage)  """>"  iPage  "/a>/li>"
      elseif iPage  PageId and iPage > 0 then
        codeTemp = codeTemp  "li>a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow"  replace(urlTemplate,"{pg}",iPage)  """>"  iPage  "/a>/li>"
      elseif iPage > PageId and iPage = PageCount then
        codeTemp = codeTemp  "li>a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow"  replace(urlTemplate,"{pg}",iPage)  """>"  iPage  "/a>/li>"
      end if
    next
     
    if PageId >= PageCount then codeTemp = codeTemp  "li class=""disabled"">" else codeTemp = codeTemp  "li>"
    codeTemp = codeTemp  "a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow"  replace(urlTemplate,"{pg}",PageId + 1)  """>下一頁/a>/li>"
    if PageId >= PageCount then codeTemp = codeTemp  "li class=""disabled"">" else codeTemp = codeTemp  "li>"
    codeTemp = codeTemp  "a href=""" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow" rel="external nofollow"  replace(urlTemplate,"{pg}",PageCount)  """>尾頁/a>/li>"
     
    PageinationPageList = codeTemp  "/ul>"
  end if
end function

pgId = Request.QueryString("pageid")  '當前頁碼
pgSize = 10 '每頁大小
rsId = 0
Rs.Open Query,Conn,1,1
if PageinationRecordSet(Rs, pgId, pgSize, pgCount) then
  do while not Rs.Eof and rsId  pgSize
    rsId = rsId + 1
     
    '列表內容
     
    Rs.MoveNext
  loop
end if
Rs.Close
 
'共 pgCount 頁
response.write PageinationPageList(pgId, pgCount, "./list.asp?pageid={pg}") '輸出分頁代碼