Question

ASP无组件上传出现“ADODB.Stream 错误 '800a0bbc' 写入文件失败。”

filepath="Emailannex/"  for each formName in upload.File set file=upload.File(formName) if file.filesize>10 then    fileExt=lcase(file.FileExt) '得到的文件扩展名不含有. if fileext<>"doc" and fileext<>"txt" then  fileExt="gif"  response.write "<script language=javascript>alert('只能上传DOC、txt格式的文件！');history.go(-1);</script>"  response.end    end if if file.filesize>(10000*1024) then  response.write "<script language=javascript>alert('文件大小不能超过10M！');history.go(-1);</script>"  response.end end if 我将这上面的TXT改为了RAR，运行出现如下错误ADODB.Stream 错误 '800a0bbc' 写入文件失败。 D:\WWWROOT\OA\HXPERSONALOFFICE\../HXINCLUDE/HX_photo.asp，行 151   然后HX_photo.asp相关代码段如下（加粗为151行）：'保存文件方法 Public function SaveToFile(FullPath)    dim oFileStream,ErrorChar,i    SaveToFile=1    if trim(fullpath)="" or right(fullpath,1)="/" then exit function    set oFileStream=CreateObject("Adodb.Stream")    oFileStream.Type=1    oFileStream.Mode=3    oFileStream.Open    oUpFileStream.position=FileStart    oUpFileStream.copyto oFileStream,FileSize    oFileStream.SaveToFile FullPath,2    oFileStream.Close    set oFileStream=nothing     SaveToFile=0  end functionEnd Class

Answer 1

Emailannex 这个文件夹没有写入 权限吧