I motori di ricerca adottano una tecnica, chiamata paginazione, che permette di dividere i risultati di una ricerca su più pagine.
In realtà i cambiamenti da apportare ad un motore di ricerca che non preveda questa funzione non sono poi molti e lo script che segue è un ottimo punto di partenza.
<% RecordsPerPagina = 5 page = Request("page") if page="" then page=1 ' STRINGA SQL strRicerca = Request("ricerca") SQL = "SELECT * FROM Ricerca WHERE Descrizione LIKE '%" & strRicerca & "%'" 'apri recordset con valore 1,3 ' es rs.open sql, conn, 1, 3 ' paginazione rs.PageSize = RecordsPerPagina rs.AbsolutePage = page If rs.Eof=True or rs.Bof=True then Response.Write "<P>Nessun risultato trovato</P>" Else For i=1 to RecordsPerPagina if Not rs.EOF then 'mostra record rs.MoveNext end if Next End if %>
Infine, per aggiungere una barra di navigazione tra le pagine con risultati:
<% Response.Write "<P><B>Pagine:</B> " For pag=1 to rs.PageCount Response.Write "<A href='pagina.asp?page=" & pag Response.Write "&ricerca=" & Server.UrlEncode(strRicerca) Response.write "'>" Response.Write pag Response.Write "</A> " Next Response.Write "</P>" %>
Per maggiori informazioni sull'accesso dai database si veda
https://www.aspitalia.com/articoli/db/
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.