17. juni 2002 - 23:49Der er
8 kommentarer og 1 løsning
vise 10 entries ad gangen
Jeg har denne her kode:
<% strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries WHERE (ForumID = " & Request("ForumID") & ")" strSQL = strSQL & " AND (OrgThread = True) ORDER BY ID DESC" Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (ReplyID = " & rs("Id") & ") AND (OrgThread <> TRUE)" Set recordCount = myConn.Execute(strSQL) %> 'indsæt dataerne her <% rs.MoveNext Loop End If myConn.Close Set myConn = Nothing
Hvordan laver jeg det om, sådan at der kun vises 10 rækker fra tabelen ad gangen?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Du har sikkert din egen SQL-sætning som du bruger til at søge med så den udskrifter du bare den fra ekeemplet: strSQL = "SELECT LinkURL FROM Links" med dig egen: strSQL = DIN SSQL SÆTNING
Så angiver du hvor mange du vil havde på hver side i linier: rs.PageSize = 10 Du ville gerne havde 30 pr side.. rs.PageSize = 30
Ud skrivning af søge resultet skal gøres inde i det loop der er: Do While Not rs.EOF And intRecCount > 0 Response.Write rs("LinkURL") & "<br>" intRecCount = intRecCount - 1 rs.MoveNext Loop
Du har sikkert et tilsvarne loop som du udskriver søgeresultatet i idag så du udskirve denne linie: Response.Write rs("LinkURL") & "<br>" Men alle de linier du måtte hvade behov for...
Dette kode laver en liste i bunde med Gå til side 1 2 3 4 osv: Response.Write "<p>Gå til side " For intNum = 1 To intPageCount Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> " Next
Dette kode lave en links til forrige side via truk på <<: Response.Write "<p>" If Clng(intPage) > 1 Then Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>" Else Response.Write "<<" End If
Dette kode lave en links til næste side via tryk på >>: If Clng(intPage) < Clng(intPageCount) Then Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> " Else Response.Write ">>" End If
Jeg håber det giver lidt ekstra hjælp ellers så bare spørg igen.
det var den jeg lige prøvede... men kunne ikke få skidtet til at virke, pga af at den bruger et ADODB.RecordSet og det har jeg problemer med at lave min nuværende SQL-sætning om til :( Kan du ikke vise mig hvordan fa*** jeg skal skrive det om?
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.