一个奇怪的问题，请高手解决!(100分解决)

[iamxiang]

真是奇怪，在机器上上午这些程序都运行得好好的，我也没有动它们，可是到了晚上就忽然提示这个，真的有点莫名其妙，请高手解决!



动网论坛的upload.asp文件内容如下：

dim upfile_5xSoft_Stream

Class upload_5xSoft

dim obform,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 obform=CreateObject("Scripting.DictionaryV2")
set File=CreateObject("Scripting.DictionaryV2")
set upfile_5xSoft_Stream=CreateObject("Adodb.StreamV2")
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,strDiv)-1
while iFormStart < iFormEnd
iStart=inString(iFormStart,"name=""")
iEnd=inString(iStart+6,"""")
mFormName=subString(iStart+6,iEnd-iStart-6)
iFileNameStart=inString(iEnd+1,"filename=""")
if iFileNameStart>0 and iFileNameStart<iFormEnd then
iFileNameEnd=inString(iFileNameStart+10,"""")
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
if iEnd>iStart then
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if
set theFile=new FileInfo
theFile.FileName=getFileName(mFileName)
theFile.FilePath=getFilePath(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4
theFile.FormName=FormName
file.add mFormName,theFile
else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)

if iEnd>iStart then
mFormValue=subString(iStart+4,iEnd-iStart-4)
else
mFormValue=""
end if
obform.Add mFormName,mFormValue
end if

iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStart,strDiv)-1
wend
End Sub
........(以下其它属性不写了，就是无组件上传的类)
end class


在回复贴子时调用upload.asp中的内容,调用方法如下：
set upload=new upload_5xSoft ''建立上传对象

formPath=upload.form("filepath")



结果程序中出现如下提示：


器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

请求对象 错误 'ASP 0206 : 80004005'

不能调用 BinaryRead

/bbs/upload.asp，行20

使用 Request.Form 后不能调用 BinaryRead




/bbs/upload.asp，行20 ：就是这一句：
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)



郁闷ing......望解决!

[bora521]

dim upfile_5xSoft_Stream

Class upload_5xSoft

dim obform,File,Version
动网是用的这个东东吗？

[iamxiang]

可是以前一年多，代码都没有错，可是现在却忽然报错，不知道是什么原因啊!

[iamxiang]

求救啊! 不知道哪位高手遇到过相同的问题？

[iamxiang]

是啊~ 我改了一下 原来是form，我定义成obform
忘记说了 我用的是dvbbs6的上传 在这个基础上加了一些过滤功能，主要是防止非法上传。
但是主要模块的还是用的原来的这个~

[iamxiang]

求高手解决，要不然心里面不舒服，因为不知道什么原因!

[leanIxj]

顶一下！

[leanIxj]

接着顶！

[iamxiang]

还是没有人解决啊？

[lshk520]

或者你在前面使用了Request.Form("xxx")了，下面的就不能用BinaryRead了，包括包含文件
正是这样的，我也碰到这样的问题，后来才发现在包含文件再次调用了！！

[iamxiang]

或者你在前面使用了Request.Form("xxx")了，下面的就不能用BinaryRead了，包括包含文件
正是这样的，我也碰到这样的问题，后来才发现在包含文件再次调用了！！


这个问题真的很奇怪，我现在把机器GHOST回来后，以前的这段程序已经运行了好多天了，还是毫无问题~ 不知道改了机器的什么设置后，会出现这个问题？不知道有哪位高手有相似的经历。

[iamxiang]

再顶了下啊 求高手解决啊~

[zwrtv]

路过，学习下

[soft_2008]

有可能是被改变了系统的属性导致的.访问权限的问题,也有可能的服务端口的配置文件损坏所致.如果你的程序之前确实通过调试,且没有错误.

[iamxiang]

系统现在还在正常运行，肯定是系统设置的问题。
只是权限我只把这个WEB文件夹设了二个权限，都没有动过~
系统设置？能否说清楚一点？
服务端口的配置文件损坏也不太可能，我都没有怎么动过端口设置~

[zol9993]

我买了一个 便宜的 asp.net空间！才50元！高兴！给分！！
100mb 的！可以做论坛！才 50元！！速度飞快！
www.hi876.com 你们看看

[slayerbb]

..............
iis header?

[hjwzabc]

<form enctype="multipart/form-data">
有这个属性的不能用request.form这个属性的。

Set request2=new UpLoadClass
request2.MaxSize =700*1024
request2.FileType = "rar/zip/gif/jpg"
request2.Savepath = savepath
request2.open

pic_id=clng(request2.Form("pic_id"))

[churujianghu]

一定是你在某个调用页的包涵文件使用了request.form()

[iamxiang]

没办法啊 想结贴都不行啊

[iamxiang]

不是这个原因啊，我的程序一直没有动过，现在程序又运行得好好的啦。只是在我动了系统之后出错，不知道系统哪里的设置会和这个程序里面的代码冲突啊~