Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  NUOVI SVILUPPI
      PROPOSTE
         Immagini in sequenza

Immagini in sequenza

Autore Messaggio
pathfinder

Amatore
Amatore
40 Discussioni


Profilo - pathfinder 		28 ottobre 2004 alle 09:41:55 Profilo - pathfinderInvia un messaggio privato Rispondi quotando
Ciao a tutti, il codice che propongo va migliorato comunque lo posto qui, magari con il vostro aiuto diminuiamo i tempi per migliorarlo...

ecco il codice:

Sub DisplayImgSequenza()

CreateTopTable "Immagini in sequenza", GetTranslation("LANG_IMG_SEQUENZA")

Response.write "<script language=""Java_Script1.2"">"

Response.write "function reapply(){" & vbCRLF
Response.write "setTimeout(""slideit()"",2000)" & vbCRLF
Response.write "return true" & vbCRLF
Response.write "}" & vbCRLF

Response.write "window.onerror=reapply" & vbCRLF
Response.write "</script>" & vbCRLF
Response.write "<script language=""Java_Script1.1"">" & vbCRLF
Response.write "<!--" & vbCRLF
Response.write "var image1=new Image()" & vbCRLF
Response.write "image1.src=""public/upload/ImgSimboliHotels/immagine01.jpg""" & vbCRLF
Response.write "var image2=new Image()" & vbCRLF
Response.write "image2.src=""public/upload/ImgSimboliHotels/immagine02.jpg"" " & vbCRLF
Response.write "var image3=new Image() " & vbCRLF
Response.write "image3.src=""public/upload/ImgSimboliHotels/immagine03.jpg"" " & vbCRLF
Response.write "var image4=new Image() " & vbCRLF
Response.write "image4.src=""public/upload/ImgSimboliHotels/immagine04.jpg"" " & vbCRLF
Response.write "//--> " & vbCRLF
Response.write "</script> " & vbCRLF
Response.write "<CENTER>" & vbCRLF

Response.Write " <table border=""0"" width=""100%"">" & vbCRLF
Response.Write " <td><center>" & vbCRLF
Response.write "<a href=""Java_Script:slidelink()"" onMouseover=""window.status='';return true"" onMouseout=""window.status=''""><img src=""public/upload/ImgSimboliHotels/immagine01.jpg"" name=""slide"" border=1 style=""filter:blendTrans(duration=2)""></a>" & vbCRLF
Response.Write " </center></td>" & vbCRLF
Response.Write " </table>" & vbCRLF

Response.write "<script>" & vbCRLF
Response.write "<!--" & vbCRLF
Response.write "////change number of images below " & vbCRLF
Response.write "var number_of_images=4" & vbCRLF
Response.write "//change speed below (in seconds)" & vbCRLF
Response.write "var speed=2" & vbCRLF
Response.write "var step=1" & vbCRLF
Response.write "var whichimage=1" & vbCRLF
Response.write "function slideit(){" & vbCRLF
Response.write "if (!document.images)" & vbCRLF
Response.write "return" & vbCRLF
Response.write "if (document.all)" & vbCRLF
Response.write "slide.filters.blendTrans.apply()" & vbCRLF
Response.write "document.images.slide.src=eval(""image""+step+"".src"")" & vbCRLF
Response.write "if (document.all)" & vbCRLF
Response.write "slide.filters.blendTrans.play()" & vbCRLF
Response.write "whichimage=step" & vbCRLF
Response.write "if (step<number_of_images)" & vbCRLF
Response.write "step++" & vbCRLF
Response.write "else" & vbCRLF
Response.write "step=1" & vbCRLF
Response.write "if (document.all)" & vbCRLF
Response.write "setTimeout(""slideit()"",speed*1000+3000)" & vbCRLF
Response.write "else" & vbCRLF
Response.write "setTimeout(""slideit()"",speed*1000)" & vbCRLF
Response.write "}" & vbCRLF
Response.write "function slidelink(){" & vbCRLF
Response.write "if (whichimage==1)" & vbCRLF
Response.write "window.location=""http://www.html.it""" & vbCRLF
Response.write "else if (whichimage==2)" & vbCRLF
Response.write "window.location=""http://www.html.it""" & vbCRLF
Response.write "else if (whichimage==3)" & vbCRLF
Response.write "window.location=""http://www.html.it""" & vbCRLF
Response.write "else if (whichimage==4)" & vbCRLF
Response.write "window.location=""http://www.html.it""" & vbCRLF
Response.write "}" & vbCRLF
Response.write "//-->" & vbCRLF
Response.write "</script>" & vbCRLF
Response.write "</CENTER>" & vbCRLF


CreateBottomTable ""


End Sub

******************************

Creare una pagina con il codice sopra e salvarla nella cartella public (img_sequenza.asp)
Creare una DIR in public/upload/cartella dove inserite le immagini ( a voi la scelta per la creazione )

Per la creazione del blocco grafico, utilizzate il tutorials.

Ciao a tutti

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 115
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 425 Notizie: 180 Sondaggi: 11 Preferiti: 202636 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi