Du får lige hele koden.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<script>
function send(valg){
document.parameter.valg.value = valg
document.parameter.submit();
}
</script>
<html>
<head>
<title>Billeder</title>
</head>
<DIV align="center">
<body link="black" vlink="black" alink="black">
<%
' mapper er navnnet på den mappe hvor de valgte billeder ligger,
' den bliver valgt i oversig.asp.
mappe = request("mappe")
if mappe = "" then
mappe = Session("mappe")
else
Session("mappe") = mappe
end if
' Her finder vi ud af om der er dannet et array af billeder, hvis det er tilfældet bruges det,
' ellers laves der et array af billederne i den valgte mappe.
if isarray(Session("billeder")) then
if ubound (Session("billeder")) > 0 then
billeder = session("billeder")
end if
else
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("e:\www\inet\download\test\lukket\billeder\upload\" & mappe & "\thumbnails\")
Set FolderFiles = Folder.Files
dim filListe
i = 0
For Each File In FolderFiles
If inStr(LCase(File),".jpg") or inStr(LCase(File),".gif") Then
filListe = filListe & "," & file.name
i = i + 1
end if
next
filListe = right(filListe,len(filListe)-1)
billeder = split(filListe,",")
session("billeder") = billeder
session("antalfiler") = ubound(billeder)+1
end if
intfile = session("antalfiler")
' Her kontrolleres om der er valgt et side skift, enten frem eller tilbage
select case Request("valg")
case "frem"
intpage = Request("frem")
case "tilbage"
intpage = Request("tilbage")
case else
intPage = 1
end select
' Her initialiseres værdierne for et evt side skift.
tilbage = 0
frem = 0
if intpage = 1 then
tilbage = round((intfile/4)+0.4)
else
tilbage = intpage - 1
end if
if intpage*4 => intfile then
frem = 1
else
frem = intpage + 1
end if
%>
<table width="75%" height="322" border="0">
<tr>
<td height="20" colspan="4"><div align="left"><a href="oversigt.asp">Tilbage til oversigten</a> <a href="default.htm">Tilbage til billede forsiden</a> </div></td>
<td height="20" colspan="2"><div align="right"><font color="black" face="Arial, Helvetica, sans-serif">side <%=intpage %> af <%= round((intfile/4)+0.4) %> </font></div></td>
</tr>
<tr>
<td height="201" colspan="6" align="center" valign="middle"><img Name="hovedebillede" alt="" border="0" align="middle" valign="center"></td>
</tr>
<tr>
<td height="101"><img src="Komponenter/TilbagePil.gif" alt="" name="Tilbage" width="57" height="99" border="0" usemap="#TilbageMap" onMouseOver="this.src = 'Komponenter/TilbagePilPeg.gif'" onMouseOut="this.src = 'Komponenter/TilbagePil.gif'"></td>
<%
' Billeder sættes på siden
forste = 0
pegepind = (intpage -1) * 4
sidste = pegepind + 4
do while pegepind < sidste and pegepind < intfile
Response.Write("<TD><img src=""upload/" & mappe & "/thumbnails/" & billeder(pegepind) & """ OnMouseOver=""document.images['hovedebillede'].src = 'upload/" & mappe & "/images/"& billeder(pegepind) &"'""""></TD>")
if forste = 0 then
Response.write "<script>document.images['hovedebillede'].src = 'upload/" & mappe & "/images/"& billeder(pegepind) &"'</script>"
forste = forste + 1
end if
pegepind = pegepind + 1
loop
%>
<td> <img src="Komponenter/NaestePil.gif" alt="" name="naeste" width="57" height="99" border="0" usemap="#naesteMap" onMouseOver="this.src = 'Komponenter/naestePilPeg.gif'" onMouseOut="this.src = 'Komponenter/naestePil.gif'"></td>
</tr>
</table>
<form action="Billedervis.asp" name="parameter">
<input type="hidden" name="frem" value="<%= frem%>">
<input type="hidden" name="tilbage" value="<%= tilbage%>">
<input type="hidden" name="valg" value="">
</form>
<map name="naesteMap">
<area shape="poly" coords="9,20,47,45,47,50,14,76,9,71" href="java script:onclick=send('frem')" alt="klik for at se de næste 4 billeder"">
</map>
<map name="TilbageMap">
<area shape="poly" coords="45,22,43,72,8,51,11,45" href="java script:onclick=send('tilbage')" alt="klik for at se de forrige 4 billeder">
</map>
</body>
</html>
Min mail: undertakers_2000@yahoo.dk
