rothen ecotronics Bern: ASP-Skript "ASP Weitere Objekte: Bilder anzeigen mit FileSystemObject"

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

%>


<%

'***************************************************************************
'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
%>

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