23. december 2003 - 22:07Der 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.
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
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
og så skal du nok lige slette den der: response.write "<br>"
Synes godt om
Ny brugerNybegynder
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.