<%@ 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 17:48
Zurück zur
Liste mit ASP-Übungen auf
www.ecotronics.ch