<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0
on error resume next

'**********************************************************
'Variablendeklaration
Dim objfile
Dim objfolder
Dim objfs
Dim strfolderpath
Dim strrelpath


'**********************************************************
'Variableninitialisierung
strrelpath = "/images/"
Set objfs = CreateObject("Scripting.FileSystemObject")


%>

<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
  <title>ASP Weitere Objekte: 
    Dateien in einem Verzeichnis in Kombinationsfeld zur Auswahl anbieten</title>
  <meta name="description" content="Mithilfe des FileSystem Object 
    werden in dieser ASP-SeiteBilddateien in einem 
    Verzeichnis ausgelesenn" />

  <meta name="keywords" content="ASP, FileSystemObject, Dateiverwaltung, 
    File Object, Folder Object" />

<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>

<body>
Dieses Beispiel entstand (wie viele andere auch) aufgrund einer Frage in einem ASP-Kurs.
Es geht darum, mithilfe des FileSystem Object Bilddateien in einem 
Verzeichnis auszulesen und in einem Kombinationsfeld zur Auswahl anzubieten. 
Wird das Formular abgeschickt, dann zeigt die zweite Seite das Bild an.
<form method="POST" action="040bilderanzeigen2.asp" name=form1>
  <select size="1" name="frmfldfilename">

<%
strfolderpath = server.MapPath(strrelpath)
if objfs.FolderExists(strfolderpath) then
  Set objfolder = objfs.GetFolder(strfolderpath)
  For Each objfile in objfolder.Files
    'In Kombinationsfeld
    Response.Write("<option value=""" & objfile.name & """>" &_
      objfile.name & "</option>"&vbCrLf)
  Next
  
else
  Response.Write("Ordner " & strrelpath & "nicht gefunden<br />")
end if
%>

  </select>
  <input type="submit" value="Abschicken" name="btnsubmit" />
</form>

    <!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
  </body>
</html>

Demo: beispiele/040bilderanzeigen1.asp

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Beispielen auf  www.ecotronics.ch