14 svar · 525 visningar · startad av Rinaldo
Går det att göra så att man radar upp alla bilder som finns i en mapp... I bild format alltså inte som dir...
------------------
Man kan ta den säkra vägen: Göra en stilren sida, snygg men lätt.
Eller så kan man ta den svåra: Mycket grafik och flashiga ting, och riskera att mislyckas.
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 :e
------------------
Say hello to my stinky little friend!
[Redigerat av Koplik den 19 aug 2001]
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
------------------
*så kan det gå när inte haspen är på*
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
------------------
Man kan ta den säkra vägen: Göra en stilren sida, snygg men lätt.
Eller så kan man ta den svåra: Mycket grafik och flashiga ting, och riskera att mislyckas.
'## -- 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
------------------
*så kan det gå när inte haspen är på*
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... :)
------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu
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..
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
visa hur din kod ser ut nu. omöjligt att säga vad som är fel i detta läge.
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
<%
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
%>
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Det där borde onekligen fungera bara din mapp heter bilder och befinner sig i den mapp du har scriptfilen i.
------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II
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
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
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!
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
[Redigerat av voigtann1 den 09 feb 2002]
nä, om bilderna hade legat i samma katalog som scriptet så skulle det funka ... nu låg de ju i en underkatalog ...
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
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?
------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II
[Redigerat av solbulle den 10 feb 2002]
allt stämmer.. och det fungera ju inte.. den tar ju mappen bilder så man måste göra så som jag har gjort
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck