Bildvisning

3 svar · 173 visningar · startad av Skarre 5 okt. 2001

SkarreMedlem sedan apr. 20012 427 inlägg

Trådstart5 okt. 2001 16:24#1

Jag testade precis följande kod och bilderna på hemsidan får istället för en http-sökväg en sökväg liknande "file:///D:/home/www/bilder/Caprice.jpg". Vad gör jag för fel?

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("/bilder"))
Set Files = Folder.Files

For each Item In Files
Response.Write "<img src='" & Item & "'>"
Next
%>

juventus1Medlem sedan dec. 2000399 inlägg

5 okt. 2001 16:55#2

Hej!

Du får ersätta den oönskade delen av sökvägen med nåt bättre. Testa med något liknande detta:

replace(Item,"file:///D:/home/www/","http://www.dindoman.se/")

SkarreMedlem sedan apr. 20012 427 inlägg

5 okt. 2001 21:27#3

Och hur skulle den koden se ut implementerad i mitt exempel? Jag har försökt, men jag kan inte tänka mig att det ska se ut enligt nedan.

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder([b]replace(Item, Server.Mappath("/bilder"),"http://www.doman.se/bilder/")[/b])
Set Files = Folder.Files

For each Item In Files
	Response.Write "<img src='" & Item & "'>"
Next
%>

LarsGMedlem sedan dec. 200012 464 inlägg

5 okt. 2001 21:52#4

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("/bilder"))

Set Files = Folder.Files
For each Item In Files
Response.Write "<img src='" & replace(Item, Server.Mappath("/bilder"),"http://www.doman.se/bilder")) & "'>"
Next
%>

Ungefär, du kanske måste lägga till en / eller så. Orkar inte tänka mer nu.