24. april 2004 - 00:31Der er
17 kommentarer og 1 løsning
Random image problem
Hejsa ekspertere
hvad er der galt med denne kode?
Dim path = "C:\inetpub\wwwroot\images\" Dim dir As New DirectoryInfo(path) Dim files As FileInfo() = dir.GetFiles("*.jpg") Dim random As New Random Dim ranNum = random.Next(0, UBound(files) + 1) Image1.ImageUrl = (" & path & files(ranNum).Name & ")
Koden virker ikke og giver denne error:
Compilation Error Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg har denne her kode som virker FINT men nu vil jeg bare bruge IMAGE.
Dim path = "C:\inetpub\wwwroot\images\" Dim dir As New DirectoryInfo(path) Dim files As FileInfo() = dir.GetFiles("*.jpg") Dim random As New Random Dim ranNum = random.Next(0, UBound(files)+1) response.Write("<img Height=""218px"" Width=""238px"" src='" & path & files(ranNum).Name & "'>")
Denne her er ikke så meget problemet men jeg kunne ønske mig at bruge en ASP.NET image.
Dim path = "C:\inetpub\wwwroot\images\" Dim dir As New DirectoryInfo(path) Dim files As FileInfo() = dir.GetFiles("*.jpg") Dim random As New Random Dim ranNum = random.Next(0, UBound(files) + 1) Image1.Attributes.Add("src",path & files(ranNum).Name)
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.