我刚注册，想在有一个很急的问题请大家帮忙下，谢谢！！！[

Question

我在后台添加图片上传时出现这个：
Microsoft VBScript 运行时错误 错误 '800a000d'  
类型不匹配: 'fsup'  
/admin/upload.asp，行 89
upload.asp89行后的代码：
//
if uploadapi=0 then
call fsup(asize,savepath,uploadtype,"file")
else
call aspupload(savepath)
end if
'收尾////////////////////////////////////////////////////////////////////////////////
sub hx(filename,fileid)
dim filepath,ext,filesize,dpic
'取出数据-------------------------------------------------------
set rs=conn.execute("select * from Jw_upfile where id="&fileid)
filepath=rs("path")
ext=lcase(rs("ext"))
filesize=rs("filesize")
call recordend(rs)
'/类型不匹配
if not canupload(ext) then
call delfile(filepath)
call cc("对不起！该文件类型不允许上传")
end if
if up=1 and id<>"" then
if f1<>"" and tab<>"" then
dpic=getmc(tab,"id",id,f1)
call delfile(dpic)
end if
if f2<>"" and tab<>"" then
dpic=getmc(tab,"id",id,f2)
call delfile(dpic)
end if
end ifif lx=1 then  
'生成缩略图--------------------------------------------
if scpic=0 then  
call getslt(filepath,path1&filename)
end if
'加水印------------------------------------------------
if tjsy=0 then  
if sylx=0 then
call picsy(filepath)
else
call textsy(filepath)
end if
end if
'赋值----------------------------------------------------------
Response.Write("<script language=""javascript"">opener.GE("""&f1&""").value="""&filepath&""";")
if f2<>"" then  
if scpic=0 then  
Response.Write("opener.GE("""&f2&""").value="""&path1&filename&""";")
else
Response.Write("opener.GE("""&f2&""").value="""&filepath&""";")
end if
end if
if f3<>"" then  
Response.Write("opener.GE("""&f3&""").value="""&formatnumber(getfilesize(pdlj(filepath))/1024/1024,2,-1)&""";")
end if
if bj=1 then
Response.Write("opener.InsertHTML(""<img src='"&filepath&"'>"");")
end if
Response.Write("</script>")
'赋值END---------------------------------------------------------
else
'赋值----------------------------------------------------------
Response.Write("<script language=""javascript"">opener.GE("""&f1&""").value="""&filepath&""";")
if f3<>"" then  
Response.Write("opener.GE("""&f3&""").value="""&formatnumber(getfilesize(pdlj(filepath))/1024/1024,2,-1)&""";")
end if
Response.Write("</script>")
'赋值END---------------------------------------------------------
end if
end sub
call connend()
%>
<script language="javascript">
closewin();
</script>