ASP e JScript?

**zinzi** · 09-07-2003, 19:09

Salve a tutti.
Il mio problema presumo sia abbastanza semplice (per voi).
Praticamente ho uno script asp che mi fa un query su un mdb via recordset e mi ricava dei dati che utilizzo come voci di menu (titolo, link ed informazione).

Poi ho scaricato il "jscript_051101" fatto però in Javascript stavolta, che via Array fa un menù dinamico. Come posso integrare le variabile pescate dal DB nello script Javascript?

Nel codice seguente ho integrato i due codice in una sola pagina ASP ma con le funzioni distaccate. Sapreste unirle?

Grazie.
------------------------------ codice ----------------------------
<HTML>
<script language="javascript" src="../_script/rollover.js"></script>
<HEAD>
<TITLE>Menù Left</TITLE>

<style>
A:link, A:visited { text-decoration: none }

</style>

</HEAD>
<BODY BGCOLOR="white" vlink="blue" link="blue" topmargin="0" leftmargin="0">

<%
Dim adoCon
Dim adoRst
'Creo un oggetto per la connessione
Set adoCon = Server.CreateObject("ADODB.Connection")

'Creo un oggetto per il recordset
Set adoRst = Server.CreateObject("ADODB.Recordset")

'Apro la connessione al DB
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("menu.mdb")

'Eseguo la query recuperando tutti i campi dal DB e ordinandoli per indice
adoRst.Open "SELECT * FROM Menu ORDER BY Indice;", adoCon

'Finchè non siamo arrivati alla fine dei dati
While Not adoRst.EOF
%>
" title="<%=adoRst("info")%>"><%=adoRst("titolo")%>
<%
'mi muovo sul record successivo
adoRst.MoveNext

if not adoRst.Eof Then
End If
Wend
'chiudo il recordset
adoRst.Close
'chiudo il DB
adoCon.Close
'Elimino i riferimenti
Set adoCon = Nothing
Set adoRst = Nothing
%>

<left><DIV ID=mv2></DIV></left>
<script LANGUAGE="JavaScript">
document.write('<STYLE TYPE="text/css">\na.mv2style {color:#ffffff;text-decoration:none;}\na:hover.mv2style {color:#CC0000;text-decoration:underlined;}\n</STYLE>');

mv2_menu = new Array();
mv2_lien = new Array();

mv2_menu[0] = 'Html.it';
mv2_menu[1] = 'Linguaggi web';
mv2_menu[2] = 'Risorse';
mv2_menu[3] = 'Forum';

mv2_lien[0] = ' . Home page
'
mv2_lien[1] = ' . Freephp
'
mv2_lien[2] = ' . Javascript
'
mv2_lien[3] = ' . Forum Php
';
mv2_lien[1] += ' . Freeasp
';
mv2_lien[1] += ' . Cgipoint
';
mv2_lien[2] += ' . Dhtml
';
mv2_lien[2] += ' . Applet Java
';
mv2_lien[3] += ' . Forum Html
';
mv2_lien[3] += ' . Discussioni Off Topic
';

mv2_pos = -1;
function mv2_menu_draw()
{
mv2_aff = "<TABLE BORDER=0 BGCOLOR=#ffffff CELLPADDING=0 CELLSPACING=0 WIDTH=200><TR><TD><TABLE BORDER=0 CELLPADDING=3 CELLSPACING=1 WIDTH=100%>";
for(a=0;a<mv2_menu.length;a++)
{
if(mv2_pos == a || !document.getElementById)
bgcolor = "#006699";
else
bgcolor = "#99CCFF";
if(document.getElementById)
mv2_aff += "<TR><TD BGCOLOR="+bgcolor+"><A HREF=\"#\" onMouseOver=\"mv2_pos="+a+";mv2_menu_draw()\" CLASS=mv2style><FONT FACE=\"Verdana\" SIZE=2>"+mv2_menu[a]+"</FONT></A></TD></TR>";
else
mv2_aff += "<TR><TD BGCOLOR="+bgcolor+"><FONT FACE=\"Verdana\" SIZE=2 COLOR=#000000>"+mv2_menu[a]+"</FONT></TD></TR>"
if(mv2_pos == a || !document.getElementById)
mv2_aff += "<TR><TD BGCOLOR="+bgcolor+"><FONT FACE=\"Verdana\" SIZE=1>"+mv2_lien[a]+"</FONT></TD></TR>";
}
mv2_aff += "</TABLE></TD></TR></TABLE>";
if(document.getElementById)
document.getElementById("mv2").innerHTML = mv2_aff;
else
document.write(mv2_aff);
}

mv2_menu_draw();
</script>

</BODY>
</HTML>
----------------------------- FINE CODICE -----------------------

**Dennis** · 09-07-2003, 19:56

esempio...

mv2_lien[0] = ' . Home page
'

dovresti sostituire
http://10.254.156.17:81

con l'indirizzo ricavato dal database...

ora nn so come funziona ASP, ma a intuito farei...

mv2_lien[0] = ' . Home page
'

**zinzi** · 09-07-2003, 20:11

Mi sono espresso male... e scusate per l'errore con quell'IP address... comunque ripensandoci, io preferirei che fare un ciclo FOR che assegna l'array. Mi spiego meglio:

NEL CODICE...........
----- LA DEFINIZIONE DEGLI ARRAY --------
mv2_menu = new Array();
mv2_lien = new Array();

----- 'ASSEGNAZIONE DEI VALORI--------
(qui vorrei mettere un ciclo FOR che pesca i dati dal DB menù a seconda delle ricorrenze trovate)

mv2_menu[0] = 'Html.it';
mv2_menu[1] = 'Linguaggi web';
mv2_menu[2] = 'Risorse';
mv2_menu[3] = 'Forum';

----- 'ASSEGNAZIONE DEI LINKS--------

(la stessa cosa ancke qui)

mv2_lien[0] = ' . Home page
'
mv2_lien[1] = ' . Freephp
'
mv2_lien[2] = ' . Javascript
'
mv2_lien[3] = ' . Forum Php
';
mv2_lien[1] += ' . Freeasp
';
mv2_lien[1] += ' . Cgipoint
';
mv2_lien[2] += ' . Dhtml
';
mv2_lien[2] += ' . Applet Java
';
mv2_lien[3] += ' . Forum Html
';
mv2_lien[3] += ' . Discussioni Off Topic
';
---------------------------- FINE ----------------------
Sono stato chiaro questa volta?

**Dennis** · 09-07-2003, 20:18

dovresti farlo in ASP il ciclo... quindi... prova a chiedere su ASP

**br1** · 09-07-2003, 22:40

codice:

n = 0;
until rs.eof
  response.write "mv2_menu[" & n & "] = '" & rs("campoDB") & "';" & vbCrLf
  n = n + 1 
  rs.MoveNext
loop

ciao

**zinzi** · 10-07-2003, 10:34

Perdonami ma non riesco ad integrare il codice..
Nella prima parte interrogo il DB e quindi mi restituisce le occorrenze, nella seconda invece c'è il menu a tendina......
--------------------------- INIZIO ---------------------------
<HTML>
<HEAD>
<TITLE>Menù Left</TITLE>

<style>
A:link, A:visited { text-decoration: none }

</style>

</HEAD>
<BODY BGCOLOR="white" vlink="blue" link="blue" topmargin="0" leftmargin="0">

<%
Dim adoCon
Dim adoRst
'Creo un oggetto per la connessione
Set adoCon = Server.CreateObject("ADODB.Connection")

'Creo un oggetto per il recordset
Set adoRst = Server.CreateObject("ADODB.Recordset")

'Apro la connessione al DB
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("menu.mdb")

'Eseguo la query recuperando tutti i campi dal DB e ordinandoli per indice
adoRst.Open "SELECT * FROM Menu ORDER BY Indice;", adoCon

'Finchè non siamo arrivati alla fine dei dati
While Not adoRst.EOF

%>
" title="<%=adoRst("info")%>"><%=adoRst("titolo")%>

<%
'mi muovo sul record successivo
adoRst.MoveNext

if not adoRst.Eof Then
End If
Wend
'chiudo il recordset
adoRst.Close
'chiudo il DB
adoCon.Close
'Elimino i riferimenti
Set adoCon = Nothing
Set adoRst = Nothing
%>

<left><DIV ID=mv2></DIV></left>

<script LANGUAGE="JavaScript">

document.write('<STYLE TYPE="text/css">\na.mv2style {color:#ffffff;text-decoration:none;}\na:hover.mv2style {color:#CC0000;text-decoration:underlined;}\n</STYLE>');

mv2_menu = new Array();
mv2_lien = new Array();

mv2_menu[0] = 'Html.it';
mv2_menu[1] = 'Linguaggi web';

mv2_lien[0] = ' . Home page
'
mv2_lien[1] = ' . Freephp
'
mv2_lien[1] += ' . Freeasp
';
mv2_lien[1] += ' . Cgipoint
';

mv2_pos = -1;
function mv2_menu_draw()
{
mv2_aff = "<TABLE BORDER=0 BGCOLOR=#ffffff CELLPADDING=0 CELLSPACING=0 WIDTH=200><TR><TD><TABLE BORDER=0 CELLPADDING=3 CELLSPACING=1 WIDTH=100%>";
for(a=0;a<mv2_menu.length;a++)
{
if(mv2_pos == a || !document.getElementById)
bgcolor = "#006699";
else
bgcolor = "#99CCFF";
if(document.getElementById)
mv2_aff += "<TR><TD BGCOLOR="+bgcolor+"><A HREF=\"#\" onMouseOver=\"mv2_pos="+a+";mv2_menu_draw()\" CLASS=mv2style><FONT FACE=\"Verdana\" SIZE=2>"+mv2_menu[a]+"</FONT></A></TD></TR>";
else
mv2_aff += "<TR><TD BGCOLOR="+bgcolor+"><FONT FACE=\"Verdana\" SIZE=2 COLOR=#000000>"+mv2_menu[a]+"</FONT></TD></TR>"
if(mv2_pos == a || !document.getElementById)
mv2_aff += "<TR><TD BGCOLOR="+bgcolor+"><FONT FACE=\"Verdana\" SIZE=1>"+mv2_lien[a]+"</FONT></TD></TR>";
}
mv2_aff += "</TABLE></TD></TR></TABLE>";
if(document.getElementById)
document.getElementById("mv2").innerHTML = mv2_aff;
else
document.write(mv2_aff);
}

mv2_menu_draw();
</script>

</BODY>
</HTML>
----------------------------------- FINE ----------------------------

Discussione: ASP e JScript?

Strumenti discussione

Ricerca discussione

Visualizza

ASP e JScript?

Re:

Permessi di invio