限制上传图片高和宽 asp

高手们！
我现在把一张图片通过ASP上传到另外一个文件夹内。
怎么才能
如果图片 高和宽 大于640*480
则：上传后的高和宽为640*480
如果图片 高和宽 小于640*480
则：不改变图片原始大小

我有一个等比例压缩的函数~
可以给你看~~
====================================================
class EditPic{
/* *************图片等比压缩************* */
#函数参数说明：第一个是图片源地址，第二个是图片存放的目标地址；后两个为图片存放的长和宽，可省略。
function CutDown($SrcFile,$DesFile,$Width=120,$Height=100){
if(file_exists($SrcFile)){//判断国片是否存在；
//header("Content-type:image/jpeg");#若需直接显示则加入此标头
switch (strrchr($SrcFile,".")){
case ".jpeg":
$Im=imagecreatefromjpeg($SrcFile);
break;
case ".jpg":
$Im=imagecreatefromjpeg($SrcFile);
break;
case ".gif":
$Im=imagecreatefromgif($SrcFile);
break;
case ".png":
$Im=imagecreatefrompng($SrcFile);
break;
default :
$Im=imagecreatefromjpeg($SrcFile);
}

/* ******图片长宽等比压缩（开始）****** */
if(imagesx($Im)/imagesy($Im)>=$Width/$Height){