上传图片，文件写入失败是怎么回事啊，不是权限问题

我的asp上传图片测试显示写入文件失败,ADODB.Stream 错误 '800a0bbc' ,测试后不是权限问题，代码行是dr.SaveToFile FullPath,2 出问题，请问是怎么回事呢

图片大小才20多k,不知道是不是文件夹不存在，这个上传图片的代码不是太懂。主要是这里问题Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
if FileStart=0 or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
upfile_5xSoft_Stream.position=FileStart-1
upfile_5xSoft_Stream.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=0
end function

图片大小有问题吧！？

你说呢...