href på billede virker ikke?
Hej E.Jeg har nedenstående kode:
(Den går at alle billeder i mappen Images bliver vist)
<%
Function ShowFolderList()
folderspec = server.mappath("/Images/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
if lcase(right(file, 3)) = "jpg" then
tmp = tmp & "<img src=/Images/" & file.name & "><BR>"
end if
Next
ShowFolderList = tmp
End Function
response.write showfolderlist()
%>
Det virker fint, men jeg vil gerne lige tilføje lidt kode.
Det jeg er ude efter at er billedet bliver vist med denne tilføjelse:
<a href="#"><img src="../Images/" & file.name & "" onClick="skrivsti(this.src)" border="0"></a>
Men jeg kan ikke få det til at virke.
Håber der er en som kan hjælpe mig :-)
Her er hele koden:
<html>
<head>
<title>Vælg billede</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/JavaScript">
function skrivsti(str)
{
opener.document.Indlaeg.Tekst.value +='<img src="';
opener.document.Indlaeg.Tekst.value +=str;
opener.document.Indlaeg.Tekst.value +='">';
window.close();
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>
<%
Function ShowFolderList()
folderspec = server.mappath("/Images/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
if lcase(right(file, 3)) = "jpg" then
'tmp = tmp & "" & file.name & "<a href="#"><img src="/Images/" onClick="skrivsti(this.src)" border="0"></a><BR>"
'Denne virker
'tmp = tmp & "<img src=/Images/" & file.name & "><BR>"
tmp = tmp & "<img src=/Images/" & file.name & "><BR>"
end if
Next
ShowFolderList = tmp
End Function
response.write showfolderlist()
%>
<a href="#"><img src="../Images/showimage1.jpg" onClick="skrivsti(this.src)" border="0"></a>
</p>
</body>
</html>
