高手看下我的这个程序那个地方有问题啊。
高手看下我的这个程序那个地方有问题啊。运行后提示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
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
