Billedstørrelser

Hvad med aspimage?
http://www.serverobjects.com/comp/Aspimage.htm

du kan ikke bruge noget som : http://zequenze.dns2go.com/webcam/
??

//bennetsen
Jo, jeg har AspImage 2.09, men kan ikke rigtig få det til at spille.
Jeg vil have alle billeder vist i et 340x255 jpg-format uanset den originale størrelse.
-------------------------------------------------
Kodeside for upload:
-------------------------------------------------
<%@ Language=VBScript %>

<%
    set upl = server.createobject(\"SoftArtisans.FileUp\")
    slet = Request.querystring(\"slet\")
    com = Request.QueryString(\"com\")
   
    if slet <> \"\" then
        set del = session(\"db\").execute(\"delete from berlv where id =\" & slet )
    end if
   
    if com = \"ny\" then
        set cre = session(\"db\").execute(\"insert into berlv (memo1,memo2,memo3) values(\'Erstat denne tekst med din egen\',\'Erstat denne tekst med din egen\',\'Erstat denne tekst med din egen\')\")
    end if

    function check_change_filname(fpath, s)
      set func_obj = server.createobject(\"Scripting.FileSystemObject\")
      filnr = 0
      if right(fpath,1) <> \"\\\" then fpath = fpath = \"\\\"
      fnavn = func_obj.GetBaseName(s)
      fext  = func_obj.GetExtensionName(s)
      kfilnavn = fnavn & \".\" & fext
      fuldfilnavn = fpath & kfilnavn
      do until not func_obj.FileExists(fuldfilnavn)
        filnr = filnr + 1
        kfilnavn = fnavn & \"_\" & filnr & \".\" & fext
        fuldfilnavn = fpath & kfilnavn
      loop
      check_change_filname = kfilnavn
    end function

   
    if upl.Form(\"saveit\") <> \"\" then
        set berlv = session(\"db\").execute(\"select * from berlv\")
        do while not berlv.eof
                if upl.form(\"F1_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"F1_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"F1_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"F1_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set billede1 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if
                if upl.form(\"F2_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"F2_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"F2_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"F2_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set billede2 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if
                    \'if upl.form(\"F3_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"F3_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                  \' fpath = session(\"filpath\")
                    \'kfilnavn = check_change_filname(fpath, upl.form(\"F3_\" & berlv(\"id\")).UserFilename)
                    \'fuldfilnavn = fpath & kfilnavn
                    \'upl.form(\"F3_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    \'set pb = session(\"db\").execute(\"update berlv set billede3 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                \'end if
                    if upl.form(\"G1_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"G1_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"G1_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"G1_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set gal1 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if
                    if upl.form(\"G2_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"G2_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"G2_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"G2_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set gal2 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if
                    if upl.form(\"G3_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"G3_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"G3_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"G3_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set gal3 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if   
                    if upl.form(\"G4_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"G4_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"G4_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"G4_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set gal4 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if
                    if upl.form(\"G5_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"G5_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"G5_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"G5_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set gal5 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if
                    if upl.form(\"G6_\" & berlv(\"id\")).UserFilename <> \"\" and  upl.Form(\"G6_\" & berlv(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"G6_\" & berlv(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"G6_\" & berlv(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update berlv set gal6 =\'\" & kfilnavn & \"\' where id=\" & berlv(\"id\") )
                end if   
               
            set upd = session(\"db\").execute(\"update berlv set memo1 =\'\" & trim(upl.Form(\"T1_\" & berlv(\"id\"))) & \"\' where id =\" & berlv(\"id\") )
            set upd = session(\"db\").execute(\"update berlv set memo2 =\'\" & trim(upl.Form(\"T2_\" & berlv(\"id\"))) & \"\' where id =\" & berlv(\"id\") )
            \'set upd = session(\"db\").execute(\"update berlv set memo3 =\'\" & trim(upl.Form(\"T3_\" & berlv(\"id\"))) & \"\' where id =\" & berlv(\"id\") )
        berlv.movenext
        loop
   
    end if
%>
<html>

<head>
<title>Administration</title>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
<link rel=\"StyleSheet\" href=\"mstyl.css\" type=\"text/css\">
<meta name=\"Microsoft Border\" content=\"none\">
<script language=\"JavaScript\">
<!--
function fixUglyIE()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = fixUglyIE;
}
//-->
</script>
<script language=\"javascript\">
 
function sletmig()
{
if (confirm(\"Skal sletningen fortsættes?\"))
  {history.forward()}
else
  {
document.write(\"<meta http-equiv=\'Refresh\' content=\'0;URL=berlv_adm.asp; target=_self\'>\");
location.reload()
  }

}
</script>
</head>

<body leftmargin=\"20\">
<form enctype=\"multipart/form-data\" action=\"berlv_adm.asp\" method=\"POST\" name=\"form1\">
<table BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"1\">
    <tr>
        <td><strong>Tilføj, Ret eller Slet i Saxo Van.</strong></td>
    </tr>
</table>
<br>
<TABLE BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"1\">
    <TR>
        <TD><A href=\"berlv_adm.asp?com=ny\"><img SRC=\"../images/ny.gif\" Border=\"0\" height=\"24\" alt=\"Lav en ny annonce\"></A></TD><BR>
    </TR>
</TABLE>
<BR>

<TABLE WIDTH=75% BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"1\">

<% set berlv = session(\"db\").execute(\"select * from berlv\")%>
<% do while not berlv.eof %>
   
    <tr>   
        <TD>
                <% if berlv(\"billede1\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"billede1\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"F1_<%=berlv(\"id\")%>\"><br>               
        <textarea cols=\"80\" rows=\"10\" name=\"T1_<%=berlv(\"id\")%>\"><%=trim(berlv(\"memo1\"))%></textarea>
        </TD>

    </TR>
    <tr>   
        <TD>
                <% if berlv(\"billede2\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"billede2\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"F2_<%=berlv(\"id\")%>\"><br>               
        <textarea cols=\"80\" rows=\"10\" name=\"T2_<%=berlv(\"id\")%>\"><%=trim(berlv(\"memo2\"))%></textarea>
        </TD>

    </TR>
    <tr>   
        <TD>1. billede i Galleriet<br>
                <% if berlv(\"gal1\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"gal1\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"G1_<%=berlv(\"id\")%>\"><br>               
        </TD>

    </TR>
    <tr>   
        <TD>2. billede i Galleriet<br>
                <% if berlv(\"gal2\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"gal2\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"G2_<%=berlv(\"id\")%>\"><br>               
        </TD>

    </TR>
    <tr>   
        <TD>3. billede i Galleriet<br>
                <% if berlv(\"gal3\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"gal3\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"G3_<%=berlv(\"id\")%>\"><br>               
        </TD>

    </TR>
    <tr>   
        <TD>4. billede i Galleriet<br>
                <% if berlv(\"gal4\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"gal4\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"G4_<%=berlv(\"id\")%>\"><br>               
        </TD>

    </TR>
    <tr>   
        <TD>5. billede i Galleriet<br>
                <% if berlv(\"gal5\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"gal5\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"G5_<%=berlv(\"id\")%>\"><br>               
        </TD>

    </TR>
            <tr>   
        <TD>6. billede i Galleriet<br>
                <% if berlv(\"gal6\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"gal6\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"G6_<%=berlv(\"id\")%>\"><br>               
        </TD>

    </TR>
    <TR>
        <TD valign=\"top\"><A href=\"berlv_adm.asp?slet=<%=berlv(\"id\")%>\" onclick=\"sletmig()\"><img SRC=\"../images/del.gif\" Border=\"0\" height=\"24\" alt=\"Slet annonce\"></A></TD>
    </TR>
<% berlv.movenext %>
<% loop %>

<TR>
       
        <TD><INPUT type=\"submit\" value=\"Gem CityVan\" name=\"saveit\"></TD>
       
    </TR>
   
    </CENTER>
</DIV>
</TABLE>
</FORM>
</body>
-------------------------------------------------
Kode for visning:
-------------------------------------------------
<%
    id = Request.QueryString(\"id\")
    dip = Request.QueryString(\"dip\")
   

%>
<% set berlv = session(\"db\").execute(\"select * from berlv\")%>
<% do while not berlv.eof %>
    <TR>
        <TD>
                <% if berlv(\"billede1\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"billede1\")%>\">
                <A href=\"content.asp?mchoice=<%=mchoice%>&sbaid=27&dip=<%=sbaid%>&funk=1\"><img src=\"images/galanim.gif\"  border=\"0\" alt=\"Til Billedgalleriet\"></a>
                <% end if %>
        </td>
    <tr>
        <td>
            <font face=\"verdana\" size=\"1\" color=\"#000000\"><%=trim(berlv(\"memo1\"))%></font>
        </TD>
    </TR>
    <TR>
        <TD align=\"center\">
                <% if berlv(\"billede2\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=berlv(\"billede2\")%>\">
                <% end if %>
        </td>
    </tr>
    <tr>
        <td>   
            <font face=\"verdana\" size=\"1\" color=\"#000000\"><%=trim(berlv(\"memo2\"))%></font>
        </TD>
    </TR>
    <tr>
    <td>
    <div align=\"center\">
    <center>
    <TABLE cellpadding=\"0\" Cellspacing=\"0\" width=\"430\">
   
            <% set nytdyt = session(\"db\").execute(\"select * from nytdyt where model = \'berlingo\' and kategori = \'van\' order by model,kategori,pv,driv,version\") %>
            <% do while not nytdyt.eof %>
   
        <tr>   
        <td>       
            <font face=\"verdana\" size=\"1\" color=\"#000000\"><%=nytdyt(\"version\")%></font>
        </td>
        <td>       
            <font face=\"verdana\" size=\"1\" color=\"#000000\">
            <% if len(nytdyt(\"prisum\")) = 6  then %>
            <% if mid(nytdyt(\"prisum\"),1,3) <> \"\" then %>
            kr. <%=mid(nytdyt(\"prisum\"),1,3)%>.<%=mid(nytdyt(\"pris\"),4,6)%>
            <% end if %>
            <% end if %>
            <% if len(nytdyt(\"prisum\")) = 5  then %>
            <% if mid(nytdyt(\"prisum\"),1,2) <> \"\" then %>
            kr.&nbsp;&nbsp;&nbsp;<%=mid(nytdyt(\"prisum\"),1,2)%>.<%=mid(nytdyt(\"prisum\"),3,5)%>
            <% end if %>
            <% end if %>
            </font>
        </td>
        <td valign=\"top\">
        <font face=\"webdings\" size=\"1\">4</font><font face=\"verdana\" size=\"1\"><a href=\"content.asp?mchoice=<%=mchoice%>&sbaid=20&id=<%=nytdyt(\"id\")%>&dip=<%=sbaid%>\">Bestil Prøvetur</font></a><br>
        </td>
    </tr>
            <% nytdyt.movenext %>
            <% loop %>
    </TABLE>
    </center>
    </div>
    </td>
    </tr>
<% berlv.movenext %>
<% loop %>
</TABLE>
</CENTER>
</DIV><br><br>           
-------------------------------------------------

Der er tale om samlet upload af data omkring en Citroen Belingo Van. Tekst,billede,tekst,billede og derpå 6 billeder til et eventuelt galleri.

Udtrækskoden er uden galleri

Mvh.
Munck

du kan gøre det med en kompunent som hedder ImgSize:

<%
Dim Img Sub CheckFile (strFileName)
Set objImg = Server.CreateObject(\"ImgSize.Check\")
objImg.FileName = strFileName If objImg.Error <> \"\" Then
Response.Write \"Der skete en fejl under læsning af billedfilen.<br>\"
Response.Write \"Fejlen var: <b>\" & objImg.Error & \"</b>;\"
Else Response.Write \"<p>Billedfil <b>\" & strFileName & \"</b> korrekt læst.<br>\"
Response.Write \"Billedhøjde i pixels = <b>\" & objImg.Height & \"</b><br>\"
Response.Write \"Billedbredde i pixels = <b>\" & objImg.Width & \"</b></p>\"
End If
Set objImg = nothing
End Sub
%>

Det kan også gøres uden brug af andre komponenter end FileSystemObject:
http://www.4guysfromrolla.com/webtech/code/imgsz.asp.html

Det er kun resize - funktionen i ASPImage, jeg er ude efter at få puttet ind, helst i koden for upload, så sparer jeg plads på serveren.

Mvh.

no doubt//
Jeg kan ikke se, at der er andet end almindelig ændring af størrelse på billede i den nævnte URL
Mvh.

Jeg har desvære en deadline på et projekt, men jeg kigger på ASPImage i aften, hvis du ikke har fundet en løsning inden

//eagleeye
jeg har forsøgt mig med koden fra Mike, men jeg kan ikke få det til at funke - sandsynligvis fordi jeg ikke helt fatter syntaxen.

Mvh.

//eagleeye
Der er op til 500 point i en brugbar kode.

//bennetsen
Det gælder også for dig...
500 point i en brugbar kode

danm jeg post men ikke en skid bliver vist her..?



ok du vil resize når du har uploaded et billed?
Så vil jeg bruge ASPImage da den er beregnet til det.

eagleeye//
Det ville være mere smart at få resize med i uploadfasen! hvis det er muligt.

Set ImageObj = ServerCreateObject(\"ASP.IMAGE\")


ImageObj .FileName = \"fil.jpg\"    \'Evt fra request.Form/querystring
ImageObj.Resize (340, 255)      \' intWidth, intHeight
ImageObj.Save


Du kan også bruge ResizeR  som resizer ved brug af resample

eagleeye//

Skulle det ikke være:

  Set ImageObj = ServerCreateObject(\"AspImage.Image\")

??

Hej igen jeg har haft lidt travlt.

Det skal være
Set ImageObj = Server.CreateObject(\"AspImage.Image\")

jeg ville tror du er nød til at uploade file før du kan lave resize. Det er vel heller ikke det hlt store problem, for man overskriver så file, eller gemmer en ny lige efter upload.

Jeg har ASPImage installeret, og alle tegn på at det virker, men billederne er stadig savtakkede eller grumsede.

De er altså ikke blevet ændrede.

Først upload - derefter ServerCreateObject(\"AspImage.Image\")
men det gik helt i coma. Serveren døde simpelthen.
Jeg kan efterfølgende ikke få koden til at tage fat.

Jeg har mest lyst til at droppe det. Meeeehnnn det vil jeg ikke - gode forslag efterlyses.

Mvh.

Jeg lader spørgsmålet stå åbent indtil videre, og i mellemtiden anvender jeg et lille fikst program, der kan resize, ændre format o.m.a. af en hel stak billeder på én gang - Mihov Image Resizer.

Mvh.
Munck