求助解决一个上传组件问题

[lixizhao78]

<!--#include file="cn.asp"-->
<%
set obj=server.createobject("lyfupload.uploadfile")
name=obj.request("name")
xiaoliang=obj.request("xiaoliang")
kucunliang=obj.request("kucunliang")
changshang=obj.request("changshang")
chandi=obj.request("chandi")
leibie=obj.request("leibie")
tuijianzhishu=obj.request("tuijianzhishu")
shichangjiage=obj.request("shichangjiage")
huiyuanjiage=obj.request("huiyuanjiage")
viphuiyuanjiage=obj.request("viphuiyuanjiage")
jianjie=obj.request("jianjie")
pic=obj.request("pic")
sql1="insert into goods(商品名,库存量,销量,市场价格,会员价格,VIP会员价格,简介,产商,产地,类别,推荐指数) values('"&name&"','"&kucunliang&"','"&xiaoliang&"','"&shichangjiage&"','"&huiyuanjiage&"','"&viphuiyuanjiage&"','"&jianjie&"','"&changshang&"','"&chandi&"','"&leibie&"','"&tuijianzhishu&"')"
cn.execute(sql1)
if pic<>"" then
if instr(1,pic,".jpg")<>0 then
ty=".jpg"
elseif instr(1,pic,".gif")<>0 then
ty=".gif"
end if
sql2="select num from goods where 商品名='"&name&"'"
set rs=cn.execute(sql2)
t=rs("num")
savename1=t&ty
ts="image/"
savename2=ts&t&ty
ss=obj.savefile("pic","f:\web服务器\李锡朝\shop\image",savename1) '这是第31行

if ss<>"" then
response.redirect"tianjiashangpin.asp"
end if
set rs=server.createobject("adodb.recordset")
sql3="select 图片 from goods where num="&t
rs.open sql,cn,1,2
rs("图片")=savename2
rs.update
end if
%>
出错信息如下：
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'obj.savefile'

/addshangpin.asp，行31

此程序预实现图片上传至目录并且改名，再把图片保存路径上传至数据库。