CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

kasper_14 Nybegynder

08. juni 2002 - 19:07 Der er 5 kommentarer og
1 løsning

Paging med alfabetet?

Hvor´n pager jeg ud fra første bogstav i fx en overskrift ? altså A - B - C - D - E - F osv

Synes godt om

tmceu Praktikant

08. juni 2002 - 19:29 #1

Har du et ASP script med paging der skal rettes til eller ?

Synes godt om

kasper_14 Nybegynder

08. juni 2002 - 19:32 #2

nej, kan godt finde ud af at page normalt, men ville godt lære med abc.. så håbede at der var en der havde det liggende....!

Synes godt om

tmceu Praktikant

08. juni 2002 - 19:36 #3

Det tricky ved dette er, at du vil have en dynamisk pagesize og derfor kan du ikke anvende "standard" paging. Vis evt. det script du allerede har, så skal jeg forsøge at ændre det til det du ønsker - hvis altså koden ikke er alt for rodet :-)

Synes godt om

medions Nybegynder

09. juni 2002 - 12:12 #4

Her er i alt fald hvordan du udskriver hele alfabetet.. sæt det ind i et pagingsystem.. det skulle være relativt nemt da det et i et array...
For i = 65 To 90
strAbc = Chr(i)
Response.Write(strAbc & " ")
Next

//>Rune

Synes godt om

kasper_14 Nybegynder

10. juni 2002 - 18:56 #5

tmceu --> tak for det! min kode er taget fra activedeveloper.dk:
<html><head>
<title>Paging af et recordset</title>
</head><body>

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT LinkURL FROM Links"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/aspdigital/db/demo.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "Side " & intPage & " af " & intPageCount & ""
Do While Not rs.EOF And intRecCount > 0
Response.Write rs("LinkURL") & " "
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

</body></html>

Synes godt om

tmceu Praktikant

10. juni 2002 - 21:08 #6

Så skulle den være der - håber ikke der er nogle copy-paste fejl :-)

Prøv at gemme denne kode i en ny fil, blot for at teste. Vær opmærkom på, at den kun viser de bogstaver der findes i tabellen.

<%@ Language=VBScript %>
<html><head>
<title>Paging af et recordset</title>
</head><body>
<%

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/aspdigital/db/demo.mdb")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.CursorLocation = 3
objConn.ConnectionString = strDSN

objConn.Open

Set objRS = Server.CreateObject("ADODB.RecordSet")

' Find dynamiske page størrelser
strSQL = "SELECT LEFT(LinkURL, 1), COUNT(*) FROM Links GROUP BY LEFT(LinkURL, 1)"

Set objRS = objConn.Execute(strSQL)

' Kopier page størrelser ind i et 2-dimensionelt array
MyArr = objRS.GetRows

' En offset variabel
intTemp = 1

intPage = Request("page")
If isNumeric(intPage) = False Or intPage <= 1 Then
intPage = 1
Else
' Find startposition
For i = 0 To (intPage -2)
intTemp = intTemp + myArr(1, i)
Next
End If

' Sæt den nuværende page størrelse
intPageSize = myArr(1, (intPage-1))

strSQL = "SELECT LinkURL FROM Links ORDER BY LinkURL"

Set objRS = objConn.Execute(strSQL)

If Not (objRS.BOF Or objRS.EOF) Then
objRS.PageSize = intPageSize

intRecCount = myArr(1, (intPage-1))
objRS.AbsolutePosition = intTemp

intPageCount = UBound(myArr, 2) + 1

Response.Write "Side " & intPage & " af " & intPageCount & ""
Do While Not objRS.EOF And intRecCount > 0
Response.Write objRS("LinkURL") & " "
intRecCount = intRecCount - 1
objRS.MoveNext
Loop
End If
objRS.Close
Set objRS = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If

%>
</body></html>

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Nordic RCC

Security & Compliance Officer with an interest in the green energy transition

Cognizant Technology Solutions Denmark ApS

Energy Trading Project Manager – Consulting

Danoffice IT

Microsoft CSP Salgsspecialist

MAN Energy Solutions

LTSA 4-Stroke Technical Advisor

Indexed ApS

PHP Udvikler søges til Indexed

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I dag 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I dag 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I dag 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling
I går 20:49	pop up black friday Af Malm i Virus