Notifikationer

Markér alle som læst Log ud

frank74 Nybegynder

16. oktober 2007 - 16:21 Der er 15 kommentarer og
1 løsning

Filnavn til billede.

Hejsa.

Følgende lille script viser en række thumbnails der ligger i mappen Billeder. Hvis man trykker på en af disse ser man billedet i stor størrelse. Det virker helt fint.
Men hvordan skal scriptet se ud hvis jeg også vil have filnavnet vist??

Synes godt om

frank74 Nybegynder

16. oktober 2007 - 16:21 #1

Ups... Glemte vist noget. ;-)

<html>
<body background="../../../IMAGES/startile.gif">
<div style="text-align:center">
<%
if request.querystring("billede") = "" then
path = "billeder"
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
%>
<a href="<%=request.servervariables("script_name")%>?billede=<%=path & "/" & name%>" target="Main2">
<img src="<%=path & "/" & name%>" width="128" height="96" border="0">
</a>
<br>
<%
end if
next
set f=nothing
set fs=nothing
else
%>
<div align="center">
<img src="<%=request.querystring("billede")%>">
</div>
<%end if%>
</div>
</body>
</html>

Synes godt om

nielle Nybegynder

16. oktober 2007 - 16:53 #2

Sådan?

<html>
<body background="../../../IMAGES/startile.gif">
<div style="text-align:center">
<%
if request.querystring("billede") = "" then
path = "billeder"

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
%>
<a href="<%=request.servervariables("script_name")%>?billede=<%=path & "/" & name%>" target="Main2">
<img src="<%=path & "/" & name%>" width="128" height="96" title="<%=name%>" border="0">
</a>
<br>
<%
end if
next

set f = nothing
set fs = nothing
else
%>
<div align="center">
<img src="<%=request.querystring("billede")%>">
</div>
<%
end if
%>
</div>
</body>
</html>

Synes godt om

frank74 Nybegynder

16. oktober 2007 - 18:45 #3

Nope... Virker ikke.
Der kommmer ikke nogen fejl, men heller ikke noget filnavn.

Synes godt om

nielle Nybegynder

16. oktober 2007 - 18:48 #4

Hvor vil du have filnavnet?

(Med den viste kode skulle det komme frem når man holder musen hen over billedet.)

Synes godt om

w13 Novice

16. oktober 2007 - 18:50 #5

Heller ikke med denne kode?:
-----------------------------
<html>
<body background="../../../IMAGES/startile.gif">
<div style="text-align:center">
<%if request.querystring("billede") = "" then
path = "billeder"

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%>
<a href="<%=request.servervariables("script_name")%>?billede=<%=path & "/" & name%>" target="Main2">
<img src="<%=path & "/" & name%>" width="128" height="96" title="<%=name%>" border="0"> <%=name%>
</a>
<br>
<% end if
next

set f = nothing
set fs = nothing
else%>
<div align="center">
<img src="<%=request.querystring("billede")%>">
</div>
<%end if%>
</div>
</body>
</html>

Synes godt om

frank74 Nybegynder

16. oktober 2007 - 19:33 #6

Ja nu står filnavnet under hver thumbnail. Meningen er at man først kan se filnavnet når man får det store billede frem. Altså jeg vil gerne have det så når man trykker på en thumbnail så kommer det store billede frem, med filnavnet nedenunder billedet. Meget gerne uden .jpg
Altså kun filnavnet uden extension...

Synes godt om

w13 Novice

16. oktober 2007 - 19:42 #7

Sådan her?:
-----------------------------------------
<html>
<body background="../../../IMAGES/startile.gif">
<div style="text-align:center">
<%if request.querystring("billede") = "" then
path = "billeder"

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%>
<a href="<%=request.servervariables("script_name")%>?billede=<%=path & "/" & name%>?name=<%=Replace(name,ext,"")%>" target="Main2">
<img src="<%=path & "/" & name%>" width="128" height="96" title="<%=name%>" border="0">
</a>
<br>
<% end if
next

set f = nothing
set fs = nothing
else%>
<div align="center">
<p><img src="<%=request.querystring("billede")%>"></p>
<p><%=Request.Querystring("name")%></p>
</div>
<%end if%>
</div>
</body>
</html>

Synes godt om

frank74 Nybegynder

16. oktober 2007 - 23:03 #8

Nope... Virker stadig ikke.
Der kommmer heller ikke nogen fejl nu og heller ikke noget filnavn.

Synes godt om

w13 Novice

16. oktober 2007 - 23:42 #9

Nej linket blev lidt mærkeligt..

-----------------------------------------
<html>
<body background="../../../IMAGES/startile.gif">
<div style="text-align:center">
<%if request.querystring("billede") = "" then
path = "billeder"

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%>
<a href="<%=request.servervariables("script_name")%>?billede=<%=path&"/"&name%>&name=<%=Replace(name,ext,"")%>" target="Main2">
<img src="<%=path&"/"&name%>" width="128" height="96" title="<%=name%>" border="0">
</a>
<br>
<% end if
next

set f = nothing
set fs = nothing
else%>
<div align="center">
<p><img src="<%=request.querystring("billede")%>"></p>
<p><%=Request.Querystring("name")%></p>
</div>
<%end if%>
</div>
</body>
</html>
-----------------------------------
Hvis det stadig ikke virker, så post den outputtede linkadresse her.

Synes godt om

frank74 Nybegynder

18. oktober 2007 - 13:53 #10

Så virker det. Har du også et bud på hvordan jeg fjerner ".jpg" fra filnavnet??

Synes godt om

w13 Novice

18. oktober 2007 - 13:55 #11

På den nye side? Det skulle Replace(name,ext,"") gerne ha' gjort for os...

Synes godt om

w13 Novice

18. oktober 2007 - 13:56 #12

Hov, lige nu fjernes punktummet ikke. Det gør det her:
-------------------------------------
<html>
<body background="../../../IMAGES/startile.gif">
<div style="text-align:center">
<%if request.querystring("billede") = "" then
path = "billeder"

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%>
<a href="<%=request.servervariables("script_name")%>?billede=<%=path&"/"&name%>&name=<%=Replace(name,"."&ext,"")%>" target="Main2">
<img src="<%=path&"/"&name%>" width="128" height="96" title="<%=name%>" border="0">
</a>
<br>
<% end if
next

set f = nothing
set fs = nothing
else%>
<div align="center">
<p><img src="<%=request.querystring("billede")%>"></p>
<p><%=Request.Querystring("name")%></p>
</div>
<%end if%>
</div>
</body>
</html>

Synes godt om

frank74 Nybegynder

18. oktober 2007 - 14:04 #13

Ja på den nye side. Så det er vel i "<p><%=Request.Querystring("name")%></p>" den replace kommando skal være??

Synes godt om

w13 Novice

18. oktober 2007 - 14:06 #14

Nej for vi har ikke længere ext-variablen, som indeholder extensionen. Min kode skulle meget gerne fjerne extension _inden_ vi går hen på den nye side. Mærkeligt at det ikke sker.

Hmmm.. Måske er det fordi det er med store bogstaver det ene sted og små det andet? Prøv:
---------------------------------------------
<html>
<body background="../../../IMAGES/startile.gif">
<div style="text-align:center">
<%if request.querystring("billede") = "" then
path = "billeder"

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%>
<a href="<%=request.servervariables("script_name")%>?billede=<%=path&"/"&name%>&name=<%=Replace(LCase(name),"."&ext,"")%>" target="Main2">
<img src="<%=path&"/"&name%>" width="128" height="96" title="<%=name%>" border="0">
</a>
<br>
<% end if
next

set f = nothing
set fs = nothing
else%>
<div align="center">
<p><img src="<%=request.querystring("billede")%>"></p>
<p><%=Request.Querystring("name")%></p>
</div>
<%end if%>
</div>
</body>
</html>

Synes godt om

frank74 Nybegynder

18. oktober 2007 - 14:14 #15

Så virkede det. Dog bliver alt skrift nu med småt. Så jeg er gået tilbage til det forrige script og ændret .JPG til småt på alle billederne i stedet for. Dejligt med et hurtigt svar. Specielt nå det virker. Tak for hjælpen. ;-)

Synes godt om

w13 Novice

18. oktober 2007 - 14:15 #16

Det var så lidt, og mange tak for point. =)

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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