31. december 2000 - 11:05Der er
8 kommentarer og 1 løsning
Index
Jeg har en masse forskellige sider som jeg gerne skulle have til at stå sådan: Nr 1-100 Nr 101-200 Nr 201-300 osv. Det skal gerne være i den sammen fil
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.
F.eks. paging, får du så et antal sider du kan gå frem og tilbage i mellem. Men jeg vil gerne have 3 link, det første skal kun vise posterne fra 1-100, det næste fra 101-200 osv
Du er nød til at læse tabellen fra starten og i det tilfælde, at det er nr 101-200 du skal bruge, så bare læse henover disse poster, og først generere output fra post nr 101 af. Du kunne også tilføje et felt (sortorder), som du sætter til et tal fra 1 og opefter. Derved kan du indeksere direkte ind i tabellen med en sql-sætning lignende : SQL = \"SELECT * from test ORDER BY sortorder WHERE sortorder>100\"
<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 * FROM index\" strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"test.mdb\") rs.Open strSQL, strDSN, 1 If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 100 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\" Do While Not rs.EOF And intRecCount > 0 Response.Write rs(\"navn\") & \"<br>\" intRecCount = intRecCount - 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing
Response.Write \"<p>Gå til side \" For intNum = 1 To intPageCount Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \" Next
Response.Write \"<p>\" 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>
Henter de første 100 navne felter også er der en knap til at trykke næste osv. Du skal bare gemme det i filen paging.asp
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.