Avatar billede php_newbie Nybegynder
11. februar 2003 - 16:09 Der er 6 kommentarer og
1 løsning

Hent filer i mappe

Hej...


Jeg skal hente alle filnavne fra en mappe, der hedder gfx/diverse

Dvs at den bare skal vise fx

Pic0123
Pic0135
Pic0121
Pic0134

osv...

hvordan gør jeg det - Skal bruge en hel kode ikke bare et link !!
Avatar billede cougar Nybegynder
11. februar 2003 - 16:12 #1
Her er noget kode i ASP:
----
<html><head>
<title>Fotoalbum</title>
<script language="JavaScript">
<!--
function jumppage(sel)
{
  var i = sel.selectedIndex
  self.location.href = sel.options[i].value
}
// -->
</script>
</head><body bgcolor="#000000" text=Black>

<center>

<p style="line-height: 150%; margin-top: 0; margin-bottom: 0">'<font size="5" color="#FFFFFF">Blandet
Billeder.</font></p>
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<font size="2" color="#FFFFFF">Her er diverse billeder...</font></p>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800" id="AutoNumber1">
<tr>
<td align="center" width="75%">
</td>
<td align="center" width="25%">
  <form action=<%=CurFile%> method="POST">
  <h3>Select Album :
  <select name="go" onChange="jumppage(this);" size=1>
  <%
  ShowSub = request("ShowSub")
  ShowPic = request("ShowPic")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
  For each Folder in objFolder.SubFolders
      If Left(Folder.Name,1)<>"_" Then
          Response.write "<option "
          If ShowSub=Folder.Name Then
              Response.Write "selected "
          End if
          Response.Write"value='" & CurFile & "?ShowSub="
          Response.Write(Replace(Folder.Name, " ", "%20"))
          response.write "'>"
          Response.Write(Folder.Name & "</option>")
          If ShowSub <= " " Then
            ShowSub = Folder.Name
        End if
      End if
  Next
  Set objFSO = Nothing
  %>
  </select></h3>
  </form>
  </td>
</tr>
</table>
<hr>

<%
If ShowPic > " " then
  ShowPic = Replace(ShowPic, " ", "%20")
  Response.Write "<a href='java script:history.go(-1)'><img src='" & ShowPic & "'><BR><BR><B>Go Back</B></a>"
Else
%>
  <table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111" width="800" id="AutoNumber1">
  <tr>
  <%
  strPhysicalPath = Server.MapPath(".\" & ShowSub)
  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents
    If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
        ShowPic = Replace(objFileItem.Name, " ", "%20")
      'Response.write "<td align='center' width='25%'><a href=" & ShowSub & "\"
      Response.write "<td align='center' width='25%'><a href=" & CurFile & "?ShowPic=" & ShowSub  & "\" & ShowPic
      'Response.Write(Replace(objFileItem.Name, " ", "%20"))
      Response.write ">"
      Response.Write("<img src='" & ShowSub & "\" & objFileItem.Name & "' width=200> ")
      Response.Write("<p align='center'><b>" & Mid(objFileItem.Name,1,Len(objFileItem.Name)-4) & "</b>")
      Response.write "</a></td>"
      PictureNo = PictureNo + 1
      If PictureNo=4 Then
          Response.write "</tr><tr>"
          PictureNo = 0
      End if
    End if
    Next
    Set objFSO = Nothing
  End if
  %>
  </tr>
  </table>
<%
End if
%>
</center>
</html>
Avatar billede medions Nybegynder
11. februar 2003 - 16:14 #2
<%
Function ShowFolderList()
    folderspec = server.mappath(".")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    tmp = tmp & "<a href='" & file.name & "'>" & file.name & "</A><BR>"
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

//>Rune
Avatar billede medions Nybegynder
11. februar 2003 - 16:15 #3
<%
Function ShowFolderList()
    folderspec = Server.MapPath("gfx/diverse")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    tmp = tmp & "<a href='" & file.name & "'>" & file.name & "</A><BR>"
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Sådan var det ;o)

//>Rune
Avatar billede php_newbie Nybegynder
11. februar 2003 - 16:16 #4
Jeg skal vel bare bruge det her af koden... kan du ikke hjælpe mig lidt...

        ShowSub = request("ShowSub")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(Server.MapPath(strPathInfo))
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
  For each Folder in objFolder.SubFolders
      If Left(Folder.Name,1)<>"_" Then
          Response.write "<option "
          If ShowSub=Folder.Name Then
              Response.Write "selected "
          End if
          Response.Write"value='" & CurFile & "?ShowSub="
          Response.Write(Replace(Folder.Name, " ", "%20"))
          response.write "'>"
          Response.Write(Folder.Name & "</option>")
          If ShowSub <= " " Then
            ShowSub = Folder.Name
        End if
      End if
  Next
  Set objFSO = Nothing
Avatar billede medions Nybegynder
11. februar 2003 - 16:17 #5
php_newbie> Prøv at paste mit ind.. Det skulle gerne virke uden bøvl...
//>Rune
Avatar billede php_newbie Nybegynder
11. februar 2003 - 16:19 #6
Tak for de hurtige svar
Avatar billede medions Nybegynder
11. februar 2003 - 16:20 #7
Anytime...
Thx 4 Poinz

//>Rune
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