Avatar billede steckel Nybegynder
23. december 2003 - 22:07 Der er 1 kommentar og
1 løsning

opdel mapper i 3 rækker i en table.

Nu har jeg en side der viser mine mapper i download.
Men nu er det sådan at jeg har lidt over 20 mapper og kunne godt tænke mig at de blev opdelt i en table af 3 rækker.

Det vil sige noget i den stil som jeg viser her :

Mappe 1      Mappe 6        Mappe 11
Mappe 2      Mappe 7        Mappe 12
Mappe 3      Mappe 8        Mappe 13
Mappe 4      Mappe 9        Mappe 14
Mappe 5      Mappe 10        Mappe 15

sti = "/download"
  ShowSub = sti & request("ShowSub")
  ShowSubLink = request("ShowSub")
  strPathInfo = ShowSub
  strPhysicalPath = Server.MapPath(strPathInfo)
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)
 
  For each Folder in objFolder.SubFolders
    If Left(Folder.Name,1)<>"_" Then
      Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(Folder.Name, " ", "%20"))
      response.write """>"
      Response.Write Folder.Name
      Response.Write "<br>"
    End if
  Next
 
  Set objFSO = Nothing
Avatar billede ellebaek Nybegynder
23. december 2003 - 22:25 #1
hvis du vil have det på den anden led kan du bruge dette...

<%
i = 0
response.write "<table>"

sti = "/download"
  ShowSub = sti & request("ShowSub")
  ShowSubLink = request("ShowSub")
  strPathInfo = ShowSub
  strPhysicalPath = Server.MapPath(strPathInfo)
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)
 
  For each Folder in objFolder.SubFolders
if i mod 3 = 0 then
response.write "<tr>"
end if
response.write "<td>"
    If Left(Folder.Name,1)<>"_" Then
      Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(Folder.Name, " ", "%20"))
      response.write """>"
      Response.Write Folder.Name
      Response.Write "<br>"
    End if
response.write "</td>"
if i mod 3 = 2 then
response.write "</tr>"
end if
i = i+1
  Next
 
  Set objFSO = Nothing
%>

Det burde give dig:

mappe 1    mappe 2    mappe 3
mappe 4    mappe 5    mappe 6
osv.
Avatar billede ellebaek Nybegynder
23. december 2003 - 22:25 #2
og så skal du nok lige slette den der: response.write "<br>"
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
Kurser inden for grundlæggende programmering

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