Vis billeder

tænke med = tænke mig

Et fotoalbum.. kan gøre det, eks på et simpelt billede visning. Denne viser 6 biller pr side i to rækker.


<table width="100%" border="0">
<%
if Request.QueryString("billede") = "" then
  start = request.querystring("start")
  if start = "" then start = 0

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath("./images/"))

  Set fc = f.Files
  For Each billed in fc
    arrayBuild = arrayBuild & billed.name & "|"
  next
  arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))

  myArray = Split(arrayBuild, "|")
  Antalsider = int(ubound(myarray) / 6)
  antal = 0
  for i = start to (start + 5)
    if not i > ubound(myarray) then
      if antal = 0 then Response.Write "<TR>"
%>
    <td><a href="dennefil.asp?billede=./images/<%=myArray(i)%>">
    <img SRC="images/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
    </a></td>
<%
    else
      nesteside = 1
    end if
    antal = antal + 1
    if antal = 3 then
      Response.Write "</TR>"
      antal = 0
    end if
  next
  if antal > = then Response.Write "</TR>"
%>
</table>
<center>
<%
  if start <> 0 then
    response.write "<a href=""dennefil.asp?start=" & (start - 6) & """>Forrige</a>"
  end if
  response.write("&nbsp;")
  if nesteside <> 1 then
    response.write "<a href=""dennefile.asp?start=" & (start + 6) & """>Næste</a>"
  end if

else
  'Vis billedet
%>
  <tr><td align="center">
  <img SRC="<%=Request.QueryString("billede")%>" border="1"><br>
  <a href="java script:history.back();">Tilbage</a>
  </td></tr>
<% end if %>
</table>

hmm ok fandt lige en bedre version af samem script scriptet..:

<html>
<head>
<title></title>
</head>

<body bgcolor="A0B3C8">
<div align="center">

<table width="100%" border="0">
<%
billedeSti = "./hyttetur/"
antalBillederPrSide = 6
antalBillederPrRekke = 3


if Request.QueryString("billede") = "" then
  start = request.querystring("start")
  if start = "" then start = 0

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath(billedeSti))

  Set fc = f.Files
  For Each billed in fc
    arrayBuild = arrayBuild & billed.name & "|"
  next
  arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
 
  myArray = Split(arrayBuild, "|")

  Antalsider = int(ubound(myarray) / antalBillederPrSide)
  antal = 0
  for i = start to (start + antalBillederPrSide-1)
    if not i > ubound(myarray) then
      if antal = 0 then Response.Write "<TR>"
%>
<td width="<%=Int(antalBillederPrRekke/100)%>"><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>
<%
    else
      nesteside = 1
    end if

    antal = antal + 1
    if antal = 3 then
      Response.Write "</TR>"
      antal = 0
    end if
  next
  if antal > 0 then Response.Write "</TR>"
%>
  </table>
  <center>
<%
  if start <> 0 then
    response.write "<a href=""?start=" & (start - 6) & """>Forrige</a>"
  end if
  response.write("&nbsp;")
  if nesteside <> 1 then
    response.write "<a href=""?start=" & (start + 6) & """>Næste</a>"
  end if
%>
  </center>
<%
else
  'Vis billedet
%>
  <tr><td align="center">
  <img SRC="<%=Request.QueryString("billede")%>" border="1">
  <p align="center"><a href="java script:history.back();">Tilbage</a></p>
  </td>
  </tr>
  </table>
<%
end if %>
</div>
</body>
</html>

Her er også et fotoalbum:
http://www.eksperten.dk/spm/241057

Her er et mere, her kan man angive en start folder og så kan man bladre rundt i evt subfoldre og se billeder..:
http://www.eksperten.dk/spm/266802

Med en del tilrettelser, fik jeg det til at virke. Tak for hjælpen - det vil jeg godt give 50 points for.