Sidnavigering

Flyttas till ASP, VBScript.

Du får ju klämma in någon eller några If-satser mellan första pagingsidan och sista pagingsidan. Och sen verkar dina If-satser lite dumma, ex denna:

If Len(PERSIDA) = 1 Then
Else
Dec = (Left(sida,2) * PERSIDA)
End If

Jag ha rinte byggt detta men om man sätter 10 som PERSIDA så funkar denna kod men jag vill kunna välja vilken siffra som helst. Går det med en smidig kod?

Vad händer om du sätter en annan siffra?

Verkar som du inte har fått svar ännu.

Kom på denna kod efter att vi snackat på MSN:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p>
<%
'## -- hur många sidor som finns i recordsetet --
intTotalPages = 25

'## -- vilkensida som ska visas i recordsetet --
intPage = Request.QueryString("page")
	If Len("" & intPage) = 0 OR Not IsNumeric(intPage) Then intPage = 1

'## -- hur många sidnummer som ska visas per gång --	
intSweep = 6

intSweepFactor = (intPage / intSweep)

'## -- vilken sida som ska börja av antal sidnummer som ska visas (intSweep) --
If intPage MOD intSweep <> 0 Then
	intSweepStart = (CLng((intPage / intSweep) + 0.5) * intSweep) - intSweep + 1
Else
	intSweepStart = ((intPage / intSweep) * intSweep) - intSweep + 1
End If

intSweepEnd = (intSweepStart + intSweep) - 1
%>
</p>
<p>
<%
If intSweepStart > intSweep Then
%>
<a href="paging_paging.asp?page=<% =intPage - intSweep%>"><% =intSweep%> Bak&aring;t</a> 
<%
Else
%>
<% =intSweep%> Bak&aring;t 
<%
End If '## -- intSweepStart > intSweep --

If intPage > 1 Then
%>
| <a href="paging_paging.asp?page=<% =intPage - 1%>">Bak&aring;t</a> | 
<%
Else
%>
Bak&aring;t |
<%
End If '## -- intPage > 1 --

'## -- loopa igenom alla sidnummrena i "sweepet" --
For N = intSweepStart TO intSweepEnd
	If N = Clng(intPage) OR N >= intTotalPages Then
		Response.Write "<b>" & N & "</b> "
	Else
%>
<a href="paging_paging.asp?page=<% =N%>"><% =N%></a> 
<%
	End If
Next
%>
| 
<%
If CLng(intPage) < CLng(intTotalPages) Then
%>
<a href="paging_paging.asp?page=<% =intPage + 1%>">Fram&aring;t</a> 
<%
Else
%>
Fram&aring;t 
<%
End If '## -- intPage < intTotalPages --
%>
| 
<%
If (intPage + intSweep) < intTotalPages Then
%>
<a href="paging_paging.asp?page=<% =intPage + intSweep%>">Fram&aring;t <% =intSweep%></a> 
<%
Else
%>
Fram&aring;t <% =intSweep%>
<%
End If '## -- (intPage + intSweep) < intTotalPages --
%>
</p>
</body>
</html>

Bara att labba tills du känner dig "hemma" i koden och du förstår koden. Sedan, då är det bara att implementera det i dina sidor.
Ingen snygg kod, behöver fräschas upp en liten aning

Om det är något som är oklart, bara att fråga

cya,
PatrikB

Värdet i "intTotalPages" kan du ju om du vill skicka i en Q.S. så att användaren själv hur många träffar per sida som skall visas.
(Men det kanske var så du tänkte..?)

<select name="intTotalPages">
<option>5
<option>10
<option>15
</select>

<%intTotalPages=cInt(ReQuest.form("intTotalPages"))%>

[r]
har inte med hur många poster per sida som ska visas. Själva pagingen finns redan färdig
[/r]

intTotalPages beräknas utifrån hur många poster som kommer från recordsetet. (rst.PageCount)

Det är en liten "spin-off" på vanlig paging, dvs man vill inte visa ut alla "100" sidnummer utan n antal (intSweep) per gång

cya,
PatrikB

kika in detta:

10 Bakåt | Bakåt | 1 2 3 4 5 6 7 8 9 10 | Nästa | Nästa 10

nästa 10:
10 Bakåt | Bakåt | 11 12 13 14 15 16 17 18 19 20 | Nästa | Nästa 10

istället för att få
10 Bakåt | Bakåt | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Nästa | Nästa 10

cya,
PatrikB