det va inget.. orkar inte....
Frågan#1
Undrar lite...
Kan man loopa upp alla bilder man har i en mapp på en sida?
Skulle vilja loopa upp en hel mapp o ha 2st på varje rad...
Nån kanske fattar va jag menar ;)
Loopa upp bilder
7 svar · 213 visningar · startad av Ceeron
<%
Dim sPath, lPath, objFS, fld, fls, count
sPath = "filer"
lPath = Server.MapPath(sPath)
Set objFS = CreateObject("Scripting.FileSystemObject")
Set fld = objFS.GetFolder(lPath)
Set fls = fld.Files
On error resume next
For each File in fls
%>
<a href="<%=sPath%>/<%=File.Name%>" target="_blank"><%=File.Name%></a> <br>
<%
Next
Set fld = Nothing
Set objFS = Nothing
%>
Ett skript jag använder.. fungerar jätte bra.
det va inget.. orkar inte....
Jag orkar.... nästan. ;)
RED. Åfan, man kanske skulle uppdatera sina fönster emellanåt... jaja.
solbulle skrev:
RED. Åfan, man kanske skulle uppdatera sina fönster emellanåt... jaja.
Varför då, när redigerningsknappen finns ;D
Jag syftade på att min länk kom lite sent, det jag kan tänka mig var att Catz var inne på att detta har tagits upp ett antal gångetr och går lätt att hitta om man söker.
Bra script iofs, fast jag hade nog lagt in en response.write, typ:
<%
Dim sPath, lPath, objFS, fld, fls, count
sPath = "filer"
lPath = Server.MapPath(sPath)
Set objFS = CreateObject("Scripting.FileSystemObject")
Set fld = objFS.GetFolder(lPath)
Set fls = fld.Files
For each File in fls
response.write "<a href=""" & sPath & "/" & File.Name & """ target=""_blank"">" & File.Name & "</a><br>"
Next
Set fld = Nothing
Set objFS = Nothing
%>
Fast när jag läser frågan lite bättre ser jag att det var bilderna han ville visa, kanske detta kan vara något: (vägrar redigera! :) )
<%
Dim sPath, lPath, objFS, fld, fls, count
sPath = "filer"
lPath = Server.MapPath(sPath)
Set objFS = CreateObject("Scripting.FileSystemObject")
Set fld = objFS.GetFolder(lPath)
Set fls = fld.Files
i=1
For each File in fls
response.write "<img src=""" & sPath & "/" & File.Name & """>"
if i mod 2=0 then Response.Write "<br>"
i=i+1
Next
Set fld = Nothing
Set objFS = Nothing
%>
Jo det är nog smidigare..
Men ni ska inte tro jag gjort scriptet så ingen ära till mig :p
Hittade det på w3schools tror jag..