Simpel Fotoalbum
Hejsa.Dette lille script virker sådan at alle filnavne med endelsen "JPG" i en bestemt mappe bliver vist med en checkbox ud for hver. Sætter man flueben i nogen af disse checkboxe og trykker på "Se Billeder" bliver billederne vist.
<%
' Indsæt mappens navn her:
path = "Billeder"
%>
<html>
<body>
<% if Request.Form("file") = "" then%>
<form method="post" action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>">
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.mappath(path))
for each file in f.files
name = file.name
ext = lcase(right(name,3))
if ext = "jpg" then
%>
<input type="checkbox" name="file" value="<%="" & name & ""%>"> - <%="" & name & ""%>
<br>
<%
end if
next
set f=nothing
set fs=nothing
%>
<input type="reset" value="Nulstil" name="Nulstil">
<input type="submit" value="Se billeder" name="submit">
<form>
<%
else
file = replace(Request.Form("file"),", ",",")
fileArr = split(file,",")
for i=0 to ubound(fileArr)
if fileArr(i) <> "" then
%>
<img src="<%="" & path & "/" & fileArr(i) & ""%>" border="0" height="288" width="200">
<%
end if
next
end if
%>
</body>
</html>
Kan man lave dette script om eller lave noget tilsvarende, således at i stedet for filnavnet og en checkbox bliver billedet vist i en ramme og en bestemt størrelse. Trykker man så på et billede bliver dette vist i en anden ramme og i fuld størrelse??
HJÆÆLP!!
