Jeg har to eksempler som du kan se i dette styk kode:
Det er som google og et andet alternativ
Dette eks behøver ikke database at køre den har default 120 sider/pages:
intPageCount = 120
<HTML>
<HEAD>
<TITLE>Next Previos Page i Pagin eks:</TITLE>
</HEAD>
<BODY>
<%
intPage = Request.QueryString("intPage")
if intPage = "" then intPage = 1
intPageCount = 120
'Eks som
www.google.comvisAntal = 10
intStart = intPage - visAntal
intSlut = intPage + visAntal
if intStart <= 0 then intStart = 1
if intSlut > intPageCount then intSlut = intPageCount
For intNum = intStart To intSlut
if CInt(intNum) = CInt(intPage) then
Response.Write " <b>" & intNum & "</b> "
else
' Response.Write "<a href=paging.asp?page=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
Response.Write "<a href="&Request.servervariables("SCRIPT_NAME")&"?intPage=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
end if
Next
Response.Write "<br><br><br>"
'Alternativt eks: altivs først og sidste side + 3 i mellem
visAntalImellem = 3 '
intStart = intPage - Int(visAntalImellem/2)
if intStart <= 1 then intStart = 2
intSlut = intStart + visAntalImellem - 1
if intSlut >= intPageCount then
if intStart > 1 then intStart = intStart - intSlut + intPageCount - 1
if intStart <= 1 then intStart = 2
intSlut = intPageCount-1
end if
'Vis førte side som link
intNum = 1
if CInt(intNum) = CInt(intPage) then
Response.Write " <b>" & intNum & "</b> "
else
Response.Write "<a href="&Request.servervariables("SCRIPT_NAME")&"?intPage=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
end if
'Vis dem imellem
if (intNum + 1) < intStart then Response.Write "..."
For intNum = intStart To intSlut
if CInt(intNum) = CInt(intPage) then
Response.Write " <b>" & intNum & "</b> "
else
' Response.Write "<a href=paging.asp?page=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
Response.Write "<a href="&Request.servervariables("SCRIPT_NAME")&"?intPage=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
end if
Next
'Vis den sidste
intNum = intPageCount
if (intNum - 1) > intSlut then Response.Write "..."
if CInt(intNum) = CInt(intPage) then
Response.Write " <b>" & intNum & "</b> "
else
Response.Write "<a href="&Request.servervariables("SCRIPT_NAME")&"?intPage=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
end if
%>
</BODY>
</HTML>
