Klicka/Klistra in länken nedan så ser du frågan där.

http://www.esperanzadata.se/images/bild.gif


Tack
Jörgen

ja visst kan man det.
det är relaterade sökvägar du menar eller? t ex "/bilder/bilden1.jpg"

Det är bus-lätt.

Lista bilder:
<code:asp>
<%set fso=Server.CreateObject("Scripting.FileSystemObject")%>
Set Folder= Fso.GetFolder("c:\mapp\bildmapp\") ' absolut sökväg fungerar bäst. Virtuell sökväg fungerar också.
Set Files=Folder.Files

For Each File in Files
Response.write "<img src=""/bildmapp/"&File.Name&""" onclick=""document.getElementById('imagepath').value='/bildmapp/"&File.Name&"';"" />"&VbCrLf
Next

Set Files=Nothing
Set Folder=Nothing
Set fso=Nothing
</code>

Jag har inte tagit hänsyn till bildstorlekar eller marginaler m m, så det får du fixa med css eller liknande.

Tack så mycket Jonas, men jag är en zoombie på detta och jag fattar ingetting.
Lyckades precis med vad du såg på bilden.

Jag vet inte om det har någon betydelse men jag använder en Access db där jag har bilderna.


Tack ändå

Jörgen

Om du inte förstår logiken i programmering har jag svårt (läs: inte tålamod) att hjälpa.

Hmmm, OK men jag trodde detta var ett ställe där alla försökte hjälpa varandra.
Alla kan ju inte vara som DU, men jag får väl gå till ett mer hjälpsamt forum.

Tack för mig

oj vilka hårda ord.

Vi hjälper varandra, ja, men åtminstone jag vill att den jag hjälper skall förstå och kunna utveckla sig själv istället för att be folk göra det åt en.

Hårda ord, hmmmm vet jag inte om det var. Fakta skulle jag vilja kalla det.

Angående försökt så har jag faktiskt byggt 3 sidor med diverse saker på.<
För att vara en zoombie på Asp och Access så tyckte jag att detta var bra för att
vara mig.

1. Uppladdning av bilder
2. Delete bilder
3. Ta bort post
4. Radera post
5. Uppladdning av ny post
6. Delete post
7. Denna fixade jag ej, Därför ställde jag frågan här.

PS. Jag frågade aldrig om någon skulle vilja göra det till mig, bara en simpel fråga.

Men när jag har läst dina svar så får jag väl gå vidare

ok då har du förklarat din nivå´bättre.

Vad är det du inte klarar av?

Du fick av mig koden att lista bilder som ligger i specificerad mapp.
Vad är det som saknas för att du skall kunna fortsätta?

OK, tar det från början.

Jag behöver en sida som kan göra följande.

Se min bild i första posten.

1. När jag klickar på visa bilder(text eller knapp) ska bilderna komma upp där jag har markerat dessa(se skiss).
bör vara miniatyrer låt oss säga 100x100 px.
2. När jag klickar stäng bilder ska bilderna försvinna.
3. När bilderna är uppe ska det vara möjligt att klicka på en bild och den lägger sig i bildfältet i formuläret.

Jag provade ditt script men fungerade ej(mitt fel).

Jag behöver veta hur jag lägger in detta i en nuvarande sida.

Hur jag gör så att bilderna blir ex. 100x100 px

Eller kanske bättre att göra en helt ny sida. Vet ej.

Jag begär inte att Du ska göra detta till mig, men en liten hint om hur Jag skulle kunna göra det.

Tack

Ok, jag förstår.

fick du upp något felmeddelande när du körde min kod?
Jag antar att du hade angivit rätt sökväg till bildmappen?!

Hur får du upp bilderna till servern?
Vet du om server har en bildkomponent? t ex aspjpeg, aspimage eller w3Image?
Denna komponent hjälper dig att skapa tumnaglar av bilderna som dina originalbilderna.

Nej inget felmeddelande

Kolla länken

http://www.esperanzadata.se/Allt%20i%20Gläntan/GlantanAdmin/Presentshop/nydata1.asp

Laddar upp bilder med AspUpload

bildkomponent = vet ej

Ja, bilderna hittas men skrivs inte ut, antagligen pga fel sökväg till bilderna

Kan du kolla med webbhotellet om det finns en bildkomponent installerat på servern?!


<code>
<img src="/upload/102_0280(1).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(1).jpg';" />
<img src="/upload/102_0280(2).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(2).jpg';" />
<img src="/upload/102_0280(3).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(3).jpg';" />
<img src="/upload/102_0280(4).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(4).jpg';" />
<img src="/upload/102_0280(5).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(5).jpg';" /> osv...</code>


Testa att ändra i aspkoden:
<code><%
Response.write "<img src=""upload/"&File.Name&""" onclick=""document.getElementById('bild').value='upload/"&File.Name&"';"" style=""width:50px; float:left; margin: 0 10px 10px 0;""/>"& VbCrLf
%></code>

Var lägger jag in denna

<img src="/upload/102_0280(1).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(1).jpg';" />
<img src="/upload/102_0280(2).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(2).jpg';" />
<img src="/upload/102_0280(3).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(3).jpg';" />
<img src="/upload/102_0280(4).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(4).jpg';" />
<img src="/upload/102_0280(5).jpg" onclick="document.getElementById('imagepath').value='/upload/102_0280(5).jpg';" /> osv...

det skall du inte, jag visade bara att bilderna hittas av koden. Därmed fungerar koden men att det inte är rätt sökväg till bilderna och därför visas de inte.

Dessa komponenter finns

AspJpeg
AspSmartImage

vid uppladdning av bilderna (för du använder aspupload när du laddade upp bilder sade du?) så kan du lägga in ett script som skapar en tumnagel som lägger bilden i t ex mappen "thumbs" under mappen "upload"

visa asp-kod för uppladdningen så kan jag hjälpa.

sen behöver du göra tumnaglar av redan uppladdade bilder, men det fixar vi sen...

Ok, en fråga först.

Tror jag vet varför bilderna ej syns. Kanske fel ute här.

Mappen upload ligger i min root

Sidan där jag ska lägga till ny post och bild ligger

http://www.esperanzadata.se/Allt i Glantan/GlantanAdmin/Presentshop/nydata1.asp

Är jag rätt på de då jag säger att sökvägen är helt ute och reser då

Jag kommer åt bilderna under
http://www.esperanzadata.se/Allt i Glantan/GlantanAdmin/Presentshop/Upload/
eller är det inte så?

Sökvägen var korrekt innan, men inte nu när du ändrat, det bar endast sökvägen till bilderna (<img src="">) som var fel.

Något stämmer ej, bilden som du ser om du går till

http://www.esperanzadata.se/Allt%20i%20Gläntan/GlantanAdmin/Presentshop/nydata1.asp

har jag ftp:at upp för att se.(glöm de bilderna där)

När jag laddar upp en bild lägger den sig i root/upload

Så sökvägen måste vara fel.

Förstår inte varför vi ser alla bilderna på ovanstående sida(ja röda kryssen)

Här är filerna jag laddar upp med

laddaupp.asp

<HTML>
<HEAD>
<TITLE>AspUpload</TITLE>
</HEAD>
<BODY bgcolor="F5F3E4">
<h4>&nbsp;</h4>
<h4>&nbsp;</h4>
<h4><font color="#6E2245" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Ladda upp bilder h&auml;r </strong></font></h4>
<h4><FONT color="#6E2245" size="2" FACE="Arial"><B>V&auml;lj 1, 2 eller 3 bilder, klicka sedan p&aring; Ladda upp bilder. </B></FONT></h4>
<h4><FONT FACE="Arial" size="2"><B><br>
<font color="#6E2245">Bilderna kan vara i formaten (.gif, .jpg, .png).......</font></B>
</FONT></h4>
<p>&nbsp;</p>
<FONT FACE="Arial" size="2">
<P>
<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="Upload1.asp">
<TABLE align="center" CELLPADDING=3 CELLSPACING=0>
<TD BGCOLOR="#F5F3E4">
<INPUT TYPE=FILE SIZE=40 NAME="FILE1"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE2"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="Ladda upp Bilder"></TD>
</TABLE>
</FORM>
<P>

</BODY>
</HTML>

------------------------------------------------------------------------------------------
upload1.asp

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/") & "\upload")
%>
<HTML>
<BODY BGCOLOR="#FFFFFF" link="#6E2245" vlink="#6E2245" alink="#6E2245">
<p>&nbsp;</p>
<CENTER>
<% If Err <> 0 Then %>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
</FONT>
<H3><font color="#6E2245" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>F&ouml;ljande fel uppt&auml;cktes vid uppladdning </strong></font><strong><font color="#6E2245" size="3" face="Arial">:</font></strong></h3>


<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>

<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
<font color="#6E2245" face="Verdana, Arial, Helvetica, sans-serif">V&auml;nlgen prova igen</font>.
</FONT>

<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0></FONT>
<h3><font color="#6E2245" size="4" face="Arial">Succé!</font><font color="#0020A0" size="4" face="Arial">
<% = Count %>
<font color="#6E2245">bild(er) har blivit uppladdad(e).</font></font></h3>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#6E2245"><font color="#FFFFFF">Uppladdad Bild</font></TH>
<TH BGCOLOR="#6E2245"><font color="#FFFFFF">Storlek</font></TH>
<TH BGCOLOR="#6E2245"><font color="#FFFFFF">Original Storlek</font></TH>
<TR>
<% For Each File in Upload.Files %>
<% If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
<TD ALIGN=CENTER><BR>
<B><% = File.OriginalPath%></B><BR>
<font color="#6E2245">(</font>
<% = File.ImageWidth %> <font color="#6E2245">x</font>
<% = File.ImageHeight %> <font color="#6E2245">pixels)</font> </TD>
<% Else %>
<TD><B><% = File.OriginalPath %></B></TD>
<% End If %>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> <font color="#6E2245">bytes</font></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> <font color="#6E2245">bytes</font></TD><TR>
<% Next %>
</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#6E2245>
Klicka här för att ladda upp fler bilder.</FONT>
<% End If %>

<HR>



</CENTER>
</BODY>
</HTML>

Se först till att det finns en mapp som heter "thumbs" i din uploadmapp.

i upload1.asp efter <% Else %> (om uppladdningen lyckats), kläm in följande kod:

<code><%
Else '< - den else jag talade om innan

save_to_folder=Server.MapPath("/") & "\upload\thumbs\"
Set File = Upload.Files(1)

' Is this a valid image file?
If File.ImageType <> "UNKNOWN" Then

' Create instance of AspJpeg object
Set jpeg = Server.CreateObject("Persits.Jpeg")

' Öppnar filen du laddade upp
jpeg.Open( File.Path )

max_thumb_width = 50

jpeg.Width = 50
jpeg.Height = jpeg.OriginalHeight

SavePath = save_to_folder & File.ExtractFileName

' AspJpeg always generates thumbnails in JPEG format.
' If the original file was not a JPEG, append .JPG ext.
If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If

jpeg.Save SavePath
End if
%> </code>

Efter du sparat och laddat upp upload1.asp, testa att ladda upp en ny fil så ser vi om det blivit någon tumnagel i den mappen

Fick detta felmeddelande

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/Allt i Gläntan/GlantanAdmin/Presentshop/Upload1.asp, line 32

Else '< - den else jag talade om innan
^

Fick det att fungera nu, och det fanns en bild i mappen thumb

OJ, jag gjorde nog fel innan. Det blev lite konstig storlek på tumnageln va?!
I upload1.asp, ändra
<code>
max_thumb_width = 50
jpeg.Width = 50
jpeg.Height = jpeg.OriginalHeight
</code>
till:
<code>
thumb_width = 50
jpeg.Width = thumb_width
Jpeg.Height = Jpeg.OriginalHeight * thumb_width / Jpeg.OriginalWidth
</code>
Då blir det både rätt och konsekvent.



finemang!!
nu behöver du göra två saker:

1. göra en loop som kollar om bilder i uploadmappen har en tumnagel, om inte så skapa en

2. Göra om raderna i din admin som skall


<b>1.</b>
Gör en helt ny sida. Du skall bara använda den en gång (om något inte går fel )
Döp den till create_thumbs.asp
<code>
<%@language="VbScript"%>
<%
upload_folder="c:\mapp\bildmapp\"
thumb_width=50

Sub MakeThumb(file_to_resize)
Set Jpeg = Server.CreateObject("Persuits.ASPJPEG")
Jpeg.Open upload_folder & file_to_resize
Jpeg.Width = thumb_width
Jpeg.Height = Jpeg.OriginalHeight * thumb_width / Jpeg.OriginalWidth
Jpeg.Save upload_folder & "thumbs\" & file_to_resize
Set Jpeg=Nothing
End Sub


set fso=Server.CreateObject("Scripting.FileSystemObject")
Set Folder= Fso.GetFolder(upload_folder)
Set Files=Folder.Files

For Each File in Files
if fso.FileExists(upload_folder&"thumbs\"&File.Name)=false Then MakeThumb File.Name
Next

Set Files=Nothing
Set Folder=Nothing
Set fso=Nothing

%>
</code>
Spara, ladda upp, och kör.



<b>2.</b>
I admin-filen, byt ut den förra loopen
<code><%
For Each File in Files
Response.write "<img src=""upload/thumbs/"&File.Name&""" onclick=""document.getElementById('bild').value='upload/"&File.Name&"';"" style=""float:left; margin: 0 10px 10px 0;""/>"& VbCrLf
Next%><br style="clear:both; height: 1px; font-size:1px;"/>
</code>

<%@language="VbScript"%>
<%
upload_folder="c:\mapp\bildmapp\"
thumb_width=50

där som står upload_folder="c:\mapp\bildmapp vad ska där stå så jag inte strular till det.

är detta rätt???

<%@language="VbScript"%>
<%
upload_folder="\upload\thumbs\"
thumb_width=50

upload_folder är den absoluta sökvägen till upload-mappen

Du får byta ut den mot den riktiga sökvägen.
Jag kan ju inte se dina sökvägar.

När man skriver virtuell sökväg (dvs utan enhet, t ex c:\ ) så är det inte säkert att koden jag givit dig fungerar överallt. Den används för dels FileScriptingObject (fso) aspJpeg samt AspUpload.
De hanterar sökvägar på olika sätt.


edit:

Om du har alla adminfiler i samma katalog kan du använda dig av sökvägen:
upload_folder=Server.MapPath("/") & "\upload\"


testa detta

Fick detta

Microsoft VBScript compilation error '800a03f2'

Expected identifier

/create_thumbs.asp, line 7

Sub MakeThumb(file_to_resize)...
------------------------------^

Nej detta fungerar ej

Expected identifier

/create_thumbs.asp, line 7

Sub MakeThumb(file_to_resize)...
------------------------------^


Då är värdet tomt i loopen.

<code>
For Each File in Files
'if fso.FileExists(upload_folder&"thumbs\"&File.Name)=false Then
Response.write File.Path
Next
</code>
Fungerar detta?

Nej, tyvärr

Du får förklara närmare vad det är som inte fungerar. Det går inte att hjälpa dig i blindo.

Får detta när jag kör filen

Detta fel (HTTP 500 - Internt serverfel) innebär att webbplatsen du besöker har ett serverproblem som gör att webbsidan inte kan visas.

Ytterligare information om HTTP-fel finns i Hjälpen.

Nej nu är det tid för sängen.

STORT TACK Jonas, ska försöka klura ut sökvägen till bilderna i morgon.

Har ett annat projekt på gång, så jag ställer en fråga till dig.

Gör du script mot betalning?
Om så kan jag maila dig och visa vad jag vill ha.

Stort Tack igen

Jörgen

du får ställa om under verktyg->Internetalternativ -> avancerat -> bocka ur "Show Friendly HTTP messages" så får man mer info om felet.

posta annars felen i sin helhet.

Ja, jag är egenföretagare så jag tar på mig att scripta mot betalning.

Jag kan åtminstone ta mig en titt på det. Skicka ett PM..

Jonas

Har strulat lite med koden och nu ser det ut att fungera.

Tycker bara att tumnaglarna blir lite små, och när jag laddar upp tre bilder
dyker bara en upp som tumnagel.

Något förslag?

En annan fråga, om du klickar/klistrar in denna länk

http://www.esperanzadata.se/Presentshop/nydata1.asp

så ser du att jag har Visa bilder/Dölj bilder.

Går detta av göra så att när jag kommer till sidan är där inga bilder, men när jag klickar på
Visa bilder dyker de upp, och när jag klickar på dölj bilder försvinner de.

Stort tack om du har förslag på detta

Hej. Bra att du fått det att fungera.

Vet inte varför bara var tredje blir omskalad. Lpter konstigt.

Om du vill ha större tumnaglar kan du ändra variabeln thumb_width till ett högre värde



Det lättaste sättet att visa/dölja bilderna är att omsluta bilderna med en div, istället för en tabell som du gjort nu.
Det är smidigare (tycker jag ) att styra synligheten på det sättet.

<div id="image-div" style="width: 300px; display:none;">
<%
'här lägger du  koden som listar bilderna
%>
<br style="clear:both; height: 1px;" />
</div>

Sedan skall du göra länkar av "visa bilder" och "dölj bilder"

Visa bilder

Dölj bilder

kuriosa:
Förvisso laddas bilderna in divven vid sidladdningen, istället för när man klickar på "visa bilder".Bilderna finns redan där men att man gömmer diven tills dess att man klickar på "Visa bilder"
Men det är sak samma för det du använder funktionen till tycker jag.

Hej, och tack för detta

Har lagt det som följer men får ett felmeddelande



Visa bilder&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dölj bilder</p>

<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>


<div id="image-div" style="width: 300px; display:none;">
<%
Folder = "/upload/thumbs/"
set Fso = Server.CreateObject("Scripting.FileSystemObject")
set Folder = Fso.GetFolder(server.mappath(Folder))
for each File in Folder.files
Response.write "<img src=""/upload/thumbs/"&File.Name&""" onclick=""document.getElementById('bild').value='upload/"&File.Name&"';"" style=""float:left; margin: 0 10px 10px 0;""/>"& VbCrLf
next
set oFolder = Nothing
set oFso = Nothing
%>
<br style="clear:both; height: 1px;" />
</div>

Felmeddelandet är följande.

'document.getElementByID(...) är null eller inte ett objekt

Efter en ändring försvann bilderna och när jag klickar på visa bilder får jag upp ett följande felmeddelande.

"Det gick inte att hitta medlemmen"

min fråga är vilken medlem??

Nu är det verkligen rörigt.

När man klickar på bilden som ska läggas till är detta sökvägen

Jag menar fältet

<%=(rsbildgalleriet.Fields.Item("bild").Value)%>

Men detta fungerar ej, då denna är till en databas

Kan man göra en länk som går till mappen man har filerna i istället

Mycket tacksam för svar.

Jörgen

Testade detta men fick felmeddelandet

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/xxxxxx/presentbod/present.asp, line 385

Response.Write((img src)="/upload".Fields.Item("bild").Value))
--------------------^

Jörgen.
Du har nog snöat in dig och behöver backa några steg.

Vad du skall göra med databasfältet förstår jag inte.
Men jag kan tänka mig att när du skall redigera en post, så skall detta värde föras in i input-fältet. Detta har, om jag förstår dig rätt, inget att göra med bilderna.

Om du har problem med visa/dölj bild-divven, testa att ändra id på divven till "imagesdiv". Ändra även så det står samma i länkarna som visa och döljer bilderna.

Posta hela koden om du har problem.
Jag kan inte utläsa något speciellt ur felmeddelandena utan se koden i sin helhet.

Ja du har alldeles rätt. Insnöad är rätta ordet.

här är koden, har ändrat till "imagesdiv"


Visa bilder

Dölj bilder


<div id="imagesdiv" style="width: 300px; display:none;">

<%
Folder = "/upload/thumbs/"
set Fso = Server.CreateObject("Scripting.FileSystemObject")
set Folder = Fso.GetFolder(server.mappath(Folder))
for each File in Folder.files
Response.write "<img src=""/upload/thumbs/"&File.Name&""" onclick=""document.getElementById('bild').value='upload/"&File.Name&"';"" style=""float:left; margin: 0 10px 10px 0;""/>"& VbCrLf
next
set Folder = Nothing
set Fso = Nothing
%>

<br style="clear:both; height: 1px;" />
</div>

Här är länken till sidan

http://www.esperanzadata.se/alltiglantan/PresentshopAdmin/nydata.asp

Nu har jag kollat på din sida.

Koden ser korrekt ut , funktionen som lägger in bildsökvägen i bildfältet fungerar.
Du verkar inte använda dig av visa/dölj bilder, eller?

Vad är det som inte fungerar för dig? Jag kan inte utläsa det av ditt förra inlägg. Du får förklara lite bättre.

Nej jag tog bort det för det fungerade ej.

Nu har jag lagt in det igen. Om du kollar sidan nu och klickar på Visa eller dölj så förstår du vad jag menar.

Fick en ny post med en annan kod. Detta fungerade.
Stort tack Jonas för all hjälp du gav mig.