Automatisk billedgalleri, men med forrige og næste billed?
Hej.Jeg har lavet et automatisk billedgalleri, som selv finder billeder og mapper i en defineret mappe.
Problemet er bare, at jeg ikke kan komme frem til en løsning på hvordan jeg, når man er inde på et billed, kan sige Næste billed og Forrige billed.
Samtidigt kan jeg heller ikke gå ind under mere end 1 undermappe.
Er dette noget i kan hjælpe med?
I må MEGET gerne komme med konstruktive ændringer eller tips til hvordan jeg kan forbedre mit script.
Koden:
<%
' settings: [begin]
' define the contact mail
contactmail = "kontakt@fredagsbaren.dk"
' define the filename of this file, or write the path to this file
standardFileName = "default.asp?page=galleri&"
' name of the maingallery folder
standardFolder = "gallerier"
' define full picturesizes
pictureWidth = "500px"
pictureHeight = "375px"
' define thumbnail picturesizes
thumbnailWidth = "100px"
thumbnailHeight = "100px"
' define the gallery width
galleryWidth = "549px"
' define the picture border
pictureBorder = "solid"
pictureBorderWidth = "1px"
pictureBorderColor = "#000000"
' settings: [end]
' script: [begin]
set fs = Server.CreateObject("Scripting.FileSystemObject")
folder = request.querystring("folder")
picture = request.querystring("picture")
error = request.querystring("error")
if not folder = "" then
pictureFolderName = ""&standardFolder&"/"&folder&""
else
pictureFolderName = standardFolder
end if
if not picture = "" then
if fs.FileExists(server.mappath(".")&"/"&picture&"")=false then
response.redirect(""&standardFileName&"error=picture")
end if
end if
if not folder = "" then
if fs.FolderExists(server.mappath(".")&"/"&standardFolder&"/"&folder&"")=false then
response.redirect(""&standardFileName&"error=folder")
end if
end if
set viewLocation = fs.GetFolder(server.mappath(".")&"/"&pictureFolderName&"")
amountOfPictures = 0
for each file in viewLocation.files
if fs.GetExtensionName(lcase(file)) = "jpg" then
amountOfPictures = amountOfPictures+1
end if
next
if error = "folder" then
response.write("<center><a href='java script:history.back(1);'>Tilbage</a><br><br><b>404 Error - File Not Found</b><br><br>Mappen du prøver på at åbne, eksisterer ikke ifølge systemet.<br>Du bedes prøve at tjekke adressen en ekstra gang eller anmode om support.</center>")
elseif error = "picture" then
response.write("<center><a href='java script:history.back(1);'>Tilbage</a><br><br><b>404 Error - File Not Found</b><br><br>Billedet du prøver på at åbne, eksisterer ikke ifølge systemet.<br>Du bedes prøve at tjekke adressen en ekstra gang eller anmode om support.</center>")
else
if picture = "" then
for each folder in viewLocation.subFolders
response.write("<a href='"&standardFileName&"folder="&folder.name&"'>"&folder.name&"</a><br>")
next
if not pictureFolderName = standardFolder then
response.write("<center><a href='java script:history.back(1);'>Tilbage</a><br></center>")
end if
if amountOfPictures = 1 then
response.write("<center><br>"&amountOfPictures&" billede i mappen<br></center>")
else
response.write("<center><br>"&amountOfPictures&" billeder i mappen<br></center>")
end if
response.write("<center>")
for each file in viewLocation.files
if fs.GetExtensionName(lcase(file)) = "jpg" then
response.write("<a href='"&standardFileName&"picture="&pictureFolderName&"/"&file.name&"'><img src='"&pictureFolderName&"/"&file.name&"' width='"&thumbnailWidth&"' style='border: "&pictureBorder&" "&pictureBorderWidth&" "&pictureBorderColor&"'></a> ")
end if
next
response.write("<br><br><br>Har vi fanget dig i en uheldig situation? Skriv da til "&contactmail&"<br>husk at skrive billedstien, som kan ses under det pågældende billed!")
response.write("</center>")
else
response.write("<center><a href='java script:history.back(1);'>Tilbage</a><br><br><img src='"&picture&"' width='"&pictureWidth&"' height='"&pictureHeight&"' style='border: "&pictureBorder&" "&pictureBorderWidth&" "&pictureBorderColor&"'><br><b>Billedsti:</b><br><a href='"&picture&"' target='_blank'>"&picture&"<br><i>Klik for at få billedet vist stort</i></a><br><br><br>Har vi fanget dig i en uheldig situation? Skriv da til "&contactmail&"<br>husk at skrive billedstien, som kan ses under det pågældende billed!</center>")
end if
end if
set fs = nothing
' script: [end]
%>
