问题描述
我在后台添加图片上传时出现这个：MicrosoftVBScript运行时错误错误'800a000d'类型不匹配:'fsup'/admin/upload.asp，行89upload.asp89行后的代码：//ifuploadapi=0thencallfsup(asize,savepath,uploadtype,"file")elsecallaspupload(savepath)endif'收尾////////////////////////////////////////////////////////////////////////////////subhx(filename,fileid)dimfilepath,ext,filesize,dpic'取出数据-------------------------------------------------------setrs=conn.execute("select*fromJw_upfilewhereid="&fileid)filepath=rs("path")ext=lcase(rs("ext"))filesize=rs("filesize")callrecordend(rs)'/类型不匹配ifnotcanupload(ext)thencalldelfile(filepath)callcc("对不起！该文件类型不允许上传")endififup=1andid<>""theniff1<>""andtab<>""thendpic=getmc(tab,"id",id,f1)calldelfile(dpic)endififf2<>""andtab<>""thendpic=getmc(tab,"id",id,f2)calldelfile(dpic)endifendififlx=1then'生成缩略图--------------------------------------------ifscpic=0thencallgetslt(filepath,path1&filename)endif'加水印------------------------------------------------iftjsy=0thenifsylx=0thencallpicsy(filepath)elsecalltextsy(filepath)endifendif'赋值----------------------------------------------------------Response.Write("<scriptlanguage=""javascript"">opener.GE("""&f1&""").value="""&filepath&""";")iff2<>""thenifscpic=0thenResponse.Write("opener.GE("""&f2&""").value="""&path1&filename&""";")elseResponse.Write("opener.GE("""&f2&""").value="""&filepath&""";")endifendififf3<>""thenResponse.Write("opener.GE("""&f3&""").value="""&formatnumber(getfilesize(pdlj(filepath))/1024/1024,2,-1)&""";")endififbj=1thenResponse.Write("opener.InsertHTML(""<imgsrc='"&filepath&"'>"");")endifResponse.Write("</script>")'赋值END---------------------------------------------------------else'赋值----------------------------------------------------------Response.Write("<scriptlanguage=""javascript"">opener.GE("""&f1&""").value="""&filepath&""";")iff3<>""thenResponse.Write("opener.GE("""&f3&""").value="""&formatnumber(getfilesize(pdlj(filepath))/1024/1024,2,-1)&""";")endifResponse.Write("</script>")'赋值END---------------------------------------------------------endifendsubcallconnend()%><scriptlanguage="javascript">closewin();</script>
解决方案
解决方案二：
你应该去VB版提问
解决方案三：
哦，刚注册能问？
解决方案四：
我也没有分，急死人。哎。
解决方案五：
是啊急的很
解决方案六：
看你的fsup函数定义,最好贴出来
解决方案七：
参数类型不匹配callfsup(asize,savepath,uploadtype,"file")这个方法应该至少有一个参数类型不对，极有可能是asize不是数字