FSO og filer på harddisken

Hvad er dit spørgsmål egentlig?
Det kan godt være det bare er mig der er langsom...

Hvordan laver jeg en styrring så jeg på den første side får de første 4 billeder fra mappen billeder, på dne næste side får de næste 4 billder fra mappen billeder OSV

Se her omrking FSO:
http://www.w3schools.com/asp/asp_ref_filesystem.asp

Se her omkring file object:
http://www.w3schools.com/asp/asp_ref_file.asp

Paging i  FSO:
http://www.html.dk/scripts/asp/00011/

Eller så prøv at søge efter foto album paging FSO på eksperten der er mange som har spurt efter noget af det samme.


Eks på kode med 4 pr række godt nok lavet til et recordset med pricippet vil være det samme.:

response.write "<table>"
maxColPrRow = 2
colPrRow = 0
do while not rs.EOF
  if colPrRow = 0 then Response.Write "<tr>"
'udskrive fra recordset:
  Response.Write "<td>" & Response.Write  rs("kandidater") & "</td>"

  colPrRow = colPrRow + 1
  if colPrRow = maxColPrRow then
    Response.Write "</tr>"
    colPrRow = 0
  end if
 
  rs.MoveNext
loop
if colPrRow > 0 then Response.Write "<tr>"
Response.Write "</table>"

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


Her er et script som pt viser 6 billeder pr side med 3 i hver række:

<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>

Jeg takker