4 svar · 240 visningar · startad av paddan
Hej Hej!
Jag har fått tag i detta scriptet:
<%
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath("/sponsor/"))
set files = folder.files
for each Item in files
response.write "<img src='sponsor/"& Item.name &"'>"
Next
set folder = nothing
set fso = nothing
set files =nothing
%>
Det listar jo alla bilderna..nu kommer det till problemet!
Vi säger att jag döper en fil till adidas.com.gif
Då vill jag att Den ska visa bilden som länk och skriva ut http://www.adidas.com som länk!
Hur gör man det??
Mvh Martin
function getAddr(imgname)
imgname = replace(imgname, ".gif", "")
imgname = replace(imgname, ".jpg", "")
getAddr = "http://" & imgname & "/"
end function
Kalla på funktionen:
sItemName = Item.Name
response.write "<a href=""" & getAddr(sItemName) & """><img src=""" & sItemname & """ border=""0""></a>"
Du får inte ha funktionsdefinitionen i en loop.
Det blir fel...
Fel med:
Kompileringsfel i Microsoft VBScript fel '800a03ea'
Syntaxfel
Den pekar på det sista...</a>
<%
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath("/sponsor/"))
set files = folder.files
function getAddr(imgname)
imgname = replace(imgname, ".gif", "")
imgname = replace(imgname, ".jpg", "")
getAddr = "http://" & imgname & "/"
end function
for each Item in files
sItemName = Item.Name
response.write "<a href=""" & getAddr(sItemName) & """><img src=""" & sItemname & """ border=""0"">"</a>"
Next
set folder = nothing
set fso = nothing
set files =nothing
%>
Ett citationstecken för mycket mellan html-taggarna, det borde du också kunna se?
Ta bort " precis före </a>.