Notifikationer

Markér alle som læst Log ud

moore Nybegynder

21. marts 2005 - 20:02 Der er 34 kommentarer og
1 løsning

ASP Gallery

Hej

Har efterhånden søgt hele eksperten igennem for et gallery som jeg søger, men kan ikke lige finde det.

Det som jeg søger er :

1. Billederne skal ligge side om side i thumbnails, og skal så
åbne i et nyt vindue, som tilpasser sig original billedet.
2. Den må ikke bruge database
3. Den skal blot vise de billeder jeg har til at ligge i mine
mapper, dvs. den skal også vise det som er i undermapperne.

Kan desværre ikke finde noget som kan det.

Mvh
Thomas

Synes godt om

kalp Novice

21. marts 2005 - 20:21 #1

Det eneste jeg kender

Eksempel
http://www.matterdaddy.com/4/photoAlbum/Default.asp

kode
http://www.matterdaddy.com/4/scripts.php?pg=5

++++ Gratis:)

Synes godt om

moore Nybegynder

21. marts 2005 - 20:29 #2

Har fundet følgende kode.. Men når jeg sætter det ind som en include fil på min hovedside, viser den ikke billederne..
Selvom stien til billederne er korrekt.

<%
dim strfilearr, strcountfiles, randomfile, directory, allfiles, directoryfile
strmappe = "billeder/knudbilleder" 'HER SKAL STIEN TIL BILLEDERNE LIGGE

Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(strmappe))

For each directoryfile in allfiles.files
strfilearr = strfilearr + directoryfile.Name & ","
strcountfiles = strcountfiles + 1
Next

if request.querystring("execute") ="popup" then

ImageArray = split(strfilearr,",")

response.write "<html>" & vbCrLf
response.write "<head>" & vbCrLf
response.write "<title>image gallery [goat design]</title>" & vbCrLf
response.write "<script>" & vbCrLf
response.write "function resizeMe(){" & vbCrLf
response.write "if (navigator.appName == 'Netscape'){" & vbCrLf
response.write "adjWidth = document.images[""0""].width + 6;" & vbCrLf
response.write "adjHeight = document.images[""0""].height + 27;" & vbCrLf
response.write "}" & vbCrLf
response.write "else {" & vbCrLf
response.write "adjWidth = document.images[""0""].width + 100;" & vbCrLf
response.write "adjHeight = document.images[""0""].height + 150;" & vbCrLf
response.write "}" & vbCrLf
response.write "window.resizeTo(adjWidth, adjHeight);" & vbCrLf
response.write "window.focus()" & vbCrLf
response.write "}" & vbCrLf
response.write "</script>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "<body margin='0' onLoad=""resizeMe();"">" & vbCrLf
response.write "<table style='width:100%;height:100%;'>"
response.write "<tr>"
response.write "<td style='width:100%;height:100%;vertical-align:middle;text-align:center;'>"
response.write "<img src='"&strmappe&"/"&ImageArray(request.querystring("id")-1)&"' name=""0"" id='0' border='0'>" & vbCrLf
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td style='text-align:center;'><a href='java script:window.close();'>close</a></td>"
response.write "</tr>"
response.write "</table>"
response.write "</body>" & vbCrLf
response.write "</html>" & vbCrLf
else
response.write "<html>" & vbCrLf
response.write "<head>" & vbCrLf
response.write "<title>image gallery [goat design]</title>" & vbCrLf
response.write "<SCRIPT LANGUAGE=""Javascript"" type=""text/javascript"">" & vbCrLf
response.write "" & vbCrLf
response.write "</SCRIPT>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "<body style='text-align:center;'>" & vbCrLf

Dim CurrentPage, CountPages, ItemsprPage, ItemsTotal, ImageArray, StartImg, EndImg, SiteName, CountImgPrint
SiteName = request.servervariables("script_name")
ItemsTotal = strcountfiles
ItemsprPage = "12"
CurrentPage = request.querystring("id")
If CurrentPage = "" or CurrentPage = "0" then CurrentPage = "1"

CountPages = (ItemsTotal/12)
CountPages = round(fix(round(CountPages))+.5)

ImageArray = split(strfilearr,",")

StartImg = ((CurrentPage-1)*(ItemsprPage))
If StartImg = "0" then StartImg = "1"
EndImg = (ItemsTotal-StartImg)

if cint(EndImg) > cint(ItemsprPage) then
EndImg = round(StartImg-1) + round(ItemsprPage)
else
EndImg = (StartImg + EndImg)
End if

response.write "<table style='width:50%;'>"

CountImgPrint = 0

For I = StartImg to EndImg
CountImgPrint = CountImgPrint +1

If CountImgPrint = 1 then response.write "<tr>" & vbCrLf & vbCrLf

If right(ImageArray(I-1),4) = ".jpg" Then
response.write "<td style='width:20%;text-align:center;'><a href=""java script: Popit('"&SiteName&"?execute=popup&id="&I&"')"" onfocus='blur()'><img src='"&strmappe&"/"&ImageArray(I-1)&"' border='0' style='width:41px;;height:41px;' /></a></td>" & vbCrLf
End If

If CountImgPrint = 5 then
response.write "</tr>" & vbCrLf & vbCrLf
CountImgPrint = 0
end if
Next

response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "<td colspan='5' style='width:100%;text-align:center;'>"
For I = 1 to CountPages
If NOT Cint(CurrentPage) = Cint(I) then
response.write "<a href='"&SiteName&"?id="&I&"'>" &I& "</a>"
else
response.write "["&I&"]"
end if
Next

response.write "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf
response.write "</body>" & vbCrLf
response.write "</html>" & vbCrLf
end if
%>

Synes godt om

kalp Novice

21. marts 2005 - 20:31 #3

prøv at højreklik der hvor billedes skulle have været og vælge egenskaber.. se hvad den siger af sti

Synes godt om

moore Nybegynder

21. marts 2005 - 20:40 #4

kan jeg desværre ikke.. den udskriver slet ikke billederne
Linket kan ses her..

http://www.soundofmemphis.dk/test/index.asp?id=3

Synes godt om

kalp Novice

21. marts 2005 - 20:42 #5

okay du kan se stien ikke er korrekt.. den kigger efter dine billeder her

file:///C:/Inetpub/test/billeder/

og IKKE på din server

Synes godt om

kalp Novice

21. marts 2005 - 20:43 #6

jeg er ikke vildt god til ASP men prøv at angive HELE http stien til dine billeder.

Synes godt om

moore Nybegynder

21. marts 2005 - 20:48 #7

hvor ser du at den finder billederne der ??

Synes godt om

kalp Novice

21. marts 2005 - 20:49 #8

prøv at tryk på 2tallet
så finder man dette link

http://www.soundofmemphis.dk/test/index.asp?id=2

Synes godt om

moore Nybegynder

21. marts 2005 - 20:52 #9

ja ok.. men må jo se om jeg kan finde en løsning

Synes godt om

funstuff.dk Nybegynder

21. marts 2005 - 20:52 #10

Prøv denne her, den bruger jeg selv:

%
Function ShowFolderList1()
thumpwidth = "120"
thumpheight = "120"
counter = 5
counter2 = 0
folderspec = server.mappath(".\images\4marts2005")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
if lcase(right(file, 3)) = "jpg" OR lcase(right(file, 3)) = "gif" then
tmp = tmp & "<a href='images\4marts2005\" & file.name & "' target='_blank'><img border='0' src='images\4marts2005\tumb\" & file.name & "' width='" & thumpwidth & "' height='" & thumpheight & "'></A> "
counter2 = counter2 + 1
if counter2 = counter then
tmp = tmp & "<BR>"
counter2 = 0
end if
end if
Next
ShowFolderList1 = tmp
End Function
response.write showfolderlist1()
%>

Synes godt om

moore Nybegynder

21. marts 2005 - 20:56 #11

nu sker der da noget... Men den viser ikke billeder, kun at de er der..????

Synes godt om

moore Nybegynder

21. marts 2005 - 20:59 #12

Kunne også godt tænke mig.. at den kun åbnede et nyt vindue, som tilpasser sig billedets orignale størrelse

Synes godt om

kalp Novice

21. marts 2005 - 21:00 #13

http://www.soundofmemphis.dk/test/images/4marts2005/tumb/Knud_Nello_Brande1.jpg

det er stien til dem.. passer den??

strmappe = "billeder/knudbilleder" 'HER SKAL STIEN TIL BILLEDERNE LIGGE

hverken billeder eller knudbilleder er med i stien

Synes godt om

moore Nybegynder

21. marts 2005 - 21:02 #14

nej.. bruger det script som funstuff.dk har postet

Synes godt om

funstuff.dk Nybegynder

21. marts 2005 - 21:03 #15

jo den viser billederne.. du ska bare ligge en tumb af dem i en mappe der hedder tumb.. ellers ret stien her:
tmp = tmp & "<a href='images\4marts2005\" & file.name & "' target='_blank'><img border='0' src='images\4marts2005\tumb\" & file.name & "' width='" & thumpwidth & "' height='" & thumpheight & "'></A> "

Synes godt om

funstuff.dk Nybegynder

21. marts 2005 - 21:04 #16

hvis den ska tilpasses sig vinduet er det ikke helt lige til uden et billede komponent. har du adgang til nogle billede komponenter?

Synes godt om

kalp Novice

21. marts 2005 - 21:04 #17

moore > "problemet" med begge scripts er at du ikke angiver stien til billederne.. den rigtige

Synes godt om

moore Nybegynder

21. marts 2005 - 21:04 #18

dvs.. billederne skal ligge i 2 mapper... ???

Synes godt om

funstuff.dk Nybegynder

21. marts 2005 - 21:07 #19

hvis du har et tumb af dem.. altså et lille billede. så ka du ligge dem i en mappe for sig selv.. men hvis du ikke har rettet du bare stien så de kun ligger i en mappe.

Synes godt om

moore Nybegynder

21. marts 2005 - 21:10 #20

Her er koden som den ser ud nu.

<%
Function ShowFolderList1()
thumpwidth = "120"
thumpheight = "120"
counter = 5
counter2 = 0
folderspec = server.mappath(".\billeder/knudbilleder")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
if lcase(right(file, 3)) = "jpg" OR lcase(right(file, 3)) = "gif" then
tmp = tmp & "<a href='billeder/knudbilleder\" & file.name & "' target='_blank'><img border='0' src='images\4marts2005\tumb\" & file.name & "' width='" & thumpwidth & "' height='" & thumpheight & "'></A> "
counter2 = counter2 + 1
if counter2 = counter then
tmp = tmp & "<BR>"
counter2 = 0
end if
end if
Next
ShowFolderList1 = tmp
End Function
response.write showfolderlist1()
%>

Synes godt om

funstuff.dk Nybegynder

21. marts 2005 - 21:13 #21

<%
Function ShowFolderList1()
thumpwidth = "120"
thumpheight = "120"
counter = 5
counter2 = 0
folderspec = server.mappath(".\billeder\knudbilleder")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
if lcase(right(file, 3)) = "jpg" OR lcase(right(file, 3)) = "gif" then
tmp = tmp & "<a href='billeder/knudbilleder/" & file.name & "' target='_blank'><img border='0' src='billeder/knudbilleder/" & file.name & "' width='" & thumpwidth & "' height='" & thumpheight & "'></A> "
counter2 = counter2 + 1
if counter2 = counter then
tmp = tmp & "<BR>"
counter2 = 0
end if
end if
Next
ShowFolderList1 = tmp
End Function
response.write showfolderlist1()
%>

Synes godt om

moore Nybegynder

21. marts 2005 - 21:14 #22

har fundet fejlen..
Nu mangler jeg bare at den kun åbner vinduet så det passer til billedets størrelse.. men kigger på det imorgen

Synes godt om

moore Nybegynder

22. marts 2005 - 19:01 #23

Nogle som ligger med en ide til, hvor man tilpasser vinduet, så når billedet åbner, så er det ikke en hel side.

Synes godt om

funstuff.dk Nybegynder

23. marts 2005 - 18:07 #24

har du nogle billede komponeter på serveren?

Synes godt om

moore Nybegynder

23. marts 2005 - 18:15 #25

ja.. der er aspimage

Synes godt om

funstuff.dk Nybegynder

23. marts 2005 - 19:02 #26

Så kan du bruge til det.. Du skal dog lige sætte dig ind i det først. Men burde være nemt nok og gå til hvis du læser lidt om det.

http://www.serverobjects.com/comp/Aspimage.htm

Synes godt om

funstuff.dk Nybegynder

24. marts 2005 - 12:45 #27

Set AspImage = Server.CreateObject("AspImage.Image")
AspImage.LoadImage(Server.mappath("mappe/" & filnavn))

hojde= AspImage.MaxX
brede = AspImage.MaxY

Set ASPImage = Nothing

så har du højden og breden på billede, så er det bare og lave et pop up vindue der de mål.

Synes godt om

moore Nybegynder

25. marts 2005 - 09:16 #28

ja.. Har også forsøgt med den stump kode, men har ikke kunne få det sat ind hvor det skulle, så det vil virke.
Men må lede efter et fuldt script.. kan ikke selv se hvor det skal være..

Synes godt om

kalp Novice

17. april 2005 - 02:46 #29

har du fundet et eller stadig brug for det?

Synes godt om

moore Nybegynder

17. april 2005 - 09:15 #30

Hej
Har ikke fundet ud af det hele endnu..
Sidder og kæmper med at billederne kun åbner i et vindue som selv tilpasser sig billedets størrelse..
Jeg bruger følgende kode, men skal bare have ind i koden, at vinduet tilpasser sig billedet.

<%
Function ShowFolderList1()
thumpwidth = "120"
thumpheight = "120"
counter = 5
counter2 = 0
folderspec = server.mappath(".\billeder/knudbilleder")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
if lcase(right(file, 3)) = "jpg" OR lcase(right(file, 3)) = "gif" then
tmp = tmp & "<a href='billeder/knudbilleder\" & file.name & "' target='_blank'><img border='0' src='billeder/knudbilleder\" & file.name & "' width='" & thumpwidth & "' height='" & thumpheight & "'></A> "
counter2 = counter2 + 1
if counter2 = counter then
tmp = tmp & "<BR>"
counter2 = 0
end if
end if
Next
ShowFolderList1 = tmp
End Function
response.write showfolderlist1()
%>

Synes godt om

busschou Praktikant

17. april 2005 - 09:25 #31

Så vil jeg tro du skal bruge javascript
Se evt første indlæg her: http://eksperten.dk/spm/374601

Synes godt om

kalp Novice

17. april 2005 - 10:25 #32

ellers kig på disse
http://www.scriptdungeon.com/free_asp_scripts/image_galleries/free_asp_scripts.php

DuGallery har jeg selv tested og det rimelig godt.

Synes godt om

moore Nybegynder

17. april 2005 - 11:09 #33

yepsen.. tror jeg kigger lidt på det javascript

Synes godt om

busschou Praktikant

08. maj 2005 - 10:01 #34

moore >> kommet videre?:o)

Synes godt om

moore Nybegynder

08. maj 2005 - 11:07 #35

nej.. havde faktisk glemt spørgsmålet.. og gået tilbage til en gammel ide jeg havde.. så jeg lukker nu spørgsmålet..

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