Paging af billeder

Du burde kunne se, at den her ikke vil virke:

strName = Lcase(Right(Image.Name, 3))  ("3")

når "jpeg" er på 4 tegn...

Du kunne bruge:

strName = LCase(mid(Image.Name, instr(Image.Name, ".") + 1))

Eller: strName = LCase(mid(Image.Name, instrrev(Image.Name, ".") + 1))

Eller: strName = right(Image.Name, len(Image.Name) - instrrev(Image.Name, ".")) :-)

Det var en fejl fra min side, og er rettet. Men det er ikke det spørgsmålet handler om. Kan du hjælpe mig med paging?

Jeg er ikke så god til paging.. men hvis du søger på "paging" her på Eksperten, vil du få en masse spm frem..

Det du nok skal gøre, er at smide filnavnene i en array.. så kan du f.eks. bruge "side.asp?id=4", og start ved arrBilleder(4), via:

for i = CInt(request.querystring("id")) to CInt(request.querystring("id")) + AntalBillederPerSide

Response.Write "<IMG BORDER=0 WIDTH=50 HEIGHT=50 SRC=" & Replace(strFolder, " ", "%20") & "/" & Image.Name & ">&nbsp;"

next


Eller noget i den stil :-)

Se evt Arrays: http://html.dk/tutorials/asp/lektion8.asp

jeg har et script der kan page igennem med fso:

2 sek..
Så finder jeg det.

<%
ImageDir = "billeder/" ' Mappen med filerne Kun denne linie skal ændres.
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.SubFolders

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 21 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<p><strong>" & intImgCount & " Foldere - "
Response.Write "viser side " & intPage & " af " & intPageCount & ":</strong></p>"
response.write "<table>"
i = 0
For Each FolderObject In objFiles
if i mod 3 = 0 then
response.write "<tr>"
end if
response.write "<td>"
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  If Left(FolderObject.Name,1)<>"_" Then
      Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(FolderObject.Name, " ", "%20"))
      response.write """>"
      Response.Write FolderObject.Name
    End if

End If
response.write "</td>"
if i mod 3 = 2 then
response.write "</tr>"
end if
i = i+1
Next

strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i & "</a> "   
Next
Response.Write "</p>"
Set objFS = Nothing
%>


Her er det..
Som det er nu sætter det billederne op i en tabel som:
billede 1    billede 2    billede 3
billede 4    billede 5    billede 6
billede 7    billede 8    billede 9
billede 10    billede 11    billede 12
billede 13    billede 14    billede 15
billede 16    billede 17    billede 18
billede 19    billede 20    billede 21

Det tager alle billederne fra mappen billeder/
Du vælger selv hvilken mappe der skal vælges i den her linie: ImageDir = "billeder/"
Håber du kan bruge det..

hovsa...

En mindre fejl, da den her pagede igennem efter mapper ;-)

<%
ImageDir = "billeder/" ' Mappen med filerne Kun denne linie skal ændres.
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

strName = Lcase(Right(Image.Name, 3))

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 21 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<p><strong>" & intImgCount & " Foldere - "
Response.Write "viser side " & intPage & " af " & intPageCount & ":</strong></p>"
response.write "<table>"
i = 0
For Each Image In objFiles
if i mod 3 = 0 then
response.write "<tr>"
end if
strName = Lcase(Right(Image.Name, 3))
intFile = intFile +1
If ((strName = "gif") OR (strName = "jpg") OR (strName = "jpeg")) AND (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) then
response.write "<td>"

    Response.Write "<IMG BORDER=0 WIDTH=50 HEIGHT=50 SRC=" & Replace(ImageDir, " ", "%20") & "/" & Image.Name & ">&nbsp;"
response.write "</td>"
i = i+1
End If

if i mod 3 = 0 then
response.write "</tr>"
end if
Next

strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i & "</a> "   
Next
Response.Write "</p>"
Set objFS = Nothing
%>

Sådan her vil jeg mene det skal se ud i stedet.

Kunne det bruges...?

Jeg lavede noget selv, men det virker ikke helt efter hensigten.

Function GetAllFiles(strFolder)
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolders=MyDirectory.GetFolder(Server.MapPath(strFolder))
strCount = "0"

For each Image in MyFolders.Files
strName = Lcase(Right(Image.Name, 3))
If (strName = "gif") OR (strName = "jpg") OR (strName = "jpeg") then
  strFiles = strFiles & "," & Image.Name
    arrFiles = Split(strFiles,",")
  strCount = strCount + 1
End if
Next

if Request("To") = "" then
strCountTo = 10
else
strCountTo = Request("to")
end if

strMaxPics = 10
strCountFrom = strCountTo - strMaxPics
strCountFrom = strCountFrom + 1
strPages = CLng(strCount / strMaxPics)

If (strPages * strMaxPic) < strCount then
    strPages = strPages + 1
End If

For t = strCountFrom to strCountTo
      Response.Write arrFiles(t) & "<BR>"
Next

strFilesCount = 0
For t = 1 to strPages
    if t = 1 then
      strFilesCount = strFilesCount + 10
            Response.Write "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  else
      strFilesCount = strFilesCount + 10
            Response.Write " - " & "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  end if
Next

Response.Write "<BR>Antal sider : " & strPages & " ud af " & strCount & " billeder"
End Function

Når der er 81 filer laver den 9 sider, men den laver stadig loop til 90... Hvad kan jeg gøre?

URL: http://www.xgp.dk/calle/?mode=Billede&Folder=Billeder/Fest%20-%2015.2.04&Page=9&To=90

din for-løkke er noget overkill for serveren da du opbygger arrayet hver gang..

så derfor skal den i stedet se ud som:

For each Image in MyFolders.Files
strName = Lcase(Right(Image.Name, 3))
If (strName = "gif") OR (strName = "jpg") OR (strName = "jpeg") then
  strFiles = strFiles & "," & Image.Name
  strCount = strCount + 1
End if
Next

arrFiles = Split(strFiles,",")


og så det her:
if Request("To") = "" then
strCountTo = 10
else
strCountTo = Request("to")
end if

til:
if Request("To") = "" then
strCountTo = 10
else
strCountTo = Request("to")
if strCountTo > UBound(arrFiles) then
strCountTo = UBound(arrFiles)
end if
end if

altså at hvis strCountTo er større end antallet af elementer i arrayet, så sættes strCountTo til antallet af elementer i arrayet..

Altså skal det hele se ud som:

<%
Function GetAllFiles(strFolder)
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolders=MyDirectory.GetFolder(Server.MapPath(strFolder))
strCount = "0"

For each Image in MyFolders.Files
strName = Lcase(Right(Image.Name, 3))
If (strName = "gif") OR (strName = "jpg") OR (strName = "jpeg") then
  strFiles = strFiles & "," & Image.Name
  strCount = strCount + 1
End if
Next

arrFiles = Split(strFiles,",")

if Request("To") = "" then
strCountTo = 10
else
strCountTo = Request("to")
if strCountTo > UBound(arrFiles) then
oldCount = strCountTo
strCountTo = UBound(arrFiles)
end if
end if

strMaxPics = 10
if olcCount <> "" then
strCountFrom = oldCount - strMaxPics
else
strCountFrom = strCountTo - strMaxPics
end if

strCountFrom = strCountFrom + 1
strPages = CLng(strCount / strMaxPics)

If (strPages * strMaxPic) < strCount then
    strPages = strPages + 1
End If

For t = strCountFrom to strCountTo
      Response.Write arrFiles(t) & "<BR>"
Next

strFilesCount = 0
For t = 1 to strPages
    if t = 1 then
      strFilesCount = strFilesCount + 10
            Response.Write "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  else
      strFilesCount = strFilesCount + 10
            Response.Write " - " & "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  end if
Next

Response.Write "<BR>Antal sider : " & strPages & " ud af " & strCount & " billeder"
End Function
%>

Jeg har rettet en enkelt linie mere..
Det var blot en linie der gjorde at der så ikke kommer 10 filer på sidste side..
Det burde virke som det er her..

Nu virker det slet ikke :S

Denne linie er stadig forkert: strName = Lcase(Right(Image.Name, 3))

Se mine 3 første indlæg :-)

hvad gør det forkert clanside..?
Smutter i seng nu, men kigger i morgen.

thesurfer > Det er ikke det der er fejlen lige nu

ellebaek > Kig på siden... http://www.xgp.dk/calle/?mode=Billede&Folder=Billeder/Fest%20-%2015.2.04&Page=9&To=90

hmm...

Det kan jeg godt se er et problem, men kan ikke helt overskue det nu..
Kigger lige på det i aften..

Okay

ellebaek > Har du kigget på det?

er færst lige kommet hjem nu..

Men kigger på det med det samme..

giv mig 5 min, så er det klar ;-)

Hmm...

Der var den så..
Jeg forstår ikke helt det virker når jeg kigger på det med logiske øjne, men jeg har testet og testet, og det virker som det skal..

<%
Function GetAllFiles(strFolder)
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolders=MyDirectory.GetFolder(Server.MapPath(strFolder))
strCount = 0
oldCount = 0
strCountFrom = 0

For each Image in MyFolders.Files
strName = Lcase(Right(Image.Name, 3))
If (strName = "gif") OR (strName = "jpg") OR (strName = "jpeg") then
  strFiles = strFiles & "," & Image.Name
  strCount = strCount + 1
End if
Next

arrFiles = Split(strFiles,",")

if Request.querystring("To") = "" then
strCountTo = 10
else
strCountTo = Request.querystring("to")
if (strCountTo < strCount) then
response.write "nu sker det..."
oldCount = strCountTo
strCountTo = strCount
end if
end if



strMaxPics = 10
if not oldCount = 0 then
strCountFrom = oldCount - strMaxPics
if strCountFrom > strCount then
response.redirect(request.servervariables("script_name"))
end if
else
strCountFrom = strCountTo - strMaxPics
end if

strCountFrom = strCountFrom + 1
strPages = CInt((strCount) / strMaxPics)


If (strPages * strMaxPic) >= strCount then
    strPages = strPages + 1
End If


For t = strCountFrom to strCountTo
      Response.Write arrFiles(t) & "<BR>"
Next

strFilesCount = 0
For t = 1 to strPages
    if t = 1 then
      strFilesCount = strFilesCount + 10
            Response.Write "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  else
      strFilesCount = strFilesCount + 10
            Response.Write " - " & "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  end if
Next

Response.Write "<BR>Antal sider : " & strPages & " ud af " & strCount & " billeder"
End Function

GetAllFiles("billeder/")

%>

Ja og den nederste linie: GetAllFiles("billeder/") skal bare slettes, da det var den jeg testede efter..

Det virkede heller ikke efter hensigten, da den ikke tog Side 9 (Den sidste fil med).

Jeg brugte hele natten inat på at lave noget og det virker perfect:

Function GetAllFiles(strFolder)
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolders=MyDirectory.GetFolder(Server.MapPath(strFolder))
strCount = 0
oldCount = 0
strCountFrom = 0

For each Image in MyFolders.Files
strName = Lcase(Right(Image.Name, 3))
If (strName = "gif") OR (strName = "jpg") OR (strName = "jpeg") then
  strFiles = strFiles & "," & Image.Name
  strCount = strCount + 1
End if
Next

arrFiles = Split(strFiles,",")

if Request("To") = "" then
    strCountTo = 10
else
    strCountTo = Request("to")
end if

strMaxPics = 10

strPages = CLng(strCount / strMaxPics)

If (strPages * strMaxPic) < strCount then
    strPages = strPages + 1
End If


strFilesCount = 0
For t = 1 to strPages
    strFilesCount1 = strFilesCount1 + strMaxPics
    strFilesCount = strFilesCount & "," & strFilesCount1
    arrFilesCount = Split(strFilesCount,",")
  if t = 1 then
            Response.Write "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & arrFilesCount(t) & ">" & (arrFilesCount(t) / 10) & "</a>"
  else
            Response.Write " - " & "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & arrFilesCount(t) & ">" & (arrFilesCount(t) / 10) & "</a>"
  end if
Next

  strToLa = Request("to") * 1
  if (strCount < strToLa) then
        strCountFrom = strCount
        strCountTo = strCount
        strPages = CInt((strCount) / strMaxPics)
    else
        strCountFrom = strCountTo - strMaxPics
        strCountFrom = strCountFrom + 1
        strPages = CInt((strCount) / strMaxPics)
    End If

Response.Write "<BR>Antal sider : " & strPages & " ud af " & strCount & " billeder<BR><BR>"
Response.Write "<BR>strCountFrom : " & strCountFrom & " strCountTo " & strCountTo & " billeder<BR><BR>"

        For i = strCountFrom to strCountTo
      Response.Write arrFiles(i) & "<BR>"
        Next

End Function

Det med den sidste fil er lidt tricky... For jeg testede på min med 40 filer, altså 4 sider. Men den returnerede 5 sider, og så bare ingen filer på sidste side..
Tror det her burde virke også..?

<%
Function GetAllFiles(strFolder)
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolders=MyDirectory.GetFolder(Server.MapPath(strFolder))
strCount = 0
oldCount = 0
strCountFrom = 0

For each Image in MyFolders.Files
strName = Lcase(Right(Image.Name, 3))
If (strName = "gif") OR (strName = "jpg") OR (strName = "jpeg") then
  strFiles = strFiles & "," & Image.Name
  strCount = strCount + 1
End if
Next

arrFiles = Split(strFiles,",")

if Request.querystring("To") = "" then
strCountTo = 10
else
strCountTo = Request.querystring("to")
if (strCountTo < strCount) then
response.write "nu sker det..."
oldCount = strCountTo
strCountTo = strCount
end if
end if



strMaxPics = 10
if not oldCount = 0 then
strCountFrom = oldCount - strMaxPics
if strCountFrom > strCount then
response.redirect(request.servervariables("script_name"))
end if
else
strCountFrom = strCountTo - strMaxPics
end if

strCountFrom = strCountFrom + 1
strPages = CInt((strCount) / strMaxPics)


If (strPages * strMaxPic) <= strCount then
    strPages = strPages + 1
End If


For t = strCountFrom to strCountTo
      Response.Write arrFiles(t) & "<BR>"
Next

strFilesCount = 0
For t = 1 to strPages
    if t = 1 then
      strFilesCount = strFilesCount + 10
            Response.Write "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  else
      strFilesCount = strFilesCount + 10
            Response.Write " - " & "<a href=?mode=Billede&Folder=" & Replace(Request("Folder"), " ", "%20") & "&Page=" & t & "&To=" & strFilesCount & ">" & t & "</a>"
  end if
Next

Response.Write "<BR>Antal sider : " & strPages & " ud af " & strCount & " billeder"
End Function


%>

Lykkedes det ?

Ellers er her et script som stammer her fra eksperten som jeg har optimeret en lille smule.

filen hedder default.asp - vil du ændre filnavnet skal du også ændre CurFile i starten af koden.

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

<style type="text/css">
.TN
{
    border: 1px solid #000000;
}
.LP
{
    border: 1px solid #000000;
}
a:link
{
    font-family: verdana;
    font-size: 8pt;
    color: #000000;
    text-decoration: none;
}
a:visited
{
    font-family: verdana;
    font-size: 8pt;
    color: #000000;
    text-decoration: none;
}
a:active
{
    font-family: verdana;
    font-size: 8pt;
    color: #000000;
    text-decoration: none;
}
a:hover
{
    font-family: verdana;
    font-size: 8pt;
    color: #FFFFFF;
    text-decoration: none;
}
</style>
</head>

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

<table width="100%" border="0">
<%
CurFile = "default.asp"
billedeSti = "./01-Renovering/"
antalBillederPrSide = 9
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="<%=CurFile%>?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img class="TN" SRC="<%=billedeSti%>/<%=myArray(i)%>" border="0" 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=" & (CurFile) & "?start=" & (start - antalBillederPrSide) & ">Forrige</a>"
    response.write("&nbsp;-&nbsp;")
  end if

  if nesteside <> 1 then
    response.write "<a href=" & (CurFile) & "?start=" & (start + antalBillederPrSide) & ">Næste</a>"
  end if
%>
  </center>
<%
else
  'Vis billedet
%>
  <tr><td align="center">
  <a border="0" class="LP" href="java script:history.back();"><img SRC="<%=Request.QueryString("billede")%>" border="1"></a>
  <p align="center"><a href="java script:history.back();">Tilbage</a></p>
  </td>
  </tr>
  </table>
<%
end if %>
</div>
</body>
</html>

Nå ja Billedsti skal du også rette så den passer til din mappe med billeder i

Måske du kan bruge noget af det til noget fornuftigt :o)

jeg tror spørger er gået kold herinde...!!