Listato con effetto scorrevole comandato da pulsanti

gianluigidibell

Utente Attivo
18 Lug 2007
72
0
6
Piacenza
Come sempre vi disturbo per i mie progetti... grazie per sopportarmi, ma siete grandi nel prestare aiuto.
Cmq, ho disegnato un navigatore con photoshop, e vorrei mettere all'interno del display una lista (elenco estratto da un dababase)
sotto ho disegnato una manopola, e vorrei che quando pigio UP o down l' elenco che ho nel display si muova e automaticamente mi compare il suo record associato nel dysplay lato destro.
sono 2 giorni che cerco ma non ho trovato niente di simile, forse perchè sbaglio la ricerce ( scroll bar o barra di scorrimento) magari questo ha un nome diverso.
Ma non ho mai trovato niente.
Utilizzo dreamveaver, ma non riesco a capire come fare diciamo diventare elenco un db estratto (con la classica parte evidenziata) e soprattutto come fare muovere l'elenco su e giù tramite 2 pulsanti.
Grazie0:)
 
non mi è mai capitato di creare un gadget del genere...
forse per non complicarmi la vita.

Posteresti lo script o mi invii il file, ci studio un po su. :confused:
 
posto il codice

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/lista.asp" -->
<%
Dim R_elenco
Dim R_elenco_numRows

Set R_elenco = Server.CreateObject("ADODB.Recordset")
R_elenco.ActiveConnection = MM_lista_STRING
R_elenco.Source = "SELECT * FROM codici ORDER BY id ASC"
R_elenco.CursorType = 0
R_elenco.CursorLocation = 2
R_elenco.LockType = 1
R_elenco.Open()

R_elenco_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
<link href="style_dvd.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.Stile1 {color: #FFFFFF}
.Stile4 {font-family: "BankGothic Lt BT"}
.Stile6 {font-family: "BankGothic Lt BT"; font-size: 10px; }
.Stile12 {font-family: "BankGothic Lt BT"; font-size: 10; }
.Stile15 {
color: #FF9900;
font-family: "BankGothic Lt BT";
}
.Stile17 {font-family: "BankGothic Lt BT"; color: #00CCFF; }
.Stile19 {color: #FF9900; font-family: "BankGothic Lt BT"; font-size: x-small; }
-->
</style>
</head>

<body>
<div align="center">
<table width="1000" height="90" border="0" cellpadding="0" cellspacing="0" class="up">
<tr>
<td>&nbsp;</td>
</tr>
</table>
<table width="1000" height="630" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="72" class="SX">&nbsp;</td>
<td width="862" valign="top" class="CENTRO"><table width="840" height="630" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="136" valign="top" class="DIVIDE"><table width="120" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><p class="Stile1"><%=(R_elenco.Fields.Item("Codice").Value)%></p>
</td>
</tr>
</table></td>
<td width="704" valign="top"><table width="657" height="625" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" valign="top"><table width="657" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="Stile17"><%=(R_elenco.Fields.Item("Testoprimariga").Value)%></span></td>
</tr>
<tr>
<td><span class="Stile15"><%=(R_elenco.Fields.Item("Descrizione Prodotto").Value)%></span></td>
</tr>
</table> </td>
</tr>
<tr>
<td width="312" align="center" valign="top"><table width="290" border="1" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td width="121" bgcolor="#FF9900" class="Stile1"><div align="left"><span class="Stile12">Codice</span></div></td>
<td width="163" class="Stile1"><span class="Stile4"><%=(R_elenco.Fields.Item("Codice").Value)%></span></td>
</tr>
<tr>
<td bgcolor="#FF9900" class="Stile1"><div align="left"><span class="Stile12">Lunghezza standard </span></div></td>
<td class="Stile1"><span class="Stile4"><%=(R_elenco.Fields.Item("Lunghezza standard").Value)%></span></td>
</tr>
<tr>
<td bgcolor="#FF9900" class="Stile1"><div align="left"><span class="Stile12">Lunghezza met&agrave; </span></div></td>
<td class="Stile1"><span class="Stile4"><%=(R_elenco.Fields.Item("Lunghezza Meta").Value)%></span></td>
</tr>
<tr>
<td bgcolor="#FF9900" class="Stile1"><div align="left"><span class="Stile12">Lunghezza Frazionatura </span></div></td>
<td class="Stile1"><span class="Stile4"><%=(R_elenco.Fields.Item("Lunghezza frazionatura").Value)%></span></td>
</tr>
<tr>
<td bgcolor="#FF9900" class="Stile1"><p align="left" class="Stile12">Peso </p></td>
<td class="Stile1"><span class="Stile4"><%=(R_elenco.Fields.Item("Peso Kg").Value)%></span></td>
</tr>
<tr>
<td bgcolor="#FF9900" class="Stile1"><p align="left" class="Stile12">Max T/mt</p></td>
<td class="Stile1"><span class="Stile4"><%=(R_elenco.Fields.Item("Max T/mt").Value)%></span></td>
</tr>
<tr>
<td bgcolor="#FF9900" class="Stile1"><div align="left"><span class="Stile12">Tipo di materiale </span></div></td>
<td class="Stile1"><span class="Stile6"><%=(R_elenco.Fields.Item("Desc_materiale").Value)%></span></td>
</tr>
<tr>
<td bgcolor="#FF9900" class="Stile1"><div align="left"><span class="Stile12">Prezzo</span></div></td>
<td class="Stile1"><span class="Stile4"><%=(R_elenco.Fields.Item("Prezzo").Value)%></span></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FF9900" class="Stile1"><div align="center"><img src="<%=(R_elenco.Fields.Item("Urlfoto").Value)%>" alt="Foto_descrittiva" width="250" /></div></td>
</tr>
</table></td>
<td width="345" align="center" valign="top"><a href="&lt;img src=&quot;<%=(R_elenco.Fields.Item("url_fotodisegninuovi").Value)%>&quot; alt=&quot;Disegno&quot; border=&quot;0&quot; /&gt;"><img src="<%=(R_elenco.Fields.Item("url_fotodisegninuovi").Value)%>" alt="Disegno" border="0" /></a></td>
</tr>
<tr>
<td colspan="2"><div align="center"><span class="Stile1"><img src="<%=(R_elenco.Fields.Item("foto_frz").Value)%>" alt="Frazionatura" /></span></div></td>
</tr>
<tr>
<td><span class="Stile19"><%=(R_elenco.Fields.Item("marca").Value)%></span></td>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="66" class="DX">&nbsp;</td>
</tr>
</table>
<table width="1000" height="41" border="0" cellpadding="0" cellspacing="0" class="SOTTO">
<tr>
<td>&nbsp;</td>
</tr>
</table>
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="232"><img src="immagini/bot_up.gif" alt="#" width="256" height="80" /></td>
<td width="768" rowspan="2"><img src="immagini/tecno.gif" width="744" height="181" /></td>
</tr>
<tr>
<td><img src="immagini/bot_dw.gif" alt="#" width="256" height="101" /></td>
</tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
</div>
</body>
</html>
<%
R_elenco.Close()
Set R_elenco = Nothing
%>

________________________________________
praticamente nel visualizzare i codici
a sx
<td valign="top"><p class="Stile1"><%=(R_elenco.Fields.Item("Codice").Value)%></p>
che visualizza il record
devono comparire in elenco ma dentro un certo rettangolo
oltre al quale i tasti dei pulsanti
sotto
devono mandare su o giu la parte evidenziata e in automatico diciamo cliccare sul codice

puls up
<img src="immagini/bot_up.gif" alt="#" width="256" height="80" />
puls dwn
<img src="immagini/bot_dw.gif" alt="#" width="256" height="101" />
grazie Paolo
 
Guarda,
l'esempio l'ho creato con il Dreamweaver.

Barra applicazione strumenti >> Barra di navigazione recordset >> Vai al record precedente//vai al record successivo.

Il codice lo genera in automatico, un pochino caotico ma almeno funziona.

Se hai problemi ti faccio un passo-passo.
 

Discussioni simili