webForumDet fria alternativet

Hjälp med palles Paging+getrows

ASP

2 svar · 183 visningar · startad av ConnyFox

Medlem sedan aug. 20011 087 inlägg
Frågan#1

har problem med palles paging script och undrar om någon kan hjälpa mig.

Allt fungerar fin fint bortsett från sidvalet, dvs 1 | 2 | 3 osv.. som man klickar på för att komma till respektevie sida.

Endast länk till sista sidan visas.
Verkar vara den markerade kodbiten som strular till det, lyckats få fram alla siffror men då har det varit annat som strulat ;)


	'// Poster per sida
	intPostsPerPage = 2

	'// Navigeringshantering
	If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
	intFirstPost = (intPage - 1) * intPostsPerPage
	.write intfirstpost
	intTotalPosts = UBound(arrRS, 2)
	.write intTotalPosts
	intPages = ((intTotalPosts)\intPostsPerPage)+1
	.write intpages

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRS,2) Then
		intLastPost = UBound(arrRS, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Navigering - Första/Bakåt
	If intPage > 1 Then
		nav1 = ""& vbcrlf &"	<a href=""default.asp?n="" >Första</a> | <a href=""default.asp?n="& intPage - 1 &""">Backa</a> | "
	Else 
		nav1 =  ""& vbcrlf &"	Första | Backa | "
	End If

[B]
	'// Navigering - Siffror
	If intTotalPosts > intPostsPerPage Then 

		If intPage < 4 Then
			intNavStart = 1 : intNavEnd = 5
		ElseIf intPage > intPages-3 Then
			intNavStart = intPages-4 : intNavEnd = intPage+2
		Else
			intNavStart = intPage-2 : intNavEnd = intPage+2
		End If
		.write intnavstart
		.write intnavend

		For n = intNavStart To intNavEnd
			If intPage = n Then 
				nav2 = "<strong>"& n &"</strong> | "
			Else 
				nav2 = "<a href=""main.asp?n="& n &""">"& n &"</a> | "
			End If
			If n = intPages Then Exit For
		Next 

	End If
[/B]

	'// Navigering - Nästa/Sista
	If strNext = True Then 
		nav3 = "<a href=""default.asp?n="& intPage + 1 &""">Nästa</a> | <a href=""main.asp?n="& intPages &""">Sista</a>"& vbcrlf
	Else 
		nav3 = "Nästa | Sista"& vbcrlf
	End If

Skriver sedan ut det me

response.write "<td>_" & nav1 & "</td><td align=""middle"">" & nav2 & "</td><td align=""right"">" & nav3 & "_</td>"
Medlem sedan aug. 20011 087 inlägg
#2

Eller är detta kanske inte den bästa varianten att använda sig av i mitt fall.

Kikade lite på denna :
http://www.dileno.hel.nu/martin/web/asp/default.asp?id=3

är den något att ha tro?

Medlem sedan aug. 20011 087 inlägg
#3

Är det verkligen ingen som kan hjälpa mig med detta?

265 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
133 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
132 ms — ändringar (db)