impaginare risultati cerca per un "impedito" cercasi

**fazius** · 25-02-2007, 00:21

che .... direte voi ma proprio non ci riesco questo script di luke è perfetto
lo sarebbe ancora di più se mi restituisse i risultati dei campi separati uno per cella
invece che uno sotto l'altro ,non riesco a venirne a capo chissa se qualche masochista avesse voglia di aiutare un demente incompetente?

<<<>>>// ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----

//Response.Buffer = true;
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/cerca.mdb"));
var testo = new String(Server.HTMLEncode(Request.Form("cerca")));
var r_testo = testo.replace(/'/g,"''");
var cerca = r_testo.split(" "); // Tutte le parole chiave devono essere separate da uno spazio vuoto
var sql = "SELECT * FROM listino WHERE ";
for (var i=0; i<cerca.length; i++)
{
if (i > 0) sql += " AND";
sql += " brani LIKE '%" + cerca[i] + "%'";
}
sql += " ORDER BY brani";
var Mostra = Cn.Execute(sql);
%>
<html>

<head>
<title>Cerca</title>

<basefont size="1" face="Verdana">
</head>
<body link="Blue" alink="Red" vlink="Blue">

<h3>
Cerca
<form method="post" action="cerca.asp">
<input type="text" name="cerca" size="50" value="<%cerca != "undefined" ? Response.Write(testo) : Response.Write("")%>">
<input type="submit" value="Cerca">
</form>
</h3>

<%if (testo != "undefined") {%>

Risultati della ricerca per il termine <font color="Red"><%=testo%></font></p>
<%
if (testo == "" || testo == "undefined" || testo.charAt(0) == " ")
{
Response.Write("

Inserire un termine per effettuare una ricerca</p>");
}
else if (Mostra.EOF)
{
Response.Write("

Nessun risultato</p>");
}
else
{
while (!Mostra.EOF)
{
with (Response)
{
Write("

");
Write("" + Mostra("brani") + "
");
Write(Mostra("descrizione") + "
"+ Mostra("serie")+ "
" + Mostra("corpo") + "
"+ Mostra("funzione") + "
"+ Mostra("connessione") + "
");

Write("<font color='Green'>" + Mostra("url") + "</font>");
Write("</p>");
}
Mostra.MoveNext();
}
}
%>
<%}%>

</body>
</html>
<%Cn.Close()%><<<<
comunque grazie

**Roby_72** · 25-02-2007, 02:24

Uno per cella che vuol dire? Dentro una tabella? Ma la tabella la devi mettere però...

Roby

**fazius** · 25-02-2007, 03:04

lo so solo che non ci riesco.... ci ho provato in mille modi ma non sapendo quasi niente è per me difficile purtroppo

**alberto_gt** · 25-02-2007, 11:42

Prova con questo, dovrebbe funzionare.

<%
Dim Conn
Connect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tuo_database.mdb")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open Connect

Dim sc, rs, quanti, pag, contatore, est, cn
Set rs = Server.CreateObject("ADODB.Recordset")
quanti = 12
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
contatore = 0
%>
<html>
<head>
<title>Paginazione</title>
<style>a { color: blue; }</style>
</head>
<body>
<div align=center>
<table border="0" cellpadding="4" width="600" cellspacing="1" bgcolor="#DFDFDF">
<%
rs.Open "SELECT * FROM tua_tabella ORDER BY id DESC", conn, 1
rs.PageSize = quanti
rs.AbsolutePage = pag
While rs.EOF = False And contatore < quanti
%>
<tr>
<td><font size="1" face="Verdana"><%=rs("campo1")%></font></td>
<td><font size="1" face="Verdana"><%=rs("campo2")%></font></td>
<td><font size="1" face="Verdana"><%=rs("campo3")%></font></td>
<td><font size="1" face="Verdana"><%=rs("campo4")%></font></td>

</tr>

<%
rs.MoveNext
contatore = contatore + 1
Wend
%>
</table></div>
<p align="center">
<%If pag > 1 Then%>
<font size="1" face="Verdana"> Indietro</font>
<%End If%>
<%
Dim x
x = 1
For x = 1 To rs.PageCount
If CInt(pag) <> x Then
%>
<font size="1" face="Verdana">[<%=x%>]
<%
Else
%>
<font size="1" face="Verdana"> [<font size="1" face="Verdana" color=red><%=x%></font>]
<%
End If
Next
%>
<%If rs.EOF = False Then%>
<font size="1" face="Verdana">Avanti</font>
<%End If%>
</p>

</div>

</body>
</html>
<%
rs.Close
Set rs = Nothing
conn.Close
Set cn = Nothing
%>

**fazius** · 25-02-2007, 19:12

Grazie alberto ma cosi mi da dei link a tutti i campi del database a me servirebbe che i "risultati della ricerca si impaginino" non basta che legga solo il contenuto non hai per caso uno script gia simile da poter adattare? di nuovo grazie per quello che hai fatto

**alberto_gt** · 26-02-2007, 14:00

Dovresti provare lo script, è uno script per impaginare dei risultati estrapolati da un database, adattalo alle tue esigenze.

**fazius** · 28-02-2007, 00:57

Grazie Alberto il tuo script funziona benessimo l'ho provato il problema è che non riesco a capire come farlo interagire con il motore di ricerca ci provo ma la nebbia agli irti colli sale
comunque grazie

Discussione: impaginare risultati cerca per un "impedito" cercasi

Strumenti discussione

Ricerca discussione

Visualizza

impaginare risultati cerca per un "impedito" cercasi

Permessi di invio