Kære Aspimagekyndige
Jeg har lavet nedenstående der skal bruges til et fotogalleri.
Scriptet der består af 2 filer skal hente alle billeder i en
mappe samt undermapper og vise som thumbnails - virkende som
links.
Jeg har fundet lidt hints i denne gruppe til at lave thumbs med
AspImage - men jeg kan ikke få det til at virke! Thumbs vises som
firkanter - men viser ikke billedet. Når man klikker på
"firkanten/billedet..." viker det fint som link.
Jeg har 2 filer der skal placeres mappen: "gal"
index.asp & makethumb.asp (til den sidste har jeg fundet koden
her på siden)
Kan nogen se hvad jeg gør galt ?
På forhånd tak
http://www.bakkeby.dk/gal
index.asp ser ud som følger
<% Set FSO = Server.CreateObject("Scripting.FileSystemObject")
placering = Request.QueryString("placering")
if Request.QueryString("FolderSub")<> "" then placering =
placering & Request.QueryString("FolderSub")
curfile = "index.asp"
if placering = "" then placering = "/gal/"
MappeSti = Server.Mappath(placering)
Set Folder = FSO.GetFolder(Mappesti)
Mappenavn = Folder.Name
response.write "<H3>" & Mappenavn & "</H3><HR>" %>
<% if request("FolderSub") = "" then
For each SubFolder in Folder.Subfolders
FolderSub = SubFolder.Name
FolderSubSize = SubFolder.Size %>
<A HREF="<% = curfile %>
?FolderSub=<% = FolderSub %>
&placering=<% = placering %>
"><% = FolderSub %></a><BR>
<% next %>
<% end if %>
<% if request("FolderSub") <> "" then
For Each File In Folder.Files ' OPLISTNING AF FILER i mappen
File = File.Name
FilSti = placering & "/" & File
Path = placering & "\"
%>
<A HREF="<% = FilSti %>
?FolderSub=<% = placering %>"
TARGET = "_NEW" Title="<% = FilTyp %> Klik for at åbne i nyt
vindue">
<IMG SRC="makethumb.asp?Path=<% = Path %>&File=<% = File %>"><%
= File %></A><BR><HR>
<% Next %>
<% end if %>
makethumb.asp ser ud som følger
<% ' variabler henter stien og filnavnet i adressen:
strFuldeSti = Request("Path")
strFilNavn = Request("File")
'Størrelsen og kvaliteten af billederne:
intSize = 150
intQuality = 90
'Kalder ASPimage-objektet:
Set MyImage = Server.CreateObject("AspImage.Image")
Dim strOriginal
strOriginal = strFuldeSti & strFilNavn
MyImage.LoadImage strOriginal
'Følgende kode beregner, hvilken side der er størst, og sætter
størrelsen derefter
If Myimage.MaxX > MyImage.MaxY then
IntYSize = 100
IntXSize = (intYSize / MyImage.MaxY) * MyImage.MaxX
Else
IntXSize = 100
IntYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
End if
'thumbnailen bliver skrevet i binært format:
MyImage.Resize intXSize, intYSize
MyImage.ImageFormat = 1
MyImage.JPEGQuality = intQuality
ProgressiveJPEGEncoding = true
Response.BinaryWrite MyImage.Image
Set MyImage = Nothing
End If
%>
Kan nogen se hvad jeg gør galt ?
På forhånd tak.
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials