tooltip in asp

**Lino80** · 17-03-2007, 14:20

esiste uno script per far ingrandire le immagini al passaggio del mouse che si può integrare in un codice asp con include?

grazie

**Xinod** · 17-03-2007, 14:39

Lino, cosa vuoi dire? quello che includi lato server non e' in diretta relazione con gli script javascript usati nel documento
spiegati meglio

**Lino80** · 17-03-2007, 15:14

ciao, devo applicare quello script in java in questa pagina che richiama il file inc_catalogo.asp:

codice:

<%
	'VERSIONE FILE 1.4.0

	Option Explicit
%>







<%
'---Dichiarazione variabili
	Dim QSCategoria, QSPg, QSQuery

'---Recupero le informazioni sulla scategoria, categoria e pagina
	QSCategoria = Request.QueryString("cat")
	QSSCategoria = Request.QueryString("scat")
	QSQuery = Request.QueryString("q")
	QSPg = Int(Request.QueryString("pg"))
	If QSPg <= 0 Then
		QSPg = 1
	End If
%>

<html>
<head>
<meta content="index,follow" name="robots">
<meta content="<%=Motori_Keywords%>" name="keywords">
<meta content="<%=Motori_Description%>" name="description">
<meta NAME="copyright" CONTENT="Software Open Source sviluppato dal team Merlin Wizard s.r.l., http://www.merlinwizard.com, info@mwizard.com">
<link rel="stylesheet" href="include/ecommerce.css">
<title><%=NomeSito%></title>
</head>

<body bgcolor="<%=Body_Sfondo%>" topmargin="<%=Body_TopMargin%>" leftmargin="<%=Body_LeftMargin%>" marginwidth="<%=Body_MarginWidth%>" marginheight="<%=Body_MarginHeight%>">
	<table width="780" cellspacing="0" cellpadding="0" align="center" border="0">
		<tr>
			<td colspan="5">
				
			</td>
		</tr>
		<tr bgcolor="<%=Navigazione_Sfondo%>">
			<td colspan="5" width="780">
				
			</td>
		</tr>
		<tr>
			<td width="120" height="0" bgcolor="<%=TabellaBig_Colore_SxDx%>" valign="top" align="center">
				

				

				

				

			</td>
			<td width="5" bgcolor="<%=TabellaBig_Colore_Cx%>" >
				
			</td>
			<td width="500" bgcolor="<%=TabellaBig_Colore_Cx%>" valign="top" bordercolor="#999999">
				


					
				</p>
				
			</td>
			<td width="5" bgcolor="<%=TabellaBig_Colore_Cx%>">
				
			</td>
			<td width="150" height="0" bgcolor="<%=TabellaBig_Colore_SxDx%>" valign="top" align="center">
				

				

				

				

			</td>
		</tr>
		
	</table>
</body>
</html>

<%
	Conn.Close
	Set Conn = Nothing
%>

inc_catalogo.asp:

[CODE]<%
'VERSIONE FILE 1.4.0
%>

<%
'---Dichiarazione variabili
Dim SQL, RS, I, Footer, RStip, Index, ArrQuery

If (QSSCategoria <> "") Or (QSQuery <> "") Then
%>
<p align="justify">
<%=Head_Catalogo%>
</p>
<table border="1" width="500" cellspacing="0" cellpadding="3" align="center" bordercolor="#CCCCCC">
<tr>
<td width="60">
</td>
<td width="75" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloProdotto%>
</td>
<td bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloPFoto%>
</td>
<td width="130" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloPDescrizione%>
</td>
<td width="100" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloCPrezzo%>
</td>
<td width="50" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloPulsante%>
</td>
</tr>
<%
If (QSSCategoria = "") AND (QSCategoria = "") AND (QSQuery = "") Then
Response.Redirect Request.ServerVariables("HTTP_REFERER")
Else
'---Stampo a video i prodotti delle categorie richieste
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.PageSize = MaxProdottiPerPagina

If QSQuery <> "" Then
QSQuery = Replace(QSQuery, "'", "''")
ArrQuery = Split(QSQuery, " ")
SQL = " SELECT * FROM Prodotti WHERE "
For i = 0 to UBound(ArrQuery, 1)
SQL = SQL & "(Prodotto LIKE '%" & ArrQuery(i) & "%' OR PDescrizione LIKE '%" & ArrQuery(i) & "%' OR GDescrizione LIKE '%" & ArrQuery(i) & "%') AND "
Next
SQL = SQL & "Cancellato = False"
RS.Open SQL, Conn, 1
Else
If (QSCategoria = "") Then
SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Categoria = 0 AND Cancellato = False "
RS.Open SQL, Conn, 1
End If

If (QSCategoria <> "") Then
SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False"
RS.Open SQL, Conn, 1
End If
End If

If Not RS.EoF Then
RS.MoveFirst
RS.AbsolutePage = QSPg

If QSPg <> 1 Then
Footer = "" & PrimaPagina & " "
Else
Footer = PrimaPagina & " "
End If

For I = 1 To RS.PageCount
If I = QSPg Then
Footer = Footer & I & " "
Else
Footer = Footer & ""& I &" "
End If
Next

If QSPg <> RS.PageCount Then
Footer = Footer & "" & UltimaPagina & ""
Else
Footer = Footer & UltimaPagina
End If

For I = 1 To RS.PageSize
If RS.EOF Then Exit For
%>
<tr bgcolor="<%=Tabella_Colore_Cella%>">
<form method="get" action="prod_aggiungi.asp">
<td bgcolor="<%=Tabella_Colore_Cella%>" width="60" valign="top">
<%
If RS("Offerta") = True Then
%>
[img]<%=Path_Img%>catalogo_ico_offerta.gif[/img]">

<%
End If
If StrToData(RS("Data")) > (Date - GiorniNovita) Then
%>
[img]<%=Path_Img%>catalogo_ico_nuovo.gif[/img]">

<%
End If
%>

">[img]<%=Path_Img%>catalogo_leggi_commenti.gif[/img]">

">[img]<%=Path_Img%>catalogo_scrivi_commenti.gif[/img]">
</td>
<td width="75" valign="top">

"><%=RS("Prodotto")%>
<%
If RS("Tipologia") = True Then
%>
<p align="center">
<%
Set RStip = Server.CreateObject("ADODB.RecordSet")
SQL = " SELECT * FROM Tipologie WHERE IDProdotto = "& RS("ID")

With RStip
.Open SQL, Conn, 1
If Not (.BOF And .EOF) Then
%>
<select name="Tipologia">
<%
Index = 1
Do While Not .EOF
If Index = 1 Then
%>
<option Selected value='<%=.Collect("ID")%>'><%=.Collect("Tipologia ")%>
<%
Else
%>
<option value='<%=.Collect("ID")%>'><%=.Collect("Tipologia ")%>
<%
End If

Index = Index + 1
.MoveNext
Loop
End If

.Close
End With

Set RStip = Nothing
%>
</select>
</p>
<%
End If
%>
</td>
<td align="center">
<img src="
<%
If RS("PFoto") <> "" Then
Response.Write RS("PFoto")
Else
Response.Write Path_IMG & Img_NonDisponibile_P
End If
%>
" width="<%=PFoto_Larghezza%>" height="<%=PFoto_Altezza%>">
</td>
<td width="130" valign="top">

<%=RS("PDescrizione")%>

<%If UtilizzaPrezzo(RS("PuntiSconto")) > 0 Then%>
<%=PuntiUsabili%>: <%=VisualizzaPrezzo(RS("PuntiSconto"))%><%End If%>

<%=Disponibilita%>:
<%
If ImmagineGiacenza Then
Response.Write "[img][/img]"
Else
If RS("GiacenzaInfinita") Then
Response.Write TestoGiacenzaInfinita
Else
Response.Write RS("Giacenza")
End If
End If
%>
</td>
<td width="100" valign="top">

<%=SimboloValuta%> <font color="red"><%=VisualizzaPrezzo(RS("CPrezzo"))%></font>
<%=Replace(IvaNonCompresa, "[iva]", RS("IVA"))%>
<%
If Session("Rivenditore") = True Then
%>

praticamente dovrei ingrandire questa immagine che si trova in questa parte del codice:

codice:

<img src="
<%
					If RS("PFoto") <> "" Then
						Response.Write RS("PFoto")
					Else
						Response.Write Path_IMG & Img_NonDisponibile_P
					End If
%>
					" width="<%=PFoto_Larghezza%>" height="<%=PFoto_Altezza%>">

**Lino80** · 17-03-2007, 15:15

praticamente dovrei ingrandire questa immagine che si trova in questa parte del codice:

codice:

<img src="
<%
					If RS("PFoto") <> "" Then
						Response.Write RS("PFoto")
					Else
						Response.Write Path_IMG & Img_NonDisponibile_P
					End If
%>
					" width="<%=PFoto_Larghezza%>" height="<%=PFoto_Altezza%>">

**Lino80** · 18-03-2007, 13:40

uppino :P

**Lino80** · 20-03-2007, 09:05

salve, dovrei inserire e far funzionare questo script del tooltip: http://www.xinod.it/scripts/tooltip_...ip_gallery.zip in questa pagina asp..

codice:

<%
	'VERSIONE FILE 1.4.0
%>

	


<%
'---Dichiarazione variabili
	Dim SQL, RS, I, Footer, RStip, Index, ArrQuery

	If (QSSCategoria <> "") Or (QSQuery <> "") Then
%>
	<p align="justify">
		<%=Head_Catalogo%>
	</p>
	<table border="1" width="500" cellspacing="0" cellpadding="3" align="center" bordercolor="#CCCCCC">
		<tr> 
			<td width="60">
			</td>
			<td width="75" bgcolor="<%=Tabella_Colore_Titolo%>">
				<%=TitoloProdotto%>
			</td>
			<td bgcolor="<%=Tabella_Colore_Titolo%>">
				<%=TitoloPFoto%>
			</td>
			<td width="130" bgcolor="<%=Tabella_Colore_Titolo%>">
				<%=TitoloPDescrizione%>
			</td>
			<td width="100" bgcolor="<%=Tabella_Colore_Titolo%>">
				<%=TitoloCPrezzo%>
			</td>
			<td width="50" bgcolor="<%=Tabella_Colore_Titolo%>">
				<%=TitoloPulsante%>
			</td>
		</tr>
<%
		If (QSSCategoria = "") AND (QSCategoria = "") AND (QSQuery = "") Then
			Response.Redirect Request.ServerVariables("HTTP_REFERER")
		Else
'---Stampo a video i prodotti delle categorie richieste
			Set RS = Server.CreateObject("ADODB.RecordSet")
			RS.PageSize = MaxProdottiPerPagina
			
			If QSQuery <> "" Then
				QSQuery = Replace(QSQuery, "'", "''")
				ArrQuery = Split(QSQuery, " ")
				SQL = " SELECT * FROM Prodotti WHERE "
				For i = 0 to UBound(ArrQuery, 1)
					SQL = SQL & "(Prodotto LIKE '%" & ArrQuery(i) & "%' OR PDescrizione LIKE '%" & ArrQuery(i) & "%' OR GDescrizione LIKE '%" & ArrQuery(i) & "%') AND "
				Next
				SQL = SQL & "Cancellato = False"
				RS.Open SQL, Conn, 1
			Else
				If (QSCategoria = "") Then
					SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Categoria = 0  AND Cancellato = False "
					RS.Open SQL, Conn, 1
				End If
	
				If (QSCategoria <> "") Then
					SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False"
					RS.Open SQL, Conn, 1
				End If
			End If

			If Not RS.EoF Then 
				RS.MoveFirst
				RS.AbsolutePage = QSPg

				If QSPg <> 1 Then
					Footer = "" & PrimaPagina & " "
				Else
					Footer = PrimaPagina & " "
				End If

				For I = 1 To RS.PageCount
					If I = QSPg Then
						Footer = Footer & I & " "
					Else
						Footer = Footer & ""& I &" "
					End If
				Next

				If QSPg <> RS.PageCount Then
					Footer = Footer & "" & UltimaPagina & ""
				Else
					Footer = Footer & UltimaPagina
				End If

				For I = 1 To RS.PageSize
					If RS.EOF Then Exit For
%>
		<tr bgcolor="<%=Tabella_Colore_Cella%>">
			<form method="get" action="prod_aggiungi.asp">
				<td bgcolor="<%=Tabella_Colore_Cella%>" width="60" valign="top">
<%
					If RS("Offerta") = True Then
%>
					[img]<%=Path_Img%>catalogo_ico_offerta.gif[/img]">
					

<%
					End If
					If StrToData(RS("Data")) > (Date - GiorniNovita) Then
%>
					[img]<%=Path_Img%>catalogo_ico_nuovo.gif[/img]">
					

<%
					End If
%>
					

					">[img]<%=Path_Img%>catalogo_leggi_commenti.gif[/img]">
					

					">[img]<%=Path_Img%>catalogo_scrivi_commenti.gif[/img]">
				</td>
				<td width="75" valign="top">
					

					"><%=RS("Prodotto")%>
<%	    
					If  RS("Tipologia") = True Then
%>
					<p align="center">
<%
						Set RStip = Server.CreateObject("ADODB.RecordSet")
						SQL = " SELECT * FROM Tipologie WHERE IDProdotto = "& RS("ID")

						With RStip
							.Open SQL, Conn, 1
							If Not (.BOF And .EOF) Then
%>
						<select name="Tipologia">
<%
								Index = 1
								Do While Not .EOF
									If Index = 1 Then
%>
							<option Selected value='<%=.Collect("ID")%>'><%=.Collect("Tipologia")%>
<%
									Else
%>
							<option value='<%=.Collect("ID")%>'><%=.Collect("Tipologia")%>
<%
									End If

									Index = Index + 1
									.MoveNext
								Loop
							End If

							.Close
						End With

    						Set RStip = Nothing
%>           
						</select>
					</p>
<%
					End If
%>
				</td>
				<td align="center">
					<img src="
<%
					If RS("PFoto") <> "" Then
						Response.Write RS("PFoto")
					Else
						Response.Write Path_IMG & Img_NonDisponibile_P
					End If
%>
					" width="<%=PFoto_Larghezza%>" height="<%=PFoto_Altezza%>">
				</td>
				<td width="130" valign="top">
					

					<%=RS("PDescrizione")%>
					

					<%If UtilizzaPrezzo(RS("PuntiSconto")) > 0 Then%>
<%=PuntiUsabili%>: <%=VisualizzaPrezzo(RS("PuntiSconto"))%><%End If%>
					
<%=Disponibilita%>: 
<%
					If ImmagineGiacenza Then
						Response.Write "[img][/img]"
					Else
						If RS("GiacenzaInfinita") Then
							Response.Write TestoGiacenzaInfinita
						Else
							Response.Write RS("Giacenza")
						End If
					End If
%>
				</td>
				<td width="100" valign="top">
					
<%=SimboloValuta%> <font color="red"><%=VisualizzaPrezzo(RS("CPrezzo"))%></font>
<%=Replace(IvaNonCompresa, "[iva]", RS("IVA"))%>
<%
					If Session("Rivenditore") = True Then
%>
					

					

					<%=TitoloRPrezzo%>:
					
<%=SimboloValuta%> <font color="red"><%=VisualizzaPrezzo(RS("RPrezzo"))%></font>
<%=Replace(IvaNonCompresa, "[iva]", RS("IVA"))%>
<%
					End If
%>
					
				</td>
				<td width="50" align="center">
					<input type="text" name="quantita" size="2" maxlength="5" value="1">
					<input type="hidden" name="ID" value="<%=RS("ID")%>">
<%
					If (RS("Giacenza") > 0) OR RS("GiacenzaInfinita") Then
%>
					<input type="image" src="<%=Path_Img%>catalogo_aggiungi.gif" name="Go" value="<%=AltPulsante%>" alt="<%=AltPulsante%>" border="0">
<%
					Else
%>
					[img]<%=Path_Img%>catalogo_aggiungi.gif[/img]" border="0">
<%
					End If
%>
				</td>
			</form>
		</tr>
<%
					RS.MoveNext
				Next
			Else
%>
		<tr bgcolor="<%=Tabella_Colore_Cella%>"> 
			<td colspan="6" align="center">
				

				<%=NoRecordTrovati%>
			</td>
		</tr>
<%
			End If
		End If
		RS.Close
%>
	</table>
<%
	End If
%>
	<div align="center">
		

        	<%=Footer%>
        </div>
	


		
	</p>

più precisamente ad esempio applicarla a questa immagine pulsante:

codice:

">[img]<%=Path_Img%>catalogo_leggi_commenti.gif[/img]">

chi mi può dare una mano?

grazie mille

**Xinod** · 20-03-2007, 11:49

perche' continui a postare codice asp? per esempio per me e' inseguibile

apri una pagina-tipo risultante da quel codice, visualizza l' html e incolla qui la parte interessante

**Lino80** · 20-03-2007, 12:38

perchè la pagina dove devo applicare lo script è in asp... e ha delle variabili...non devo eseguire lo script su una pagina normale html.. quello lo so fare..

**Xinod** · 20-03-2007, 12:40

personalmente non so aiutarti, anche volendo non riesco a seguire il codice
ciao

**Lino80** · 20-03-2007, 13:15

è abbastanza difficile penso... ci ho provato ma mi carica le foto a fondo pagina e non si vedono... speriamo che un esperto risponda

Discussione: tooltip in asp

Strumenti discussione

Ricerca discussione

Visualizza

tooltip in asp

Permessi di invio