100分悬赏-关于upload_5xsoft.inc

来源：百度知道 编辑：UC知道 时间：2024/05/05 02:14:38
我是院里网站的一个管理员,现在在后台管理程序里,上传图片,结果出现了下面字,不能传图片了,请问怎么一回事,如何改,现在偶急死了,请大侠们帮帮忙

ADODB.Stream 错误 '800a0bbc'

写入文件失败。

/union/admin/upload_5xsoft.inc，行 161

upload_5xsoft.inc文件里的代码用以下代码替换

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim upfile_5xSoft_Stream

Class upload_5xSoft

dim Form,File,Version

Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version="任翔专用上传程序"
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
upfile_5xSoft_Stream.mode=3
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart