Visa alla bilder i en mapp

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("/" & [MinMapp])
Files = Folder.Files

For each Item In Files
Response.Write "<img src='" & Item & "'>"
Next

Är det detta du är ute efter?

[r]P.ga. krogbesök så missade jag en del detaljer

Visst går det:

<%
Option Explicit

Response.Buffer = TRUE
%>
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000">
<%
Dim objFSO, objFolder, File
Dim strRootPath, strFolder, strFolderPath, strExtension, strFileName

'## - physical path to wwwroot --
strRootPath = Server.MapPath("\")

'## -- wich folder to look in --
strFolder = "/images/"

'## -- physical path to folder --
strFolderPath = strRootPath & strFolder

'## -- fso object to handle folders & files --
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	'## -- get folder info --
	Set objFolder = objFSO.GetFolder(strFolderPath)
	
	For Each File IN objFolder.Files
		strFileName = File.Name
		
		'## -- check if the file is an image --
		If InStr(strFileName, ".gif") > 0  OR InStr(strExtension, ".jpg") > 0 Then
			Response.Write "<IMG src=""" & strFolder & strFileName & """ border=""0""><BR>"
		End If
	Next
%>
</BODY>
</HTML>

cya,
PatrikB

När jag infogar det sita exemplet får jag felmeddelandet
Serverobjekt fel 'ASP 0177 : 800a004c'

Server.CreateObject misslyckades

/applications/basket_riktig/bildgalleri.asp, rad 44

Här är min kod:Mappen ligger i samma mapp och heter bilder

<%
Option Explicit
Response.Buffer = TRUE
%>

<!-- #INCLUDE FILE="adovbs.inc" -->
<HTML>
<HEAD>
<link rel="stylesheet" href="style.css">
<!-- #INCLUDE FILE="head.asp" -->
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<!-- #INCLUDE FILE="topmeny.asp" --><br>
<TABLE BORDER="0" BORDERCOLOR="BLACK" CELLSPACING="0" CELLPADDING="0" WITH="640" HEIGHT="100" ALIGN="CENTER">
<TR>
<TD WIDTH="140" VALIGN="TOP">
<!-- #INCLUDE FILE="leftmeny.asp" -->
</TD>
<TD WIDTH="500" BGCOLOR="#FFFFFF" STYLE="PADDING-LEFT:5PX;" VALIGN="TOP">

<%
Dim objFSO, objFolder, File
Dim strRootPath, strFolder, strFolderPath, strExtension, strFileName

'## - physical path to wwwroot --
strRootPath = Server.MapPath("\")

'## -- wich folder to look in --
strFolder = "/bilder/"

'## -- physical path to folder --
strFolderPath = strRootPath & strFolder

'## -- fso object to handle folders & files --
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'## -- get folder info --
Set objFolder = objFSO.GetFolder(strFolderPath)

For Each File IN objFolder.Files
strFileName = File.Name

'## -- check if the file is an image --
If InStr(strFileName, ".gif") > 0 OR InStr(strExtension, ".jpg") > 0 Then
Response.Write "<IMG src=""" & strFolder & strFileName & """ border=""0""><BR>"
End If
Next
%>

</TD>
</TR>
</TABLE>
</BODY>
</HTML>

00000000

'## -- wich folder to look in --
strFolder = "/bilder/"

anger sökvägen till bildkatalogen från root.
Om du tex har en katalog i wwwroot som heter - bildgalleri - och i den mappen har du en annan katalog som heter - bilder - så blir sökvägen:

'## -- wich folder to look in --
strFolder = "/bildgalleri/bilder/"

Hoppas att detta hjälper,

cya,
PatrikB

När jag får ett felmeddelande som jag itne förstår så brukar jag gå till denna sida: http://search.support.microsoft.com/kb/c.asp?ln=en-us

Välj Active Server Pages och skriv in felnummret, i detta fallet: ASP 0177 : 800a004c

Och vips hittar jag rätt: Rätt... Sedan kanske inte alltid det hjälper, men det är iaf ett tips som jag tycker flera skall lära sig att använda...

detta fungera inte alls så himla bra.. får bara rutor.... d:\minabilder\bild1.jpg

så vill man ju inte ha det.. man vill ju ha typ:
www.voigtan.com/bilder/bild2.jpg

hur gör man det så att den bara ta mappen bilder???? kvittar var den ligger typ..

visa hur din kod ser ut nu. omöjligt att säga vad som är fel i detta läge.

cya,
PatrikB

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("bilder"))
set Files = Folder.Files
For each Item In Files
Response.Write "<img src=""" & Item & """>"
Next
%>

Det där borde onekligen fungera bara din mapp heter bilder och befinner sig i den mapp du har scriptfilen i.

Nej, denna kod funkar inte om man vill länka till bilden.
Item innehåller endast den fysiska sökvägen till bilden på servern, tex D:\myfolder\imagefolder\image.gif

Det borde se ut så här om skriptet körs i samma katalog som bilderna ligger i:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("bilder"))
set Files = Folder.Files
For each Item In Files
Response.Write "<img src=""" & Item.[b]Name[/b] & """>"
Next
%>

cya,
PatrikB

Host host

lite fel i den:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("bilder"))
set Files = Folder.Files
For each Item In Files
Response.Write "<img src=""bilder/" & Item.Name & """>"
Next
%>

Tack för all hjälp här! kjamar!

nä, om bilderna hade legat i samma katalog som scriptet så skulle det funka ... nu låg de ju i en underkatalog ...

cya,
PatrikB

Patrik: Inte för att tjafsa, men stämmer det i så fall med: Server.Mappath("bilder")
Ska inte den mappen ligga I den du står i?

allt stämmer.. och det fungera ju inte.. den tar ju mappen bilder så man måste göra så som jag har gjort