高手看下我的这个程序那个地方有问题啊。运行后提示Microsoft VBScript 运行时错误 错误 '800a0006'  溢出 G:\ZSW\MARKET\../inc/img_hh.asp，行 160 
有高手会的请联系我QQ:32709983  谢谢


代码如下：

function get_wh(str,ww,hh)
    set  pp=new  imgInfo
    w = pp.imgW(server.mappath(str))  
    h = pp.imgH(server.mappath(str))
    bb = w/h
    bbb = ww/hh
    cc = ww/w
    ccc = hh/h
    if w <= ww and h <=hh then
        w=w
        h=h
    else
        if bb >= bbb then
            w = ww
            h = h*(cc)
        else
            h = hh
            w = w*(ccc)
        end if
    end if
    set pp = nothing    
    get_wh= "weight="&w&" height="&h&""
end function