我的电脑在无组件上传图片的时候出现了以下问题: Server 对象 错误 'ASP 0177 : 800401f3' 我知道是IIS的问题,但不知道如何解决。 请哪位高手帮忙指点一下。谢谢！ 我的系统是XP的

<% sub upload_0() '使用化境无组件上传类 set upload=new upload_file '建立上传对象 for each formName in upload.file '列出所有上传了的文件 set file=upload.file(formName) '生成一个文件对象 if file.filesize<100 then msg="请先选择你要上传的文件！" founderr=true end if if file.filesize>(MaxFileSize*1024) then msg="文件大小超过了限制，最大只能上传" & CStr(MaxFileSize) & "K的文件！" founderr=true end if

fileExt=lcase(file.FileExt) Forumupload=split(UpFileType,"|") for i=0 to ubound(Forumupload) if fileEXT=trim(Forumupload(i)) then EnableUpload=true exit for end if next if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then EnableUpload=false end if if EnableUpload=false then msg="这种文件类型不允许上传！\n\n只允许上传这几种文件类型：" & UpFileType founderr=true end if strJS="<SCRIPT language=javascript>" & vbcrlf if founderr<>true then randomize ranNum=int(900*rnd)+100 filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt

file.SaveToFile Server.mappath(FileName) '保存文件

msg="上传文件成功！" strJS=strJS & "parent.HtmlEdit.focus();" & vbcrlf strJS=strJS & "var range = parent.HtmlEdit.document.selection.createRange();" & vbcrlf FileType=right(fileExt,3) select case FileType case "jpg","gif","png","bmp" strJS=strJS & "range.pasteHTML('<img src=" & filename & ">');" & vbcrlf case "swf" strJS=strJS & "range.pasteHTML('<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0>" strJS=strJS & "<param name=movie value=" & FileName & ">" strJS=strJS & "<param name=quality value=high>" strJS=strJS & "<embed src=" & FileName & " quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash>" strJS=strJS & "</embed></object>');" & vbcrlf case else strJS=strJS & "range.text='[upload=" & FileType & "]" & FileName & "[/upload]';" & vbcrlf end select strJS=strJS & "parent.parent.myform.IncludePic.checked=true;" & vbcrlf strJS=strJS & "parent.parent.myform.DefaultPicUrl.value='" & FileName & "';" & vbcrlf strJS=strJS & "parent.parent.myform.DefaultPicList.options[parent.parent.myform.DefaultPicList.length] = new Option('" & filename & "','" & filename & "');" & vbcrlf strJS=strJS & "parent.parent.myform.DefaultPicList.selectedIndex+=1;" & vbcrlf strJS=strJS & "if(parent.parent.myform.UploadFiles.value==''){" & vbcrlf strJS=strJS & "parent.parent.myform.UploadFiles.value+='" & filename & "';}" & vbcrlf strJS=strJS & "else{" & vbcrlf & "parent.parent.myform.UploadFiles.value+='|'+'" & filename & "';}" & vbcrlf end if strJS=strJS & "alert('" & msg & "');" & vbcrlf strJS=strJS & "history.go(-1);" & vbcrlf strJS=strJS & "parent.HtmlEdit.focus();" & vbcrlf strJS=strJS & "</script>" response.write strJS set file=nothing next set upload=nothing end sub %> 这里是我无组件上传的代码，是无组件的啊