Microsoft VBScript 运行时错误 错误 '800a0006' 请大大们帮我解答一下
问题:一个ASP企业站,上传完成之后,后台加图片后,前台首页出现:
Microsoft VBScript 运行时错误 错误 '800a0006'
溢出
/index.asp,行 113
相关代码: <%
set rs=server.createobject("adodb.recordset")
sql="select companyname,URL,linktype,picurl from Sbe_Weblink order by linktype asc,ID desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
imgpath="UploadFile/"&rs("picurl")&""
set pp=new imgInfo
w = pp.imgw(server.mappath(imgpath))
h = pp.imgh(server.mappath(imgpath))
response.write w&""&h
response.end
set pp=nothing
if w/h>3.98 then
w1=171
h1=w1*h/w
else
h1=43
w1=w*h1/h
end if
%>
希望有高手帮我解释一下啊