Jeg har tilføjet lidt til koden:
Hvis du angiver et filnavn i parameteren "startpic", og billedet findes i mappen, loades den til at start med:
onclick="popup('galleryshow.asp?ShowPic=<%=ShowPath%>&startpic=test.gif','Vis','<%=iHeight%>','<%=iWidth%>');">
Koden ("galleryshow.asp"):
<%
option explicit
dim fso, folder, file
dim arrFiler
dim i
dim fejl, startbillede, showpic, nr
fejl = ""
function rw(txt)
' rw er en forkortelse for Reponse.Write
response.write txt
end function
%>
<html>
<head>
<title>Galleri</title>
<style type="text/css">
/* brug din eget CSS */
body
{
background-color:#000000;
color:#cccccc;
font-family:tahoma;
font-size:12px;
}
</style>
<script type="text/JavaScript" language="JavaScript">
function initialiser()
{
loader_besked = "Loader billede...";
billeder = new Array();
<%
if request.querystring("ShowPic") <> "" then
' ------------- KONTROLFIL ---------------
' Hvis den definerede fil IKKE findes i mappen, vises der ingen billeder!
' Filen skal bare eksistere, så det er lige meget om den indeholder noget.
dim kontrolfil:
kontrolfil = "galleryfolder.asp" ' ret filnavnet her
' ------------- KONTROLFIL ---------------
showpic = request.querystring("ShowPic")
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(server.mappath(showpic & "\" & kontrolfil)) = false then
fejl = "Der er ingen billeder i den angivne mappe."
else
startbillede = request.querystring("startpic")
set folder = fso.GetFolder(server.mappath(showpic))
for each file in folder.files
if file.name <> kontrolfil then
'rw file.name & "<br>"
arrFiler = arrFiler & file.name & "*"
end if
next
set folder = nothing
set fso = nothing
arrFiler = left(arrFiler, len(arrFiler) - 1)
arrFiler = split(arrFiler, "*")
nr = 0
for i = lbound(arrFiler) to ubound(arrFiler)
rw " billeder[billeder.length] = '" & arrFiler(i) & "';"
if i <> ubound(arrFiler) then rw vbCrLf
if startbillede <> "" then if startbillede = arrFiler(i) then nr = i
next
if nr = -1 then nr = 0
%>
nr = <%=nr%>;
if (document.all)
{
img_billede = document.all['billede'];
div_loader = document.all['loader'];
div_navigation = document.all['navigation'];
} else {
img_billede = document.getElementById('billede');
div_loader = document.getElementById('loader');
div_navigation = document.getElementById('navigation');
}
if (billeder.length > 0)
{
div_loader.innerHTML = loader_besked;
div_navigation.style.display = "";
}
vis_billede(); // viser billedet (som er det første, da nr er lig 0)
}
function vis_billede()
{
img_billede.src = '<%=showpic%>\\' + billeder[nr];
}
function skjul_load_besked_og_vis_billede()
{
div_loader.style.display = "none";
img_billede.style.display = "";
}
function vis_load_besked_og_loadet_billedet()
{
div_loader.style.display = "";
img_billede.style.display = "none";
setTimeout("vis_billede();",1); // forsinkelse på 1 ms, for at loading-beskeden kan nå at komme frem
}
function prevnext(pm)
{
// pm = PlusMinus (frem / tilbage)
// 1 = true = p = plus = frem
// 0 = false = m = minus = tilbage
if (pm)
{
nr++;
if (nr >= billeder.length) nr = 0;
} else {
nr--;
if (nr < 0) nr = billeder.length - 1;
}
vis_load_besked_og_loadet_billedet();
}
<%
end if
%>
</script>
</head>
<body onload="initialiser()"><% if fejl <> "" then rw fejl %>
<noscript>
Dette galleri bruger <b>JavaScript</b>, hvilket er slået fra i din browser.<br>
For at kunne benytte galleriet skal du slå JavaScript til.
</noscript>
<div id="navigation" style="display:none">
<a href="#" onclick="prevnext(0);return false">Vis forrige billede</a>
<a href="#" onclick="prevnext(1);return false">Vis næste billede</a>
<br><br>
</div>
<div id="beholder" style="position:absolute;">
<div id="loader" style="position:absolute;width:100px"> </div>
<img src="" id="billede" onload="skjul_load_besked_og_vis_billede();" style="position:absolute;display:none">
</div>
</body>
</html>
<% end if %>
Ny bruger
Nybegynder
Opret
Preview
