我在使用化境的无组件上传时遇到的问题

[cuy]

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
stop
FileStream.position=FileStart-1
FileStream.copyto dr,FileSize
dr.SaveToFile FullPath,2 ‘可就在这一句出现了写文件失败错误。
dr.Close
set dr=nothing
SaveAs=0
end function

我用的是WIN2000自带的IIS。也可以排除程序上的问题。DR里的确有数据。
就是写不到文件里去，我觉得是IIS的设置问题。
谁知道是怎么回事啊。我把所有权限都打开了也不成啊。