14. februar 2008 - 20:13Der er
7 kommentarer og 1 løsning
fra mappe i stedet for fra DB?
Hej derude. Jeg fik for noget tid siden hjælp herinde til at stykke noget javascript sammen så den kunne blande billederne der lå i en database - Hvilket kom til at fungere lige som det skulle,
MEN nu tænker jeg så om man ikke kan lave denne funktion med en mappe på webstedet i stedet for fra en database?
håber den gamle kode kan nøjes med at modernisere en smule??
Set rs=Conn.Execute("select [imgfile], [tekst] from [topbanner]") Do While Not rs.EOF If i>0 Then strSlideimages=strSlideimages&"," strSlidetekst=strSlidetekst&"," End If strSlideimages=strSlideimages&""""&rs("imgfile")&"""" strSlidetekst=strSlidetekst&""""&rs("tekst")&"""" i=i+1 rs.MoveNext Loop rs.Close%> <script language="JavaScript1.1"> var slidespeed=3000 var slideimages=new Array(<%=strSlideimages%>) var slidetekst=new Array(<%=strSlidetekst%>) var imageholder=new Array() var ie=document.all for (i=0;i<slideimages.length;i++){ imageholder[i]=new Image() imageholder[i].src=slideimages[i] } </script>
# <body> <img src="image1.gif" name="slide" border="0" style="filter:blendTrans(duration=3)" width="595px" height="100px"> <script language="JavaScript1.1"> var whichlink = whichimage = Math.floor(Math.random()*slideimages.length); var blenddelay=(ie)? document.images.slide.filters[0].duration*1000 : 0 function slideit(){ if (!document.images) return if (ie) document.images.slide.filters[0].apply() document.images.slide.src=imageholder[whichimage].src if (ie) document.images.slide.filters[0].play() whichlink=whichimage whichimage = Math.floor(Math.random()*slideimages.length); setTimeout("slideit()",slidespeed+blenddelay) } slideit() </script>
Eller er det nemmere bare at starte på en frisk med et helt nyt stykke script
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
ASP koden til generering af liste over billedetyper, f.eks. gif, jpg, jpeg (du kan selv tilføje flere), ved at kalde GetImages..
Her er ASP koden:
Function GetImages() Dim stien, tilladte_filtyper
' ----- Rediger disse oplysninger:
' * Stien til mappen med billederne ("." er den nuværende mappe, som ASP filen ligger i): stien = "."
' * Her indtaster du de filtyper der skal med i listen (filtypen omkrandses af "," (komma) ): tilladte_filtyper = ",gif,jpg,jpeg,"
' ----- Redigering STOP!
Dim file, files, fso, folder Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(Server.MapPath(stien)) Set files = folder.Files
' Hvis det er en tilladt filtype, tilføjes den til listen: If InStr(tilladte_filtyper, "," & filetype & ",") > 0 Then strSlideimages = strSlideimages & """" & file.name & """" & "," Next
' Frigør resoucerne igen: Set files = Nothing Set folder = Nothing Set fso = nothing
' Fjern det sidste komma hvis det er nødvendigt If Right(strSlideimages, 1) = "," Then strSlideimages = Left(strSlideimages, Len(strSlideimages) - 1)
' Returner listen: GetImages = strSlideimages End Function
Du bruger koden sådan her:
var slideimages=new Array(<%=GetImages%>);
Så kan du fjerne disse linier fra din eksisterende kode:
jamen det kører da en eller anden form for fade kan jeg se... - desværre uden mine billeder...
jeg har mit websted:
root :. grafik :. slide (her ligger de billeder som ska bruges index.asp (denne side scriptet kører på)
derfor ville jeg mene at der sku stå følgende i: ' * Stien til mappen med billederne ("." er den nuværende mappe, som ASP filen ligger i): stien = "grafik/slide"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.