Microsoft VBScript 运行时错误错误 '800a0006 ' 的问题，请大侠解答~

skysfw 发布于 2008-05-15 13:15， 2037 次点击

imgpath="UploadFile/"&rs("Spic")&""
set pp=new imgInfo
w = pp.imgW(server.mappath(imgpath))
h = pp.imgH(server.mappath(imgpath))
set pp=nothing
if w/h>1.407 then
w1=128
h1=w1*h/w
else
h1=103
w1=w*h1/h
end if

Microsoft VBScript 运行时错误 '800a0006'

溢出

\index.asp, line 153

标红的就是153行的内容，这是我的一个产品ASP站，上传图片就会出现这样的问题

8 回复

tianyu1232008-05-15 13:32

w h 的取值各是多少啊

skysfw2008-05-15 13:34

[bo]以下是引用 [un]tianyu123[/un] 在 2008-5-15 13:32 的发言：[/bo]

w h 的取值各是多少啊

没有定义吗？
怎么解决啊？谢谢了

tianyu1232008-05-15 13:39

w = pp.imgW(server.mappath(imgpath))
h = pp.imgH(server.mappath(imgpath))

response.write w&"<br>"&h
response.end

输出一下w与h获取到的值是什么

skysfw2008-05-15 13:48

[bo]以下是引用 [un]tianyu123[/un] 在 2008-5-15 13:39 的发言：[/bo]

w = pp.imgW(server.mappath(imgpath))
h = pp.imgH(server.mappath(imgpath))

response.write w&""&h
response.end

输出一下w与h获取到的值是什么

w = pp.imgW(server.mappath(imgpath))
h = pp.imgH(server.mappath(imgpath))
是不是就在这个代码下面加上你标红的那两句就可以了？

tianyu1232008-05-15 13:50

对是

skysfw2008-05-15 13:54

[bo]以下是引用 [un]tianyu123[/un] 在 2008-5-15 13:50 的发言：[/bo]

对是

显示结果是网页上就显示了2个数值，其他什么都没有了

tianyu1232008-05-15 14:01

是什么数值粘贴一下

skysfw2008-05-15 14:09

393
300
就这两个数字

Microsoft VBScript 运行时错误 错误 '800a0006 ' 的问题，请大侠解答~

Microsoft VBScript 运行时错误错误 '800a0006 ' 的问题，请大侠解答~