Buongiorno, ho un sito già funzionante con il suo motore di ricerca interno in ASP classic.
Ora vorrei che da un qualsiasi record risultante da questa ricerca l'utente possa muoversi al record successivo dalla pagina stessa (magari tramite una freccia o qualcosa di simile).
Per spiegarmi meglio: se trovi un record che mi mostra il record di un fumetto che ha il n° 1, vorrei che tramite un click l'utente possa spostarsi al n° 2 dello stesso fumetto.
Purtroppo non metto mano a quel poco di programmazione che conoscevo da anni e non so da dove partire? Suggerimenti, esempi pratici ?
Grazie
Posto il codice della pagina motore interno del sito e poi della pagina in cui si mostrano i risultati della ricerca:
Motore.asp
Doc.aspcodice:<% 'APERTURA CONNESSIONE CON IL DATABASE SENZA DSN Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../database/corno.mdb") %> <% iPageSize = 25 'NUMERO RECORD PER PAGINA If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If titolo = request("titolo") data = request("data") numero = request("numero") serie = request("serie") note=request("note") condizioni=request("condizioni") if titolo="" then titolo="%" if data="" then data="%" if numero="" then numero="%" if serie = "Tutte" then serie="%" if serie = "*" then serie="" if note = "" then note="%" if condizioni = "" then condizioni="%" %> <% strsql=" SELECT * FROM corno where titolo LIKE '%"&titolo&"%' AND data LIKE '%"&data&"%' AND numero LIKE '"&numero&"' AND serie LIKE '%"&serie&"%' AND note LIKE '%"¬e&"%' AND condizioni LIKE '%"&condizioni&"%' ORDER BY numero, data" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.PageSize = iPageSize objRS.CacheSize = iPageSize objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText reccount = objRS.recordcount iPageCount = objRS.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 If iPageCount = 0 Then Response.Write "<p><table><td><font face='Book antiqua' size='2' color='#000000'><b>Non sono stati trovati documenti corrispondenti.<br><br><a href=ricerca_avanzata.asp>Torna alla ricerca</a></b></td></table></p>" Else objRS.AbsolutePage = iPageCurrent iRecordsShown = 0 %> </font> <table width="82%" align="center" cellpadding="3" cellspacing="3" ="aaccff" "#C1DAFF"> <tr> <td WIDTH="30%" align="right" valign="middle" ="cccccc"><div align="center"> <table width="95%" align="center" cellpadding="3" cellspacing="3" ="aaccff" "#c1daff"> <tr class="menumotore"> <td width="16%" height="43" align="center" valign="middle" ="cccccc"><strong>N°</strong></td> <td width="37%" align="left" valign="middle" ="cccccc"><strong>Titolo</strong></td> <td width="47%" align="left" valign="middle" ="cccccc"><strong>Data</strong></td> </tr> <% 'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL 'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA cont=1 Do While iRecordsShown < iPageSize AND Not objRS.EOF Dim rig, bg col = rig + 1 If rig Mod 2 = 0 then Else End if %> <% Response.Write "<tr = " & bg & "><td = '#0066FF' align='center'><font color='red' face='Book antiqua' size='2' >" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>" Response.Write"<td ='#cccccc' align='left'><font color='red' face='Book antiqua' size='2' align='right'><a href='doc.asp?id="&objRS("id")&"'>"&left (objRS("titolo"),50)&"...</font></td>" Response.Write "<td = '#0066ff' align='left'><font color='red' face='Book antiqua' size='2'>" & objRS("data") & "</font></td>" Cont = Cont + 1 'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB iRecordsShown = iRecordsShown + 1 objRS.MoveNext Loop 'PULIZIA DEGLI OGGETTI ADO objRS.Close Set objRS = Nothing %> </table> </div></td> </tr> </table> <table border="0" align="center"> <tr valign="middle"> <td width="50%" align="center" valign="middle"><font face="Book antiqua" size="1" color="#000000"> <b>[ <%if iPageCurrent-2 > 0 AND iPageCurrent > 2 then%> <a href="motore_corno.asp?page=<%=iPageCo%>&contenuto=<%=contenuto%>&data=<%=data%>&fondo=<%=fondo%>&numero=<%=numero%>&serie=<%=serie%>&condizioni=<%=condizioni%>"><img src="../img/first.gif" alt="Prima" width="10" height="9" border="0" valign="middle" /></a> <%end if%> <%if iPageCurrent > 1 then%> <a href="motore_corno.asp?page=<%=iPageCurrent-1%>&contenuto=<%=contenuto%>&data=<%=data%>&fondo=<%=fondo%>&numero=<%=numero%>&serie=<%=serie%>&condizioni=<%=condizioni%>"><img src="../img/pre.gif" alt="Precedente" width="5" height="9" border="0" valign="middle" /></a> <%end if%> <%if iPageCount > 2 then if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2 if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2 else da_pag = 1 fino_a_pag = iPageCount end if%> <%for i = da_pag to fino_a_pag%> <%if i = iPageCurrent then%> <font color="red"><%=i%></font> <%else%> <%end if%> <%next%> <%if iPageCurrent > 0 AND iPageCurrent < iPageCount then%> <a href="motore_corno.asp?page=<%=iPageCurrent+1%>&contenuto=<%=contenuto%>&data=<%=data%>&fondo=<%=fondo%>&numero=<%=numero%>&serie=<%=serie%>&condizioni=<%=condizioni%>"><img src="../img/next.gif" alt="Successiva" width="5" height="9" border="0" valign="middle" /></a> <%end if%> <%if iPageCurrent+1 < iPageCount then%> <a href="motore_corno.asp?page=<%=iPageCount%>&contenuto=<%=contenuto%>&data=<%=data%>&fondo=<%=fondo%>&numero=<%=numero%>&serie=<%=serie%>&condizioni=<%=condizioni%>"><img src="../img/last.gif" alt="Ultima" width="10" height="9" border="0" valign="middle" /></a> <%end if%> ]</b> </font></td> </tr> <tr> <td colspan="2" align="center"><center> <font color="#000000" size="1" face="Book antiqua"> Pagina <b><%=iPageCurrent%></b></font> <font color="#000000" size="1" face="Book antiqua"> di <b><%=iPageCount%></b></font> </center></td> </tr> </table> </td> </tr> </table> <p><font face="Book antiqua"> <%End if%> </font><font face="Book antiqua"> <%If ipagecount <> 1 Then%> </font><font face="Book antiqua"> <%end if%> <% objConn.Close Set objConn = Nothing %>
codice:<% id=request.querystring("id") sql="select * from corno where id =" & id Set OBJdbConnection=Server.CreateObject("ADODB.Connection") OBJdbConnection.open"driver={Microsoft Access Driver (*.mdb)};dbq="&server.mapPath("../database/corno.mdb") Set Rs=OBJdbConnection.Execute(sql) id=rs("id") titolo=rs("titolo") editore=rs("editore") formato=rs("formato") serie=rs("serie") note=rs("note") data=rs("data") numero= rs("Numero") condizioni=rs("condizioni") %> <title>ASCM - <%=categoria%> - <%=data%></title> <p> <style type="text/css"> <!-- body { font-family: "Century Gothic"; color: #000000; } .Stile5 { font-size: 13px; font-weight: bold; } .Stile7 {font-size: 13px} .Stile8 {font-family: "Book Antiqua"} .Stile9 {color: #000000; font-size: 13px; font-family: "Book Antiqua"; } .Stile10 { font-weight: bold; font-family: "Book Antiqua"; } .Stile11 {color: #000000; font-size: 13px; font-family: "Book Antiqua"; font-weight: bold; } --> </style> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script></p> <table "width="643" height="176" align="center" cellpadding="0" cellspacing="0" background="../img/edc.jpg" ="#AACCFF"> <tr> <td height="26" valign="middle" ="#C7F1F1"><div align="justify" class="testpaginacaratytere"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>Editore:</strong></span></span></div></td> <td height="26" valign="middle" class="dettagli_Albo_doc_corno" ="#C7F1F1"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=editore%></span></span></td> </tr> <tr> <td height="12" valign="middle" ="cccccc"><div align="left"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>Serie:</strong></span></span></span></div></td> <td height="12" valign="middle" class="dettagli_Albo_doc_corno" ="cccccc"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=serie%></span></span></td> </tr> <tr> <td height="13" valign="middle" ="cccccc"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>N°</strong></span></span></td> <td height="13" valign="middle" class="dettagli_Albo_doc_corno" ="cccccc"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=Numero%></span></span></td> </tr> <tr> <td width="134" height="12" valign="middle" ="#CCCCCC"><div align="justify" class="Stile16"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>Titolo</strong></span></span></div></td> <td width="507" valign="middle" class="dettagli_Albo_doc_corno" ="#CCCCCC"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=titolo%></span></span></td> </tr> <tr> <td height="12" valign="middle" ="#CCCCCC"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>Data</strong></span></span></td> <td height="12" valign="middle" class="dettagli_Albo_doc_corno" ="#CCCCCC"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=data%></span></span></td> </tr> <tr> <td height="27" valign="middle" ="#C7F1F1"><div align="justify" class="Stile16"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>Formato</strong> </span></span></div></td> <td height="27" valign="middle" class="dettagli_Albo_doc_corno" ="#C7F1F1"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=formato%></span></span></td> </tr> <tr ="cccccc"> <td height="12" valign="middle" ><div align="justify" class="Stile16"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>Condizioni</strong></span></span></div></td> <td height="12" valign="middle" class="dettagli_Albo_doc_corno"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=condizioni%></span></span></td> </tr> <tr ="cccccc"> <td height="13" valign="middle" ><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><strong>Note</strong></span></span></td> <td height="13" valign="middle" class="dettagli_Albo_doc_corno"><span class="colonna_info_tab_doc"><span class="dettagli_Albo_doc_corno"><%=note%></span></span></td> </tr> <tr class="align_left_tab_doc" ="#C7F1F1"> <td height="27" colspan="2" align="center" valign="middle" class="img_doc_corno_DX"><p> </p> <p> </p> <p><img src="http://imgcorno.altervista.org/cop/<%=rs("img")%>" alt="immagine" border="1" /></p> </p></td> </tr> </table>
Rispondi quotando