无组件上传代码问题
bCrLf = chrB(13) & chrB(10)'取得每个项目之间的分隔符
sStart = MidB(RequestBinDate,1, InStrB(1,RequestBinDate,bCrLf)-1)这里instrb(1,requestbindate,bcrlf)-1等于0，得到的不是是空吗？
iStart = LenB (sStart)
iFormStart = iStart+2
'分解项目
Do
iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
[ 本帖最后由 reyard 于 2009-9-20 13:46 编辑 ]
