News scorrevoli + DB

**zeweb** · 30-08-2004, 09:00

Qualcuno mi sa aiutare a costruire delle News scorrevoli che prelevano datio da un DB ?

Avevo letto che bastava aggiungere ad una parte di codice DHTML il ciclo che estrae le news...o no ?

Visto che non c'è nulla su questo forum di già fatto...pensavo fosse utile a tutti !

Grazie.

**zeweb** · 30-08-2004, 09:05

si potrebbe applicare un ciclo a questo DHTML marquee compatibile sia IE che netscape ?

codice:

<TITLE>Demo Dynamic HTML: esempio pratico </TITLE>
</HEAD>
<BODY bgcolor="white" >
<script language="JavaScript1.2">
//Specify the marquee's width (in pixels)
var marqueewidth=330
//Specify the marquee's height (in pixels, pertains only to NS)
var marqueeheight=20
//Specify the marquee's scroll speed (larger is faster)
var speed=6
//Specify the marquee contents
var marqueecontents='<font face="Arial"><big>HTML.it è il primo sito in italiano dedicato a Dynamic HTML . Questa demo funziona correttamente sia con MSIE che con NS, non usate accenti con apici singoli</big></font>'

if (document.all)
document.write('<marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+marqueecontents+'</marquee>')

function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}

function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write('<nobr>'+marqueecontents+'</nobr>')
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.width
scrollit()
}

function scrollit(){
if (document.cmarquee01.document.cmarquee02.left>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.left-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.left=marqueewidth
scrollit()
}
}

window.onload=regenerate2
</script>


<ilayer width=&{marqueewidth}; height=&{marqueeheight}; name="cmarquee01">
<layer name="cmarquee02"></layer>
</ilayer>
</body>
</html>

**teorema55** · 30-08-2004, 09:47

Una possibilità base, ancora suscettibile di molti miglioramenti, è

codice:

<html>
<head>
<title>Scrolling news</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<BODY>



<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/HRcafe.mdb") 

'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

Set rs = Server.CreateObject("ADODB.Recordset")

nometabella="eventi2"  ' inserisci qui il nome della tabella da vedere

SQL = "select * From "&nometabella&""

'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico
stringa = ""
do until rs.eof

For Each campo in rs.Fields
stringa = stringa & campo &""
next

rs.movenext
loop
%>

<script language="JavaScript1.2">
//Specify the marquee's width (in pixels)
var marqueewidth=700
//Specify the marquee's height (in pixels, pertains only to NS)
var marqueeheight=20
//Specify the marquee's scroll speed (larger is faster)
var speed=6
//Specify the marquee contents
var marqueecontents='<font face="Arial"><big><%=stringa%></big></font>'

if (document.all)
document.write('<center><marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+marqueecontents+'</marquee></center>')

function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}

function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write('<nobr>'+marqueecontents+'</nobr>')
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.width
scrollit()
}

function scrollit(){
if (document.cmarquee01.document.cmarquee02.left>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.left-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.left=marqueewidth
scrollit()
}
}

window.onload=regenerate2
</script>


<ilayer width=&{marqueewidth}; height=&{marqueeheight}; name="cmarquee01">
<layer name="cmarquee02"></layer>
</ilayer>

<%
rs.close
set rs=nothing

'chiudo tutto
objConn.close
set objconn=nothing
%>

</body>
</html>

Il risultato è qui, confrontato con la tabella da cui sono presi i dati:

http://www.larianaweb.com/risorse/scrolling_news.asp

Ho aggiunto una coppia di tag <center> e </center> al javascript.

**zeweb** · 30-08-2004, 10:52

Grazie....ho provato ma non mi fa vedere nella !

ma i tag <center> e </center> al javascript sono indispensabili ?

codice:

<html>
<head>
<title>Scrolling news</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<BODY>



<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/cedab.mdb") 

'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

Set rs = Server.CreateObject("ADODB.Recordset")

nometabella="news"  ' inserisci qui il nome della tabella da vedere

SQL = "select * From "&nometabella&""

'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico
stringa = ""
do until rs.eof

For Each campo in rs.Fields
stringa = stringa & campo &"    "
next

rs.movenext
loop
%>

<script language="JavaScript1.2">
//Specify the marquee's width (in pixels)
var marqueewidth=700
//Specify the marquee's height (in pixels, pertains only to NS)
var marqueeheight=20
//Specify the marquee's scroll speed (larger is faster)
var speed=6
//Specify the marquee contents
var marqueecontents='<font face="Arial"><big><%=stringa%></big></font>'

if (document.all)
document.write('<center><marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+marqueecontents+'</marquee></center>')

function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}

function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write('<nobr>'+marqueecontents+'</nobr>')
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.width
scrollit()
}

function scrollit(){
if (document.cmarquee01.document.cmarquee02.left>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.left-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.left=marqueewidth
scrollit()
}
}

window.onload=regenerate2
</script>


<ilayer width=&{marqueewidth}; height=&{marqueeheight}; name="cmarquee01">
<layer name="cmarquee02"></layer>
</ilayer>

<%
rs.close
set rs=nothing

'chiudo tutto
objConn.close
set objconn=nothing
%>

</body>
</html>

**zeweb** · 30-08-2004, 10:59

se inserisco solo un campo da leggere è OK anche se me le attacca troppo, si possono inserire spazi tra le news e eventualmente un link ?

**zeweb** · 30-08-2004, 12:00

ho provato così ma non va !

codice:

<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/cedab.mdb") 

'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

Set rs = Server.CreateObject("ADODB.Recordset")

nometabella="news"  ' inserisci qui il nome della tabella da vedere

SQL = "select headline From "&nometabella&""

'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico
stringa = ""
do until rs.eof

For Each campo in rs.Fields
stringa = stringa & campo &"    "
next

rs.movenext
loop
%>

codice:

var marqueecontents='<span class="testo"><%=stringa%></span>'

**zeweb** · 30-08-2004, 14:03

sono riuscito ad arrivare qui...

[CODE]
<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/cedab.mdb")

'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

Set rs = Server.CreateObject("ADODB.Recordset")

nometabella="news" ' inserisci qui il nome della tabella da vedere

SQL = "select headline From "&nometabella&""

'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico
stringa = ""
do until rs.eof

For Each campo in rs.Fields
stringa = stringa & campo &" "
next

rs.movenext
loop
%>
<link href="/stili.css" rel="stylesheet" type="text/css">

<span class="testo">
<MARQUEE direction="left" scrollamount="3" scrolldelay="30" onMouseover="this.stop()" onMouseout="this.start()" height="44" width="800"><%=stringa%>
</MARQUEE></span>
[CODE]

ma mi manca :

1) più tempo da una news all'altra
2) passare l'ID sul link

:master:

**zeweb** · 30-08-2004, 14:33

mi restituisce questo errore ?

'loop' without 'do'
/news_ticker2.asp, line 22
loop

codice:

<marquee behavior="Scroll" direction="Up" height="110" width="110" scrollamount="2" scrolldelay="15" onMouseOver="this.stop()" onMouseOut="this.start()" class="title">
<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/cedab.mdb") 

'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection")
'open connession to database
objConn.Open cstring
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 3, 3 'cursore dinamico
nometabella="news"  ' inserisci qui il nome della tabella da vedere
sql = "Select headline from news where status = 1" 
if rs.recordCount <> 0 then     'se ho recuperato almeno 1 record
   rs.moveFirst
   for c = 1 to nNewsFlash      'nNewsFlash = numero di flash news da visualizzare (4)
      if not rs.eof then        'se non sono alla fine del recordset
          response.Write("<span class=""testo"">" & rd("headline") & "")
          rs.moveNext
end if
   next
Do While NOT rs.EOF
end if
rs.close
set rs = nothing
%>
</marquee>

**teorema55** · 30-08-2004, 16:00

....ho provato ma non mi fa vedere nella !

non c'è problema, guarda sul mio sito!

:maLOL: :maLOL:

Scusa, sto solo scherzando.....do' un'occhiata ai tuoi messaggi successivi per vedere se posso dirti qualche cosa.......un attimo.

**zeweb** · 30-08-2004, 16:10

ok grazie veramente !!!!

ho provato a riscrivere ma sbaglio qualcosa !

[CODE]
<marquee behavior="Scroll" direction="Up" height="110" width="110" scrollamount="2" scrolldelay="15" onMouseOver="this.stop()" onMouseOut="this.start()" class="title">
<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/cedab.mdb")

'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")
'open connession to database
objConn.Open cstring
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 3, 3 'cursore dinamico
nometabella="news" ' inserisci qui il nome della tabella da vedere
sql = "Select headline from news where status = 1"
if rs.recordCount <> 0 then
do until rs.eof
for c = 1 to nNewsFlash
if not rs.eof then
response.Write("<span class=""testo"">" & rd("headline") & "")
rs.moveNext
loop
rs.close
set rs = nothing
%>
</marquee>

Discussione: News scorrevoli + DB

Strumenti discussione

Ricerca discussione

Visualizza

News scorrevoli + DB

Permessi di invio