[es] - resize image PHP->ASP

mile_ep
Emil Pokos
web/win developer
Varaždinske Toplice

Član broj: 22625
Poruke: 1
*.net.htnet.hr

Sajt: www.set-studio.com

Profil

resize image PHP->ASP

^{15.03.2004. u 21:14 - pre 244 meseci}

Treba mi ASP kod za izmjenu veličine slika JPEG i GIF!
Pretraživao sam net i naišo na korisnu skriptu koja smanjuje veličinu slike na 400x400 i preimenuje ju.
Ali... Ja trebam ASP kod koji bi to isto radio!
PHP kod:

Code:
<?

// Filename to store image as (no extention)
$FILENAME="image_name";

// Width to reszie image to (in pixels)
$RESIZEWIDTH=400;

// Width to reszie image to (in pixels)
$RESIZEHEIGHT=400;

// DO NOT EDIT BELOW HERE -----------------------------------------

function ResizeImage($im,$maxwidth,$maxheight,$name){
    $width = imagesx($im);
    $height = imagesy($im);
    if(($maxwidth && $width > $maxwidth) || ($maxheight && $height > $maxheight)){
        if($maxwidth && $width > $maxwidth){
            $widthratio = $maxwidth/$width;
            $RESIZEWIDTH=true;
        }
        if($maxheight && $height > $maxheight){
            $heightratio = $maxheight/$height;
            $RESIZEHEIGHT=true;
        }
        if($RESIZEWIDTH && $RESIZEHEIGHT){
            if($widthratio < $heightratio){
                $ratio = $widthratio;
            }else{
                $ratio = $heightratio;
            }
        }elseif($RESIZEWIDTH){
            $ratio = $widthratio;
        }elseif($RESIZEHEIGHT){
            $ratio = $heightratio;
        }
        $newwidth = $width * $ratio;
        $newheight = $height * $ratio;
        if(function_exists("imagecopyresampled")){
              $newim = imagecreatetruecolor($newwidth, $newheight);
              imagecopyresampled($newim, $im, 0, 0, 0, 0, $newwidth, $newheight, $width, $height);
        }else{
            $newim = imagecreate($newwidth, $newheight);
              imagecopyresized($newim, $im, 0, 0, 0, 0, $newwidth, $newheight, $width, $height);
        }
        ImageJpeg ($newim,$name . ".jpg");
        ImageDestroy ($newim);
    }else{
        ImageJpeg ($im,$name . ".jpg");
    }
}

if($_FILES['image']['size']){
    if($_FILES['image']['type'] == "image/pjpeg" || $_FILES['image']['type'] == "image/jpeg"){
        $im = imagecreatefromjpeg($_FILES['image']['tmp_name']);
    }elseif($_FILES['image']['type'] == "image/x-png" || $_FILES['image']['type'] == "image/png"){
        $im = imagecreatefrompng($_FILES['image']['tmp_name']);
    }elseif($_FILES['image']['type'] == "image/gif"){
        $im = imagecreatefromgif($_FILES['image']['tmp_name']);
    }
    if($im){
        if(file_exists("$FILENAME.jpg")){
            unlink("$FILENAME.jpg");
        }
        ResizeImage($im,$RESIZEWIDTH,$RESIZEHEIGHT,$FILENAME);
        ImageDestroy ($im);
    }
}

?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
</head>
<body>

<br><br>

<img src="<? echo($FILENAME.".jpg?reload=".rand(0,999999)); ?>"><br><br>

<form enctype="multipart/form-data" method="post">
<b>Resize Image</b><br>
<input type="file" name="image" size="50"><br><br>
<input type="submit" value="Upload Photo">
</form>

</body>
</html>

-------------------------------------------------------------------------
Dali je taj kod moguče "prvesti" u ASP ili nešto...
Naišo sam na netu na mnoga ASP rješenja ali sva ta rjšenja uključuju neki dll file i registraciju (regsvr32 ime.dll), a s obzirom da mi to moj web-hosting provider ne omogučuje svi dll fileovi ne dolaze u obzir.
Molim za pomoč ako bi netko znao za neki link ili možda znao rijšenje bio bi mu jako zahvalan!!!

Odgovor na temu