Notifikationer

Markér alle som læst Log ud

Meggel Novice

04. februar 2004 - 18:42 Der er 21 kommentarer og
1 løsning

Et script så jeg kan hente billeder fra en mappe.

Jeg vil gerne havde et script som finder alle de billeder som er i en bestemt mappe og ligger dem ind på en side.. så der kommet et lille eksample af billedet. og når du så trykker på billedet kommer den op i et nyt vindue med fuldstørlse..

har ingen ide om hvordan man gør..

Synes godt om

eagleeye Praktikant

04. februar 2004 - 18:45 #1

Der er flere måder at gøre det på.
For at vise det som et lilled billede skal du enten hvade thumbnails i forvejen eller et billede komponent ASPImage som kan resize billederne.

Alterntivt vises de store billeder men man tvinger dem til at blive vist som små, det gør jo bare det tager lang til at loade siden :)

Synes godt om

Meggel Novice

04. februar 2004 - 18:57 #2

altså hvis jeg nu har de thumbnails..

det skal være sådan at hvis jeg bare smider flere billeder ind i mappen kommer de automatisk, ind på siden...

Synes godt om

eagleeye Praktikant

04. februar 2004 - 18:59 #3

Ja ok, hedder de thumbnails noget specilt i forhold til de store billeder?

Synes godt om

eagleeye Praktikant

04. februar 2004 - 19:12 #4

Et eksempel kunne være
Thumbnails skal hedde det samme som de store filer bare med thumb foran:

01.jpg (stot)
thumb_01.jpg (lille)

<html>
<head>
<title></title>
</head>

<body>
<div align="center">

<table width="100%" border="0">
<%
billedeSti = "./billedemappe/" 'Husk / skal være sidste karakter
antalBillederPrRekke = 3
antal = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each fil in fc
if (inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(fil.name))) > 0) and inStr(1,fil.name,"thumb") > 0 then

if antal = 0 then Response.Write "<tr>"
%>
<td>
<a href="<%=billedeSti%><%=Mid(fil.name,7)%>"><img src="<%=billedeSti%><%=Mid(fil.name,7)%>"></a>
</td>
<%
antal = antal + 1
if antal = antalBillederPrRekke then
antal = 0
Response.Write "</tr>"
end if
end if
next
if antal>0 then Response.Write "</tr>"
%>
</table>
</div>
</body>
</html>

Synes godt om

Meggel Novice

09. februar 2004 - 17:14 #5

eagleye hmm det virker ikke som det ska.. det viser bare to store billeder selv om jeg har lavet thumb mindre...

Synes godt om

eagleeye Praktikant

09. februar 2004 - 17:51 #6

Hvad ligger der i den folder som filerne skal hendtes fra?
Ligger Thumbnails og de store i samme folder?
Hvis et stort hedder 01.jpg hvad hedder thumbnailen så?

Synes godt om

Meggel Novice

09. februar 2004 - 20:17 #7

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
</head>

<body>
<div align="center">

<table width="100%" border="0">
<%
billedeSti = "billeder/louise/" 'Husk / skal være sidste karakter
antalBillederPrRekke = 3
antal = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each fil in fc
if (inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(fil.name))) > 0) and inStr(1,fil.name,"thumb") > 0 then

if antal = 0 then Response.Write "<tr>"
%>
<td width="50%" height="50%">
<a href="<%=billedeSti%><%=Mid(fil.name,7)%>" target="_blank"><img src="<%=billedeSti%><%=Mid(fil.name,7)%>"></a>
</td>
<%
antal = antal + 1
if antal = antalBillederPrRekke then
antal = 0
Response.Write "</tr>"
end if
end if
next
if antal>0 then Response.Write "</tr>"
%>
</table>
</div>
</body>
</html>

de ligger i en mappe som hedder billeder i en undermappe louise

Synes godt om

eagleeye Praktikant

13. februar 2004 - 23:28 #8

ok, men stadigvæk:

Hvis et stort hedder 01.jpg hvad hedder thumbnailen så?

Synes godt om

Meggel Novice

14. februar 2004 - 12:16 #9

den hedder

thumb_01.jpg

Synes godt om

eagleeye Praktikant

14. februar 2004 - 12:19 #10

ok, det lyder lidt underligt den ikke viser dem rigitg så.
men jeg prøver lige at kigge på det. Det bliver godt nok først senere i dag, da jeg er på vej ud af døren lige nu :)

og så lige et sidste spørgsmål her fra :)
Ligger thumb og de store billeder i samme folder?

Synes godt om

Meggel Novice

14. februar 2004 - 12:25 #11

ja det gør de...

Synes godt om

eagleeye Praktikant

14. februar 2004 - 14:25 #12

Prøv såda her der var en fejl i koden:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
</head>

<body>
<div align="center">

<table width="100%" border="0">
<%
billedeSti = "billeder/louise/" 'Husk / skal være sidste karakter
antalBillederPrRekke = 3
antal = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each fil in fc
if (inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(fil.name))) > 0) and inStr(1,fil.name,"thumb") > 0 then

if antal = 0 then Response.Write "<tr>"
%>
<td width="50%" height="50%">
<a href="<%=billedeSti%><%=Mid(fil.name,7)%>" target="_blank"><img src="<%=billedeSti%><%=fil.name%>"></a>
</td>
<%
antal = antal + 1
if antal = antalBillederPrRekke then
antal = 0
Response.Write "</tr>"
end if
end if
next
if antal>0 then Response.Write "</tr>"
%>
</table>
</div>
</body>
</html>

Når der står sådan her:
billedeSti = "billeder/louise/" 'Husk / skal være sidste karakter

Skal folderen billeder ligge i samme folder som .asp filen koden er i.

Synes godt om

Meggel Novice

14. februar 2004 - 14:35 #13

altså min asp fil billed.asp ligger i mappen louise der er så undermappen billeder/louise hvor billeder ligger

Synes godt om

eagleeye Praktikant

14. februar 2004 - 14:42 #14

ok, så skulle det være fint, virker det nye kode?

Synes godt om

Meggel Novice

14. februar 2004 - 14:58 #15

nej

Synes godt om

eagleeye Praktikant

14. februar 2004 - 15:22 #16

så det måske stien du skal hvade kigget på om igen...
Ligger filerne sådan her:

louise/billed.asp
louise/billeder/louise/billederne.*

Synes godt om

Meggel Novice

14. februar 2004 - 15:25 #17

ja det gør de...

Synes godt om

eagleeye Praktikant

14. februar 2004 - 15:31 #18

ok, det frostår jeg ikke så, hvordan virker det så ikke?

Synes godt om

Meggel Novice

14. februar 2004 - 17:08 #19

du kan se den på http://www.louiise.tk under billeder

Synes godt om

Meggel Novice

25. februar 2004 - 21:14 #20

vil sige at det virker nu...

Synes godt om

eagleeye Praktikant

26. februar 2004 - 18:15 #21

Ok, ja det ser godt ud :)

Synes godt om

Meggel Novice

26. februar 2004 - 18:21 #22

ja.. det er oki..

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS