Søg
Avatar billede rashid Praktikant
01. august 2008 - 12:47 Der er 62 kommentarer og
1 løsning

thickbox eller lightbox

hej
er der nogen der ved om man kan integrere ovenstående billedefremvisere med en database ?

har selv forsøgt, men har ikke kunnet få det til at virke, så måske andre havde gjort det før mig ?
Avatar billede rashid Praktikant
01. august 2008 - 12:48 #1
har brug for at kunne integrere det med en access-database i "gammel" ASP - ikke asp.net

håber det er mere forståeligt
Avatar billede w13 Novice
01. august 2008 - 12:57 #2
Så vidt jeg ved, laver du lightboxlinks således:

<a href="images/image-1.jpg" rel="lightbox" title="my caption"><img src="small1.jpg"></a>

Så er det vel bare at udskrive det sådan fra din DB.
Avatar billede rashid Praktikant
01. august 2008 - 13:12 #3
ville sætte pris på et kodeeksempel.
skal kunne flg.: læse filnavne fra en folder(som indeholder billeder samt thumbnails), indsætte navnene i ovenstående format, og sidst skrive de filer, som lightbox skal bruge til at generere billedoversigten (thumbs) og billedet.
Avatar billede w13 Novice
01. august 2008 - 13:31 #4
Ok, så ingen database alligevel?
Avatar billede rashid Praktikant
01. august 2008 - 14:11 #5
hvis det kan laves uden at have en database så er det fint med mig :-)
blot at man kan styre det lidt mere automatisk end at selv skulle skrive de filer Lightbox benytter...
Avatar billede w13 Novice
01. august 2008 - 14:22 #6
Måske:

<%
dim oFSO,sFolder
sFolder="mappesti/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).getFiles
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
%>
  <a href="<%=sFolder&oFile.Name" rel="lightbox" title="<%=oFile.Name%>"><%=oFile.Name%></a>
<%
  End If
Next
Set oFSO=nothing
%>
Avatar billede rashid Praktikant
01. august 2008 - 14:24 #7
hej
det vil jeg prøve af når jeg kommer hjem. Takker for hjælpen nu :-)

Er det ikke korrekt forstået at man så blot uploader billeder samt thumbnails til folderen, og så bliver det vist eller ?
Avatar billede w13 Novice
01. august 2008 - 14:32 #8
Jup :)

Hvis billedets navn starter med "thumb_", er det thumbnailen.

Dog skulle min kode have været:

<%
dim oFSO,sFolder
sFolder="mappesti/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).getFiles
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb_") Then
%>
  <a href="<%=sFolder&"thumb_"&oFile.Name%>" rel="lightbox" title="<%=oFile.Name%>"><%=oFile.Name%></a>
<%
  End If
Next
Set oFSO=nothing
%>
Avatar billede w13 Novice
04. august 2008 - 11:38 #9
Fået set på det? :)
Avatar billede rashid Praktikant
05. august 2008 - 22:52 #10
hej
har forsøgt, men kan ikke få det til at funke...

kan w13 hjælpe med helt eksempel ?

pft
Avatar billede w13 Novice
06. august 2008 - 00:08 #11
Ikke bedre end 01/08-2008 14:32:29 :)

Hvilken fejl får du eller hvilken kildekoden bliver genereret, hvis du ser i Vis Kilde?
Avatar billede rashid Praktikant
06. august 2008 - 10:45 #12
hej

jeg forsøger mig med denne kode:
(har lagt standard lightbox-folderne ind fra zipfilen
de tre foldere er:
-js
-css
-images)


<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="images/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).getFiles
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
%>
  <a href="<%=sFolder&oFile.Name" rel="lightbox" title="<%=oFile.Name%>"> <%=oFile.Name%></a>
<%
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede w13 Novice
06. august 2008 - 10:46 #13
Og hvad sker der, når du prøver den kode?
Avatar billede rashid Praktikant
06. august 2008 - 11:26 #14
siden kan ikke vises... :-(
Avatar billede w13 Novice
06. august 2008 - 11:40 #15
Og har du slået "Visning af uskadelige HTTP-fejl" fra i Funktioner --> Internetindstillinger --> Avanceret ?
Avatar billede rashid Praktikant
06. august 2008 - 11:51 #16
ok.. er nu slået fra - jeg får så flg. fejl:
Microsoft VBScript compilation error '800a03ee'

Expected ')'

/testomraade/lightbox/test.asp, line 25

Response.Write(sFolder&oFile.Name" rel="lightbox" title="<%=oFile.Name)
---------------------------------^
Avatar billede w13 Novice
06. august 2008 - 11:52 #17
Hehe. Og fejlmeddelelsen har helt ret!

Ret:

  <a href="<%=sFolder&oFile.Name" rel="lightbox" title="<%=oFile.Name%>"> <%=oFile.Name%></a>

til:

  <a href="<%=sFolder&oFile.Name%>" rel="lightbox" title="<%=oFile.Name%>"> <%=oFile.Name%></a>
Avatar billede rashid Praktikant
06. august 2008 - 11:52 #18
^peger på " efter .Name
Avatar billede w13 Novice
06. august 2008 - 11:56 #19
Ja, fordi vi ikke afslutter "%>" vil anførelsestegnet virke lidt mærkeligt. :)
Avatar billede w13 Novice
06. august 2008 - 12:07 #20
Burde få det til at fungere. =)
Avatar billede rashid Praktikant
06. august 2008 - 12:10 #21
:-)
det overså jeg da også...
jeg prøver igen...
Avatar billede rashid Praktikant
06. august 2008 - 12:15 #22
det bliver så til denne fejl:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'getFiles'

/testomraade/lightbox/test.asp, line 21

er det så fordi fso er slået fra ??
Avatar billede w13 Novice
06. august 2008 - 12:58 #23
Hmm.. Måske hedder det bare files i stedet for getFiles. Det tror jeg faktisk.
Avatar billede rashid Praktikant
06. august 2008 - 13:20 #24
fantastisk... det virkede :-)
sidste tillægsspørgsmål: hvis man vil have vist thumbnails sammen med links, hvordan kædes det så sammen ?

tak for din hjælp for nu - det vil være prikken over I'et hvis du kan hjælpe med det sidste :-)
Avatar billede w13 Novice
06. august 2008 - 13:22 #25
Så retter du bare:

  <a href="<%=sFolder&oFile.Name" rel="lightbox" title="<%=oFile.Name%>"> <%=oFile.Name%></a>

til:

  <img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"
  <a href="<%=sFolder&oFile.Name" rel="lightbox" title="<%=oFile.Name%>"> <%=oFile.Name%></a>

Du kan selvfølgelig placere <img>-tag'et lige hvor du synes. =)
Avatar billede rashid Praktikant
06. august 2008 - 13:43 #26
hej
det var helt fint, men jeg kan ikke få den til at vise billederne, men kun krydser ?! se: http://hwarang.dk/testomraade/lightbox/test.asp

jeg skal nok lade være med at plage mere... :-)
Avatar billede w13 Novice
06. august 2008 - 13:45 #27
Dine thumbnails skal jo hedde thumb_filnavn

F.eks. thumb_closelabel.gif som svarer til billedet closelabel.gif
Avatar billede rashid Praktikant
06. august 2008 - 13:46 #28
ahh... :-) tror jeg pakker sammen og går hjem :-)
det må være varmen..

takker for al din hjælp.
Avatar billede rashid Praktikant
06. august 2008 - 13:47 #29
du har fået points
Avatar billede w13 Novice
06. august 2008 - 13:49 #30
Tak for point! :)
Avatar billede rashid Praktikant
06. august 2008 - 14:21 #31
og hvis nu jeg vil vise thumbnails med max 3 ved siden af hinanden...
(kunne ikke lade være alligevel)..
Avatar billede w13 Novice
06. august 2008 - 14:26 #32
Prøv lige at vise, hvordan koden ser ud nu. =)
Avatar billede rashid Praktikant
06. august 2008 - 14:28 #33
<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="images/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).Files
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
%>
' <a href="<%=sFolder&oFile.Name%>" rel="lightbox" title="<%=oFile.Name%>"> <%=oFile.Name%></a>
  <img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"
  <a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <%=oFile.Name%>"</a>
<%
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede w13 Novice
06. august 2008 - 14:30 #34
<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="images/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).Files
i=0
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
  i=i+1
%>
' <a href="<%=sFolder&oFile.Name%>" rel="lightbox" title="<%=oFile.Name%>"> <%=oFile.Name%></a>
  <img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"
  <a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <%=oFile.Name%>"</a>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede w13 Novice
06. august 2008 - 14:30 #35
Burde klare det.
Avatar billede rashid Praktikant
06. august 2008 - 14:44 #36
det så ud til at gøre jobbet... takker for hjælpen.
Avatar billede rashid Praktikant
06. august 2008 - 14:44 #37
endnu engang :-)
Avatar billede w13 Novice
06. august 2008 - 14:44 #38
;)
Avatar billede rashid Praktikant
07. august 2008 - 10:58 #39
hej (igen)
jeg har fået et rigtigt pænt resultat ud af det. dog mangler jeg at scriptet ikke laver det "nederste" på siden - se lige http://hannecedervall.dk/test/index.asp

koden ser nu sådan ud:
<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).Files
i=0
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <br><br> <%=oFile.Name%><a><br><br>
<img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"<br>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede w13 Novice
07. august 2008 - 11:03 #40
Hvad mener du med "det nederste"? :)

Denne kode skulle kun vise thumbnails, hvis de findes:

<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).Files
i=0
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <br><br> <%=oFile.Name%><a><br><br>
<%If Server.CreateObject("Scripting.FileSystemObject").FileExists(sFolder&"thumb_"&oFile.Name)%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>
<br>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede w13 Novice
07. august 2008 - 11:03 #41
Hvis det ikke virker, så:

<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).Files
i=0
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <br><br> <%=oFile.Name%><a><br><br>
<%If Server.CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath(sFolder&"thumb_"&oFile.Name))%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>
<br>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede rashid Praktikant
07. august 2008 - 11:11 #42
hmm...
det jeg mente var om man kunne skjule links på thumbnails ?? hvis du kigger nederst på siden kan man se at der er links til thumbs...
http://hannecedervall.dk/test/test.asp
Avatar billede w13 Novice
07. august 2008 - 11:13 #43
Hmm. Det burde den. Brug lige denne kode, og sig til, når jeg kan gå ind og se, hvad den så skriver:

<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject").getFolder(Server.MapPath(sFolder)).Files
i=0
For Each oFile In oFSO
  If Not InStr(oFile.Name,"thumb") Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <br><br> <%=oFile.Name%><a><br><br>
<%If Server.CreateObject("Scripting.FileSystemObject").FileExists(sFolder&"thumb_"&oFile.Name)%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>
<%="InStr: "&InStr(oFile.Name,"thumb")%>
<br>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede rashid Praktikant
07. august 2008 - 11:14 #44
nu...
Avatar billede w13 Novice
07. august 2008 - 11:16 #45
Godt. Så prøv:

<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")i=0
For Each oFile In oFSO.getFolder(Server.MapPath(sFolder)).Files
  If InStr(oFile.Name,"thumb")=0 Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <br><br> <%=oFile.Name%><a><br><br>
<%If oFSO.FileExists(sFolder&"thumb_"&oFile.Name)%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>
<br>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede w13 Novice
07. august 2008 - 11:17 #46
Og hvis man også skal kunne klikke på thumb'en:

<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")i=0
For Each oFile In oFSO.getFolder(Server.MapPath(sFolder)).Files
  If InStr(oFile.Name,"thumb")=0 Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <br><br> <%=oFile.Name%><br><br>
<%If oFSO.FileExists(sFolder&"thumb_"&oFile.Name)%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>
</a>
<br>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede rashid Praktikant
07. august 2008 - 11:20 #47
siger den mangler end of statement:
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")i=0
----------------------------------------------------------^
Avatar billede w13 Novice
07. august 2008 - 11:20 #48
Det gør den også. :)

Ret:

Set oFSO=Server.CreateObject("Scripting.FileSystemObject")i=0

til:

Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
i=0

Fik lige slettet et linjeskift for meget.
Avatar billede rashid Praktikant
07. august 2008 - 11:26 #49
ok, men så siger den at der mangler et "then" og sætter man det ind får man at vide at Expected end of statement
Avatar billede rashid Praktikant
07. august 2008 - 11:27 #50
håber ikke at det tager for meget af din tid... men takker for hjælpen
Avatar billede w13 Novice
07. august 2008 - 11:28 #51
Det gør der også. :)

Ret:

<%If oFSO.FileExists(sFolder&"thumb_"&oFile.Name)%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>

til:

<%If oFSO.FileExists(sFolder&"thumb_"&oFile.Name) Then%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>
Avatar billede rashid Praktikant
07. august 2008 - 11:33 #52
det fik scriptet til at virke, men nu er der kun tekst... man skal gerne kunne se thumbs, men ikke links til dem. hvis du kigger på http://hannecedervall.dk/test/index.asp kan du se at der er billeder, men at links peger på de store billeder. nederst er der links til thumbs, som helst skal fjernes!!
er jeg forvirrende ?
Avatar billede w13 Novice
07. august 2008 - 11:36 #53
Har du lagt den nyeste kode ind på http://hannecedervall.dk/test/index.asp ?

For jeg havde rettet noget i linjen:

<%If oFSO.FileExists(sFolder&"thumb_"&oFile.Name) Then%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>

som ikke er blevet rettet på den side.
Avatar billede rashid Praktikant
07. august 2008 - 11:44 #54
:-) er nu rettet til, men resultatet er desværre ikke anderledes!
Avatar billede w13 Novice
07. august 2008 - 11:46 #55
Hmm. Heller ikke hvis du retter:

<%If oFSO.FileExists(sFolder&"thumb_"&oFile.Name) Then%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>

til:

<%If oFSO.FileExists(Server.MapPath(sFolder&"thumb_"&oFile.Name)) Then%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>

?

Ellers så bare gør sådan her:

<img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>">
Avatar billede rashid Praktikant
07. august 2008 - 11:51 #56
Yes....
den øverste del gjorde udslaget. mange tak for hjælpen.
du må sige til hvis du gerne vil have hele koden. kan jo benyttes til et pænt billedgalleri :-)
relativt simpelt at sætte op. og Lightbox-effekten er ret pæn.
Avatar billede w13 Novice
07. august 2008 - 11:51 #57
Super! :)
Avatar billede rashid Praktikant
21. august 2008 - 12:23 #58
hep...
lille tillægsspørgsmål... kan man få lavet en ramme om billedet samt linket ?, således at man kan se hvilke links der hører til billederne ? alternativt at man kan nøjes med at trykke på billede - linket behøves ikke være der..

pft ;-)
Avatar billede w13 Novice
21. august 2008 - 12:30 #59
Så skal linket jo bare lægges rundt om billedet og teksten fjernes. Vis evt. lige din nuværende kode.
Avatar billede rashid Praktikant
21. august 2008 - 12:39 #60
kommer her...:
<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
i=0
For Each oFile In oFSO.getFolder(Server.MapPath(sFolder)).Files
  If InStr(oFile.Name,"thumb")=0 Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title=""> <br> <%=oFile.Name%><a><br><br>
<%If oFSO.FileExists(Server.MapPath(sFolder&"thumb_"&oFile.Name)) Then%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%End If%>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede w13 Novice
21. august 2008 - 12:49 #61
Mangler du ikke en "<html>"?

Nå, men du skal bare rette til:

<head>
   
    <title>test</title>

    <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
   
    <script src="js/prototype.js" type="text/javascript"></script>
    <script src="js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
    <script src="js/lightbox.js" type="text/javascript"></script>

    <style type="text/css">
        body{ color: #333; font: 13px 'Lucida Grande', Verdana, sans-serif;    }
    </style>

</head>

<body>
<%
dim oFSO,sFolder
sFolder="billeder/"
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
i=0
For Each oFile In oFSO.getFolder(Server.MapPath(sFolder)).Files
  If InStr(oFile.Name,"thumb")=0 Then
  i=i+1
%>
<a href="<%=sFolder&oFile.Name%>" rel="lightbox" title="<%=oFile.Name%>">
<%If oFSO.FileExists(Server.MapPath(sFolder&"thumb_"&oFile.Name)) Then%><img alt="<%=oFile.Name%>" src="<%=sFolder&"thumb_"&oFile.Name%>"><%Else%><%=oFile.Name%><%End If%>
</a>
<%
  If i=3 Then
    Response.Write "<br>"
    i=0
  End If
  End If
Next
Set oFSO=nothing
%>
</body>
</html>
Avatar billede rashid Praktikant
21. august 2008 - 15:43 #62
hej... Takker for hjælpen. det er stort :-)
Avatar billede w13 Novice
21. august 2008 - 15:44 #63
;)
Avatar billede 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.

Loading billede Opret Preview
Kategori
Webudvikling kurser
Vi tilbyder markedets bedste kurser inden for webudvikling
Se alle Webudvikling kurser

Flere spørgsmål fra JavaScript kategorien

Titel Indlæg Oprettet Seneste aktivitet
problem med download i <a href=" " download> tag i JavaScript Af Peer i JavaScript 3 27/04/202620:09 I går 21:05
Validering af filnavn i formular Af Strawberry i JavaScript 8 14/04/202610:11 20/04/202611:14
Mangler et JavaScript til htm side med iframe i Joomla5 Af Peder Lund Nielsen i JavaScript 2 03/02/202614:19 04/04/202616:02
Åbne en PDF fil fra en mappe Af mbl i JavaScript 9 18/04/202516:52 22/04/202512:33
Spørgsmål til cookies Af Mads i JavaScript 2 14/02/202511:47 27/06/202514:34
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:58 Pris på fiber Af lurup i Internetforbindelser
27/0420:09 problem med download i <a href=" " download> tag i JavaScript Af Peer i JavaScript
27/0418:26 Problemer med Prestashop Af BCP i E-handel
27/0418:10 Google Home Af birdbrain i Apps til iOS
27/0414:46 Microsoft vil "stjæle" mine login oplysninger Af mort1 i Windows
White papers
Flere white papers »