Un motore di ricerca nel tuo sito
2 pagine in totale: <<Indietro 1 [2]
Continuiamo con la parte che estrae i record:
'Costruisco la stringa finale dell'istruzione SQL
stmSQL = stmSQL & tmpSQL & " AND Doc_ID > " & ID
stmSQL = stmSQL & " ORDER BY Doc_ID" 'Importante !
'Genero una variabile per stipare il contenuto della mia interrogazione
Dim rsDocTrovati
Set rsDocTrovati = Server.CreateObject("ADODB.Recordset")
'Prendo solo il numero di risultati massimi per pagina
rsDocTrovati.MaxRecords = RecordsPerPagina
'Setto le propietà del recordsets trovato (include ADOVBS.inc per la definizione delle constanti)
rsDocTrovati.CursorType = adForwardOnly
'Riempio con i valori trovati il mio recordset rsDocTrovati
rsDocTrovati.Open stmSQL, "DNS_DATABASE;"
'Comincio a generare il codice HTML per mostrare i risultati
'Ottengo il numero totale di record trovati dallo statements SQL tmpSQL
Dim rsTotalRecords
stmSQL = "SELECT COUNT(*) FROM Documenti WHERE " & tmpSQL
Set rsTotalRecords = Conn.Execute(stmSQL)
'Verifichiamo quanti risultati massimi possiamo avere
Dim rsMaxID
stmSQL = "SELECT MAX(Doc_ID) FROM Documenti WHERE " & tmpSQL
Set rsMaxID = Conn.Execute(stmSQL)
%>
<table border="0" cellspacing="2" cellpadding="0">
<% if rsDocTrovati.EOF then 'Nessuna corrispondenza trovata
%>
<tr><td ></td></tr>
<tr><td >
<font size="+1">Nessun articolo o pagina HTML è stata trovata.</font><P>
<A href="javascript:history.back(-1)"><font size="+1">Torna alla pagina precedente</font></A>
</td></tr>
<tr><td ></td></tr>
<% Else
Dim IDCorrente
%>
<tr >
<td ><font ><b>Titolo</b></font></td>
<td ><font ><b>Descrizione
dell'articolo</b></font></td>
</tr>
<tr><td colspan="2"></td></tr>
<%
While Not rsDocTrovati.EOF
IDCorrente = rsDocTrovati("Doc_ID")
%>
<tr>
<td ><A href='<%=rsDocTrovati("Doc_URL")%>'>
<font size="2"><%=rsDocTrovati("Titolo")%></font></A></td>
<td><font size="2"><%=rsDocTrovati("Descrizione")%></font></td>
</tr>
<tr><td colspan="2"></td></tr>
<% rsDocTrovati.MoveNext
Wend %>
<tr ><td colspan="2" >
<% If rsTotalRecords(0)=1 then %>
<b><font >La ricerca sul database ha portato alla luce <b><strong>un
solo</strong></b> documento !!!</font></b>
<% Else %>
<b><font >La ricerca sul database ha portato alla luce <%=rsTotalRecords(0)%> documenti
!!!</b></font>
<% End If %>
</td></tr>
<tr><td colspan="2"></td></tr>
<tr><td colspan="2" >
<% if IDCorrente < rsMaxID(0) then %>
<!-- Se sono più di 5 documenti produco un tasto per la visualizzazione degli altri documenti -->
<FORM METHOD=POST ACTION='<%= Request.ServerVariables("SCRIPT_NAME") %>'>
<INPUT TYPE=HIDDEN NAME="StringaDaCercare" VALUE='<%=Request.form("StringaDaCercare")%>'>
<input type="Hidden" name="ID" value='<%=IDCorrente%>'>
<INPUT TYPE=SUBMIT VALUE="Successivi Documenti">
</FORM>
<% end if
end if
'Fine dello script
%>Naturalmente questo è solo il primo passo. In questo articolo è stato solo trattato la costruzione dell'interfaccia del motore di ricerca.
Per approfondimenti su come accedere a database, si consiglia la lettura di questo articolo , con la cui lettura si può arrivare a capire a fondo il codice presente in questo articolo.
2 pagine in totale: <<Indietro 1 [2]
Contenuti dell'articolo
Sullo stesso argomento
Commenti
Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.
Difficoltà
Stampa 
Download 
