10 svar · 352 visningar · startad av voigtann1
Hur gör man på bästa sätt så om man har en mapp som heter tex bilder... och där har vi bilder vi vill lista upp i miniatyrer snabb och enkel kod... eller hur?
ett logikflum till :)
<%
set fs = server.createobject ( "scripting.filesystemobject" )
set f = fs.getfolder ( server.mappath ( "\folder\" ) )
set fc = f.files
for each i in fc
response.write 'vad du nu vill presentera
next
%>
Det här fungerar för mig. Jag skriver ut länkar till texter med den i original
[edit] i vissa fall (när det är många saker som skall listas ut har jag laggt dem i en databas istället då jag tror det är snabbare än fso)
Finns massor av dylika liknande script här på forumet.... sök. ;)
Btw. ska du lista dom som miniatyrer, se till att skapa miniatyrer innan el med en komponent.
sant solbulle.. men jag har inte lust att köpa en komponent som gör det :( och pallar inte fixa det själv :( tips?
<%
' Scriptet är nerladdat från [url]http://www.fatmilk.nu/[/url]
' Skrivet av Ludvig "geek" Lindblom
' [email]geek@fatmilk.nu[/email]
Dim sPath, lPath, objFS, fld, fls, count
'### sPath är namnet på mappen som filerna som skall listas ligger i ###
'### Mappen som anges i sPath skall ligga i samma mapp som dett script ###
sPath = "mappnamn"
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
%>
<img src="<%=sPath%>/<%=File.Name%>"><BR><BR>
<%
Next
Set fld = Nothing
Set objFS = Nothing
%>
:)
man alltså... du får ju anpassa scriptet så det passar din server.
det jag skrev var ju bara lite logik
Om du har möjlighet att göra thumbnails av de bilder du har på din egen dator och sen ladda uppp, inte med komponent alltså, kan du tex. använda "Easy thumbnails" https://www.fookes.com
(freeware)
ja.. jag kör XP.. och testade detta.. har en fråga.. fungera detta på 2000?
fungerar det på xp-plattform fungerar det med största sannolikhet i win2k