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

%>

<!-- Hier stehen Include-Anweisungen für einzuschliessende Dateien -->

<%

'***************************************************************************
'Variablendeklaration und -initialisierung
Dim objfile
Dim objfolder
Dim objfs
Dim strfolderpath
Dim strrelpath


strrelpath = "portraits/"
Set objfs = CreateObject("Scripting.FileSystemObject")
strfolderpath = server.MapPath(strrelpath)

'***************************************************************************
'Lokale Prozeduren und Funktionen


'***************************************************************************
'Hier steht Code, der vor dem Seitenkopf stehen muss, z.B. Response.Redirect

%>

<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>ASP Weitere Objekte: Bilder anzeigen mit FileSystemObject</title>
  <meta name="description" content="" />
  <meta name="keywords" content="" />
</head>

<body>

<h1>Bilder im Verzeichnis <%=strrelpath%></h1>
<%
if objfs.FolderExists(strfolderpath) then
  Set objfolder = objfs.GetFolder(strfolderpath)
  For Each objfile in objfolder.Files
    'In Kombinationsfeld
    Response.Write("<p><img border=""0"" src=""" & strrelpath _
      & objfile.name & """ /><br />"
_
      & Replace(replace(objfile.name, "_"" "), ".gif""") & "</p>" & vbCrLf)
  Next
else
  Response.Write("Ordner " & strrelpath & "nicht gefunden<br />" & vbCrLf)
end if
%>

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

Letzter Update: 26.12.2021 16:48

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