asp正则html的图片,对图自动缩放大小

下面的代码是从html中正则取出图片,

Function getphoto(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<img.+?>"
tp=""
Set Matches = objRegExp.Execute(strHTML)
For Each Match in Matches
tp=tp & Match.value
exit for
Next
getphoto=tp
Set objRegExp = Nothing
End Function

下面的代码时进行图片按比例缩放

function ResizeImage(imageid,limitWidth,limitHeight)
{     
    var image = new Image();
    image.src = imageid.src;
     
    if(image.width <= 0 && image.height <= 0) return;
     
    if(image.width/image.height >= limitWidth/limitHeight)
    {
        if(image.width > limitWidth)
        {
            imageid.width = limitWidth;
            imageid.height = (image.height*limitWidth)/image.width;
        }
    }
    else if(image.height > limitHeight)
    {
            imageid.height = limitHeight;
            imageid.width = (image.width*limitHeight)/image.height;      
    }
     
    if (imageid.parentElement.tagName != "A")
    {
        imageid.onclick = function(){window.open(this.src);}
        imageid.style.cursor = "hand";
    }
}

window.onload = InitImages;

function InitImages()
{
//图片的约束宽度和高度
   var maxWidth = 100;
    var maxHeight = 100;
     
    var imgs = document.getElementsByTagName("img");
     
    for(var i=0; i < imgs.length; i++)
    {
        var img = imgs;
         
        if(img.width>maxWidth||img.height>maxHeight)
            ResizeImage(img, maxWidth, maxHeight);
    }
}