青岛汽车东站到莱西时刻表:ADODB.Stream 错误 '800a0bbc' 如何解决?

一个相册程序，在本地调试没问题，传上虚拟主机后添加相册出现如下问题，请教如何解决？

ADODB.Stream 错误 '800a0bbc'

写入文件失败。

/book/plus/album/inc/uploadfile_inc.asp，行 47

原文件名：uploadfile_inc.asp
原文件编码如下：
<%
function savefile(formfilefield, path, maxsize)
dim streamobj,streamobj1, upload
set streamobj = server.createobject("adodb.stream")
set streamobj1 = server.createobject("adodb.stream")
streamobj.mode = 3
streamobj1.mode = 3
streamobj.type = 1
streamobj1.type = 1
savefile = ""
upload = true
startpos = lenb(divider) + 2
formfilefield = chr(34) & formfilefield & chr(34)
do while startpos > 0
strlen = instrb(startpos, formdata, bcrlf) - startpos
searchstr = midb(formdata, startpos, strlen)
if instr(bin2str(searchstr), formfilefield) > 0 then
str = rightb(searchstr,lenb(searchstr)-instrb(searchstr,str2bin("filename="))-9)
filename = ""
for i = lenb(str) to 1 step -1
if midb(str, i, 1) = chrb(asc("\")) then
filename = midb(str, i + 1, lenb(str) - i - 1)
exit for
end if
next
if filename = "" then upload = false
rfilename = lcase(GetExpFilename(bin2str(filename)))
filename = ""

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 判断文件扩展名
''''''''''''''''''''''''''''''''''''
if rfilename = "jpg" or rfilename = "gif" then
filename = "sf_album_" & id & "_" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & "." & lcase(rfilename)
end if
if filename <> "" then
filestart = instrb(startpos, formdata, bcrlf & bcrlf) + 4
filelen = instrb(startpos, formdata, divider) - 2 - filestart
filesize = filelen
if filelen <= maxsize*1024 then
filecontent = midb(formdata, filestart, filelen)
streamobj.open
streamobj1.open
streamobj.write formdata
streamobj.position=filestart-1
streamobj.copyto streamobj1,filelen
streamobj1.savetofile path & "\" & filename, 1
streamobj.close
streamobj1.close
savefile = filename
else
savefile = ""
end if
end if
end if
if instrb(startpos, formdata, divider) < 1 then
exit do
end if
startpos = instrb(startpos, formdata, divider) + lenb(divider) + 2
loop
if not upload then savefile = "NULL"
end function