Kan man bruge paging på en mappe?

Eller en tilsvarende funktion :-)

Jeg har noget liggende - lige et øjeblik, så skal jeg finde det frem...

Super

Det skal nok passes lidt mere til, men her er det i hvert fald:

<%

  '***********************************************************************
  '******** Her bestemmer du antal billeder pr. side ****************
  '***********************************************************************
  antalPrSide = 20


  on error resume next

  Set objFS = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFS.GetFolder(Server.MapPath(Mappe))

  'linien herunder kan du bruge, hvis du ønsker at anvende en absolut sti
  'Set objFolder = objFS.GetFolder(ImageDir)


  Set objFiles = objFolder.Files

  response.write "<table border=1 width=100% cellspacing='0' cellpadding='4' bordercolor='#666666'><tr>"

  total = 0

  Dim arrBilleder()

  intPage = CInt(Request.QueryString("Page"))
  If intPage = 0 Then
    intPage = 1
  End If

  For Each Image In objFiles
 
    If InStr(Image.Name,".") Then
      var=split(Image.Name,".")

      if LCase(var(1)) = "png"  or LCase(var(1)) = "gif" or LCase(var(1)) = "jpeg" or LCase(var(1)) = "jpg" or LCase(var(1)) = "bmp" or LCase(var(1)) = "tga" Then
        total = total + 1
      End if
    End if
  Next

    'Get the total number of pages in the subdirectory
    If (total/antalPrSide) = (int(total/antalPrSide)) Then
        antalSider = int(total/antalPrSide)
    Else
        antalSider = int(total/antalPrSide)+1
    End If

    Redim arrBilleder(2,total)

    'Store picture file names in an array
    x = 0
    For Each objFileItem in objFiles
        strExt = LCase(Right(objFileItem.Name,4))
        If strExt=".gif" OR strExt=".jpg" THEN
            arrBilleder(0,x) = objFileItem.Name
            arrBilleder(1,x) = Cstr(int(x/antalPrSide)+1)
            x = x + 1
        End if
    Next


    For x = 0 to UBound(arrBilleder,2)-1
    If CInt(arrBilleder(1,x)) = intPage Then
      ShowPic = Replace(arrBilleder(0,x), " ", "%20")
      Response.Write "<td align='left' valign='bottom'><a href='#' onClick='skrivsti(this.src)'"
      Response.Write "<img src='thumbnail.asp?fileName=" & Mappe & arrBilleder(0,x) & "&size=100' alt='" & arrBilleder(0,x) & "' border='0'>"
      Response.Write "</a></td>" & vbcrlf

      PictureNo = PictureNo + 1
      If PictureNo=4 Then
          Response.write "</tr><tr>"
          PictureNo = 0
      End if
    End If
    Next


    'Determine if there are multiple pages and if so, display page numbers.
    If antalSider > 1 Then
        Response.Write "<tr><td colspan='4' align='left'>Side:&nbsp;&nbsp;&nbsp;"
        For x = 1 to antalSider
            If x = intPage Then
                Response.Write  x & "&nbsp;&nbsp;&nbsp;&nbsp;"
            Else
                Response.Write "<a href='" & curFile & "?Page=" & x & "'>" & x & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"
            End If
        Next
        Response.Write "</td>"
    End If

    Set objFSO = Nothing

%>

</tr>
</table>

Jeg har brugt det som en included fil.
Mappe er blevet sat i den fil, der includer ovenstående.

Og thumbnail.asp er en ekstern fil, der har genereret thumbs af billederne i mappen.
Hvis du vil have den med også, skal du bare sige til - ellers kan du naturligvis bare erstatte

'thumbnail.asp?fileName=" & Mappe & arrBilleder(0,x) & "&size=100'

med '" & Mappe & arrBilleder(0,x) & "'

Hej deeflate

Det ser meget lovende ud :-)
Men når jeg rettet stien til, så viser den ingen billeder.

Her der den del som jeg har rettet til:

  Set objFS = CreateObject("Scripting.FileSystemObject")
'  Set objFolder = objFS.GetFolder(Server.MapPath("files/"))
Set objFolder = objFS.GetFolder(Server.MapPath(Mappe))


  'linien herunder kan du bruge, hvis du ønsker at anvende en absolut sti
Set objFolder = objFS.GetFolder("files/")

samt

Response.Write "<td align='left' valign='bottom'><a href='#' onClick='skrivsti(this.src)'"
      'Response.Write "<img src='thumbnail.asp?fileName=" & Mappe & arrBilleder(0,x) & "&size=100' alt='" & arrBilleder(0,x) & "' border='0'>"
      Response.Write "<img src='" & Mappe & arrBilleder(0,x) & "' alt='" & arrBilleder(0,x) & "' border='0'>"
      Response.Write "</a></td>" & vbcrlf


Jeg vil også meget gerne have thumbnail.asp filen også

Der komme ingen fejl heller ikke hvis jeg skriver en mappe som ikke findes?

DOH, der kommer ingen fejl da der står:
on error resume next

Hop ud igen med:

On Error GoTo 0

Det er i denne linie fejlen er:
Response.Write "<img src='" & Mappe & arrBilleder(0,x) & "' alt='" & arrBilleder(0,x) & "' border='0'>"

den udskriver:

<td align='left' valign='bottom'><a href='#' onClick='skrivsti(this.src)'<img src='files/designIde2.jpg' alt='designIde2.jpg' border='0'></a></td>

Men hvordan får jeg " ind istedet for ' ved <img src=

Til at sætte objFolder kan du jo bare nøjes med det, du havde før, nemlig server.mappath("/Images/files/")
Og så skal du udkommentere den linie til absolut sti (eller rent faktisk anvende en absolut sti...).

Altså:

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(server.mappath("/Images/files/"))

'linien herunder kan du bruge, hvis du ønsker at anvende en absolut sti
'Set objFolder = objFS.GetFolder("files/")

...

to " bliver til et - altså skriv "" i stedet for "
Men det er ikke nødvendigt.
Problemet er nok nærmere at du ikke afslutter dit a-tag

Kom lige til at se, at det jo er mig, der ikke har afluttet dit a-tag ;)

Udskift dette:

Response.Write "<td align='left' valign='bottom'><a href='#' onClick='skrivsti(this.src)'"
Response.Write "<img src='thumbnail.asp?fileName=" & Mappe & arrBilleder(0,x) & "&size=100' alt='" & arrBilleder(0,x) & "' border='0'>"


Med dette:

Response.Write "<td align='left' valign='bottom'><a href='#' onClick=""skrivsti(this.src)"">"
Response.Write "<img src='" & Mappe & arrBilleder(0,x) & "' alt='" & arrBilleder(0,x) & "' border='0'>"

Det skulle hjælpe...

Dette hjalp:
Response.Write "<td align='left' valign='bottom'><a href='#' onClick=""skrivsti(this.src)"">"
      Response.Write "<img src='" & "files/" & arrBilleder(0,x) & "' alt='" & arrBilleder(0,x) & "' border='0'>"

:-)

MEN
Man kan ikke skifte imellem siderne, det vil sige at når man klikker på side 2 så er det de samme billeder der bliver vist?

Det er højst sandsynligt fordi sidetallet ikke bliver sendt med, da curFile (current file) ikke er sat.
Prøv at sætte curFile eller prøv at skifte

Response.Write "<a href='" & curFile & "?Page=" & x & "'>" & x & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"

Ud med

Response.Write "<a href='?Page=" & x & "'>" & x & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"

Hvis du bruger andre querystrings skal de selvfølgelig også skrives med her...

Det gav ingen effekt :-(

Du får lige hele koden, så der er til at se, om jeg har skrevet noget forkert:

<html>
<head>
<title>test paging</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%

  '***********************************************************************
  '******** Her bestemmer du antal billeder pr. side ****************
  '***********************************************************************
  antalPrSide = 3


  'on error resume next

  Set objFS = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFS.GetFolder(Server.MapPath("files/"))
  'Set objFolder = objFS.GetFolder(Server.MapPath(Mappe))


  'linien herunder kan du bruge, hvis du ønsker at anvende en absolut sti
'Set objFolder = objFS.GetFolder("files/")


  Set objFiles = objFolder.Files

  response.write "<table border=1 width=100% cellspacing='0' cellpadding='4' bordercolor='#666666'><tr>"

  total = 0

  Dim arrBilleder()

  intPage = CInt(Request.QueryString(""))
  If intPage = 0 Then
    intPage = 1
  End If

  For Each Image In objFiles
 
    If InStr(Image.Name,".") Then
      var=split(Image.Name,".")

      if LCase(var(1)) = "png"  or LCase(var(1)) = "gif" or LCase(var(1)) = "jpeg" or LCase(var(1)) = "jpg" or LCase(var(1)) = "bmp" or LCase(var(1)) = "tga" Then
        total = total + 1
      End if
    End if
  Next

    'Get the total number of pages in the subdirectory
    If (total/antalPrSide) = (int(total/antalPrSide)) Then
        antalSider = int(total/antalPrSide)
    Else
        antalSider = int(total/antalPrSide)+1
    End If

    Redim arrBilleder(2,total)

    'Store picture file names in an array
    x = 0
    For Each objFileItem in objFiles
        strExt = LCase(Right(objFileItem.Name,4))
        If strExt=".gif" OR strExt=".jpg" THEN
            arrBilleder(0,x) = objFileItem.Name
            arrBilleder(1,x) = Cstr(int(x/antalPrSide)+1)
            x = x + 1
        End if
    Next

    For x = 0 to UBound(arrBilleder,2)-1
    If CInt(arrBilleder(1,x)) = intPage Then
      ShowPic = Replace(arrBilleder(0,x), " ", "%20")
      Response.Write "<td align='left' valign='bottom'><a href='#' onClick=""skrivsti(this.src)"">"
      Response.Write "<img src='" & "files/" & arrBilleder(0,x) & "' alt='" & arrBilleder(0,x) & "' border='0'>"
      Response.Write "</a></td>" & vbcrlf

      PictureNo = PictureNo + 1
      If PictureNo=4 Then
          Response.write "</tr><tr>"
          PictureNo = 0
      End if
    End If
    Next


    'Determine if there are multiple pages and if so, display page numbers.
    If antalSider > 1 Then
        Response.Write "<tr><td colspan='4' align='left'>Side:&nbsp;&nbsp;&nbsp;"
        For x = 1 to antalSider
            If x = intPage Then
                Response.Write  x & "&nbsp;&nbsp;&nbsp;&nbsp;"
            Else
                'Response.Write "<a href='" & curFile & "?Page=" & x & "'>" & x & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"
                Response.Write "<a href='?Page=" & x & "'>" & x & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"
            End If
        Next
        Response.Write "</td>"
    End If

    Set objFSO = Nothing

%>

</tr>
</table>


<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>

Du er vist kommet til at lave om i denne linie:

intPage = CInt(Request.QueryString(""))

Hvor sidetallet jo hentes fra querystring'en.

Her skulle stå:

intPage = CInt(Request.QueryString("Page"))

Du er fanme helt kanon.

Mange tak for din store hjælp :-)
Her er lidt flere p end først afsat.

PS. må jeg også få din thumbnail.asp fil?

Takker :)

thumbnail.asp:

<%
on error resume next

FileName = request.querystring("FileName")

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage server.MapPath(FileName)
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
size = Cint(request.querystring("size"))

if ImageHeight < size then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage server.MapPath(FileName)
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing
end if

NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage server.MapPath(FileName)
Image.ImageFormat = 1
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Response.BinaryWrite Image.Image
Set Image = Nothing
%>


Der kan ikke udskrives html eller noget fra denne fil, og den skal ligge som ekstern fil, altså ikke inkluderes.
Du kalder den som i mit eksempel, således at den er src og får filename og size fra querystring'en.
Den kan vist ikke lave billederne bredere end 300 (eller var det 400?), men det kan du jo lige prøve ad, hvis det bliver nødvendigt.

Stien skal selvfølgelig også være en del af filename - og du må nok hellere sikre dig, at der ikke bliver blandet / og \ - kør evt. en replace.
Nu ved jeg ikke hvor du er hostet, men nogle steder skal det være en absolut sti til billedmappen.
Hvis det skal det, må du lige indføre en variabel, f.eks. sti, med den absolutte sti. Så skal stien ikke med via querystring'en, og så skal du skifte

server.MapPath(FileName)

ud med

sti & FileName

Hej deeflate

Er du frisk på hjælp til thumpnail.asp også, selvfølgelig for de dyrbare points :-)

Naturligvis.
Hvad er problemet?

Mange tak.

Filen ligger her:
http://www.dotdk.dk/images/pagingthumb.asp

som du kan se så viser den ingen billeder, men jeg kan ikke helt finde ud af hvad der rent faktisk skal skrive før det virker.

Og det virker, når du ikke kalder thumbnail.asp, ikke sandt?
Hvis det var fordi du fik angivet den forkerte sti, burde den vise et broken image...
Prøv at fjerne on error resume next og se hvad der sker.

Ahhh! Start med at afslutte dit a-tag !
Det kunne forklare det ;)

Sorry, dat var jo den gamle fejl. Det er nu rettet, og der kommer de broken images frem

Her er den linie som udskriver billede linket:
Response.Write "<img src='thumbnail.asp?fileName=" & """files/" & arrBilleder(0,x) & """&size=100' alt='" & arrBilleder(0,x) & "' border='0'>"

Ok, hvis du prøver at højreklikke på de broken images og vælge egenskaber, så kan du se den querystring, der bliver sendt til thumbnail.asp - og den er noget sludder.
Skift den linie som udskriver billedlinket ud med dette her:

Response.Write "<img src='thumbnail.asp?fileName=files/" & arrBilleder(0,x) & "&size=100' alt='" & arrBilleder(0,x) & "' border='0'>"

Hvad sker der nu?

Hvad fa%#/, kan man det. Ok prøver det lige :-)

Det var da smart....
Så sender den nedenstående til thumbnail.asp:
http://www.dotdk.dk/images/thumbnail.asp?fileName=files/IMG_1290-copy.jpg&size=100

Men jeg er stadig ikke med på hvad den skal sende?

Det kommer an på, hvad du bruger i thumbnail.asp.
Hvis du bruger server.MapPath som i det eksempel jeg har postet her, så skal du bruge den relative sti og den skal sendes med via querystring, som du gør det lige nu.
Hvis det ikke virker, så prøv at bruge en absolut sti, altså den komplette sti, som f.eks. d:\web\dotdk.dk\images\files\ - eller hvad den nu er...
Hvis det ligger på din egen server, ja så skulle det være let nok.
Men hvis ikke, og du ikke kender den, så kan du sikkert finde den på din udbyders site under support eller noget.
Den absolutte sti skal ikke sendes med i querystring'en - den skal bare stå i en variabel inde i thumbnail.asp, som du passende kan kalde "sti".
Og så skal den relative sti jo så selvfølgelig heller ikke sendes med via querystring'en.

Det vil altså sige at du skal udskrive linket til billedet sådan her:

Response.Write "<img src='thumbnail.asp?fileName=" & arrBilleder(0,x) & "&size=100' alt='" & arrBilleder(0,x) & "' border='0'>"

Og inde i thumbnail.asp skal du så i stedet gøre sådan her

FileName = request.querystring("FileName")
sti = "c:\den\absolutte\sti" 'hvad den så end måtte være

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage sti & FileName 'husk at rette dette i alle 3 tekstblokke!


Håber det hjælper lidt.

Prøv at lege lidt med forskellige stier.

Du kan bl.a. teste lidt ved at prøve at udskrive stierne på pagingthumb.asp ved f.eks. at skrive

response.Write server.MapPath("files/" & arrBilleder(0,x))

Så kan du få testet om det overhovedet giver den rigtige sti.

Så gav jeg op, og fandt en anden løsning.
Du kan se den her, hvis du gider :-)
http://www.dotdk.dk/images/pagingtest.asp?Page=1

Denne løsning har den fordel at man ikke behøver hente billederne i fuld størrelse, inden man klikker på billedet.

Det er de samme billeder som ligger som thumb og large, men det var bare for at teste.

Men du skal have mange tak for din store tålmodighed.
Jeg opretter lige et spg, så du kan få lidt points for din hjælp.

Som sagt MANGE TAK :-)

Velbekomme :)