上传图片出现: ADODB.Stream 错误 '800a0bbc' 错误

来源:百度知道 编辑:UC知道 时间:2024/06/02 10:43:22
ADODB.Stream 错误 '800a0bbc'

写入文件失败。

/upload_inc.asp,行 175
上传图片就出现这个问题,貌似不是权限问题.有人说"是上传图片的那个文件夹不存在
如果不存在手工新建个文件夹 "
应该怎么建,代码需要怎么改动.麻烦详细的告诉我.万分感谢.
upload_inc文件代码:
..........
..........

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
End Class

function makefilename(fname)
fname = now()
fname = replace(fname,"-","")'时间格式
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"","")
fname = replace(fname,"","")
makefilename=fname
end function

可是在VISTA系统中根本没有2009-2-25这种格式,所以肯定是因为这个时间格式的错误了。VISTA系统的时间格式是:2009/2/25这样的,所以将程序该成

function makefilename(fname)
fname = now()
fname = replace(fname,"/","")'时间格式
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,&q