Avatar billede jannikf Nybegynder
13. december 2004 - 23:47 Der er 2 kommentarer og
1 løsning

Flere sider i visning af mappe

Jeg har denne her kode:

<%
Response.Write "<table width=""80%"">"
For Each Image In objFiles
intFile = intFile +1
    If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  Response.Write "<tr><td width='90%'>"
        Response.Write "<a href='upload/" & Image.Name & "' target='_blank'>" & "<FONT face='verdana,arial,helvetica' color=black size='2'>" & Image.Name & "</a>"
  Response.Write "</td><td>"
  Response.Write "<a href='sletfil.asp?fil=" & Image.Name & "'>" & "<img src='images/delete5.jpg' border=0 title=Delete>" & "</a></font>"
  Response.Write "</td></tr>"
    End If       
Next
Response.Write "</table>"
Set objFS = Nothing
%>

Men der sker ligesom et problem hvis der f.eks. er 20 filer i mappe upload og dette ødelægger ligesom designet. Kan man ikke få lavet en næste side knap som viser et vist antal af gangen? Det skal helsk sorteres efter upload dato.
Avatar billede jannikf Nybegynder
14. december 2004 - 15:49 #1
Nu jeg har lavet dette her:

<%   
Dir = "upload/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(Dir))
Set objFiles = objFolder.Files

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

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

Response.Write "<table width=""80%"">"
For Each Image In objFiles
intFile = intFile +1
    If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  Response.Write "<tr><td width='80%'>"
        Response.Write "<a href='upload/" & Image.Name & "' target='_blank'>" & Image.Name & "</a>"
  Response.Write "</td><td align='right'>"
  Response.Write "<a href='sletfil.asp?fil=" & Image.Name & "'>" & "<img src='billeder/slet.gif' border=0 title=Delete>" & "</a>"
  Response.Write "</td></tr>"
    End If       
Next

strprev = Request.QueryString("page") - 1
strnext = Request.QueryString("page") + 1


Response.Write "<tr>"
Response.Write "<td width='50%' align='left'><a href='filliste.asp?id=5&page=" & strprev & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Forrige" & "</font></td>"
Response.Write "<td width='50%' align='right'><a href='filliste.asp?id=5&page=" & strnext & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Næste" & "</font></td></tr>"
Response.Write "</table>"
Set objFS = Nothing
%>

Men for det første er der en forrige ved den første side (der er jo intet der hedder page=0) og for det andet vil jeg gerne have den en linie ned, det lyder simpelt men jeg har prøvet at sætte <br> alle mulige forskellige steder uden held.
Avatar billede jannikf Nybegynder
14. december 2004 - 15:52 #2
Hov lige en ting til, den skal selfølgelig heller ikke vise næste hvis der ikke er flere filer at vise. Kunne dette ikke gøres ved at sige at den kun skal gøre det intPageCount gange?
Avatar billede jannikf Nybegynder
30. december 2004 - 02:37 #3
Fandt selv ud af en løsning vha. if sætninger:

If strprev = 0 Then
Response.Write "<br><table width='80%'><tr>"
Response.Write ""
Response.Write "<td width='50%' align='right'><a href='filliste.asp?menu=5&page=" & strnext & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Næste" & "</font></td>"
Response.Write "</tr></table>"

Elseif strnext > intPageCount Then
Response.Write "<br><table width='80%'><tr>"
Response.Write "<td width='50%' align='left'><a href='filliste.asp?menu=5&page=" & strprev & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Forrige" & "</font></td>"
Response.Write ""
Response.Write "</tr></table>"

Else

Response.Write "<br><table width='80%'><tr>"
Response.Write "<td width='50%' align='left'><a href='filliste.asp?menu=5&page=" & strprev & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Forrige" & "</font></td>"
Response.Write "<td width='50%' align='right'><a href='filliste.asp?menu=5&page=" & strnext & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Næste" & "</font></td>"
Response.Write "</tr></table>"

End If
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB