Notifikationer

Markér alle som læst Log ud

frank74 Nybegynder

19. februar 2006 - 21:43 Der er 9 kommentarer og
1 løsning

Mangler 2 ASP Script.

Hejsa.

Jeg mangler et ASP script som kan finde alle filer af typen ".jpg" fra en mappe og liste dem med en tjeckbox ud for hvert filnavn og en "Send" knap i bunden.

Det andet script skal så bare vise billederne man har krydset af i det første script.

Synes godt om

Slettet bruger

19. februar 2006 - 21:50 #1

- den er på vej...!

\Dan

Synes godt om

Slettet bruger

19. februar 2006 - 22:13 #2

<%
path = "pics"
%>
<html>
<body>
<% if Request.Form("file") = "" then%>
<form method="post" action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>">
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.mappath(path))
for each file in f.files
name = file.name
ext = lcase(right(name,3))
if ext = "jpg" then
%>
<input type="checkbox" name="file" value="<%="" & name & ""%>"> - <%="" & name & ""%>
<br>
<%
end if
next
set f=nothing
set fs=nothing
%>
<input type="submit" value="Se billeder" name="submit">
<form>
<%
else
file = replace(Request.Form("file")," ","")
fileArr = split(file,",")
for i=0 to ubound(fileArr)
if fileArr(i) <> "" then
%>
<img src="<%="" & path & "/" & fileArr(i) & ""%>" border="0">
<br>
<%
end if
next
end if
%>
</body>
</html>

- Sådan... Så skal du bare definere "path"...

\Dan

P.S. Det hele er i én og samme fil...

Synes godt om

Slettet bruger

19. februar 2006 - 22:36 #3

RETTELSE!!!
<%
path = "pics"
%>
<html>
<body>
<% if Request.Form("file") = "" then%>
<form method="post" action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>">
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.mappath(path))
for each file in f.files
name = file.name
ext = lcase(right(name,3))
if ext = "jpg" then
%>
<input type="checkbox" name="file" value="<%="" & name & ""%>"> - <%="" & name & ""%>
<br>
<%
end if
next
set f=nothing
set fs=nothing
%>
<input type="submit" value="Se billeder" name="submit">
<form>
<%
else
file = replace(Request.Form("file"),", ",",")
fileArr = split(file,",")
for i=0 to ubound(fileArr)
if fileArr(i) <> "" then
%>
<img src="<%="" & path & "/" & fileArr(i) & ""%>" border="0">
<br>
<%
end if
next
end if
%>
</body>
</html>

- Her gør det ikke noget at der er mellemrum i filnavnet... Selvom det egentlig er en uskik at have det når det skal vises i en browser...

\Dan

Synes godt om

frank74 Nybegynder

20. februar 2006 - 15:12 #4

Kanon. Det virker jo perfekt.
Tak for det. ;-)
Send lige et svar.

Synes godt om

Slettet bruger

20. februar 2006 - 15:19 #5

Jamen det var godt det virker...

Her et svar!

\Dan

Synes godt om

Slettet bruger

20. februar 2006 - 15:20 #6

- prøver lige igen... hehe

Synes godt om

frank74 Nybegynder

20. februar 2006 - 16:25 #7

Kan man forresten lave det sådan at billederne bliver i en bestemt størrelse? f.eks. 200x150 pixels uden at jeg skal rette alle billeder til. Håber du forstår mit spørgsmål. :-)

Synes godt om

frank74 Nybegynder

20. februar 2006 - 16:26 #8

Der skal selvfølgelig stå "at billederne bliver VIST i en bestemt størrelse" :-)

Synes godt om

frank74 Nybegynder

20. februar 2006 - 16:31 #9

Har selv fundet ud af det. Ret nemt faktisk. Er ved at blive en haj til det shit her. LOL.

Synes godt om

frank74 Nybegynder

20. februar 2006 - 16:33 #10

Denne linie :
<img src="<%="" & path & "/" & fileArr(i) & ""%>" border="0">
skal skiftes ud med denne :
<img src="<%="" & path & "/" & fileArr(i) & ""%>" border="0" height="600" width="200">

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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