8 svar · 609 visningar · startad av Steam
Nån som vet hur koden ser ut om man ska skapa thumbnails för bilder som man har lagrat in i databasen. Rätt jobbigt för webläsaren att ladda ned hela bilder om man har många.
Jag skulle alltså vilja skapa thumbnails av bilderna genom en kod så jag slipper göra allt för hand.
Har du någon bildkomponent installerad på servern?
som sebbe hintade, jag tror inte att det går utan komponent med asp.
Det göre vist. Jag har ett som funkar fin fint
Tcip du kan inte dela med dig? :)
Tcip skrev:
Det göre vist. Jag har ett som funkar fin fint
Vart på sidan har du det? Menar du på din första sida? Där har du ju bara satt width och height på bilderna.. Dom är ju iaf runt 200kb stora..
På min sida använder jag mig av två olika, ett som körs igenom aspjpeg och ett igenom asp.NET. Kan kolla dom på:
http://www.d-zon.net/?p=3
Har också vart på jakt efter ett i ren asp men ej hittat nått :(
Koden:
'
<%
'#######Antal thumbs på rad#######
Antal = 4
'#######Mappen som du vill lista bilder i#######
MappNamn = "pic32/bilder/"
'#######Bredd och höjd på thumbbilden#######
height = "40"
width = "40"
%>
<script language="javaScript">
function Show(filename,winTitle)
{
var myImage = new Image();
myImage.src=filename;
properties='height=10,width=10';
var imgWindow = window.open('','',properties);
html = '\<html\>';
html += '\<head\>';
html += '\<title\>'+winTitle+'\</title\>';
html += '\</head\>';
html += '\<body topmargin="0" marginheight="0" leftmargin="0" marginwidth="0"\>';
html += '\<img src="'+myImage.src+'" onLoad="resizeTo(document.bild.width+10,document.bild.height+29);" name="bild" OnClick="self.close();"\>';
html += '\</body\>';
html += '\</html\>';
imgWindow.document.write(html);
}
</script>
<link rel="stylesheet" href="mall.css" type="text/css">
<%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>
<%If Mapp.Files.Count = 0 Then%>
<%Else
x=0
For Each File In Mapp.Files
If x = Antal Then
x = 0
End If%>
<a href="javascript:Show('<%=MappNamn%>/<%=File.Name%>','<%=File.Name%>')"><img src="<%=MappNamn%>/<%=File.Name%>" width="<%=width%>" height="<%=height%>" border="0" alt="<%=File.Name%>"></a>
<%X=X+1
Next
If x Mod Antal <> 0 Then
For i = 1 To Antal - x Mod Antal%>
<%Next
End If
End If%>
'
TCIP
Bilden har samma storlek även om man sätter width eller height på den.
Det där är ingen riktig thumbnail.
En riktig thumbnail minskar originalstorlek i både storlek samt mått.
som vi misstänkte det var ju synd :(
och T.c.i.p, använd gärna kod-taggarna, så blir det snyggare!
