获得表单文件的正文的二进制(环境vbs)

 

'该函数获得正文二进制。奇怪的是获得的二进制不能写入ado流中
function getContentByte(formdata)
FirstSeparator=leftb(formdata,instrb(formdata,chrb(13)&chrb(10))-1)'文件流中的分隔符
LastSeparator=rightb(formdata,instrb(formdata,chrb(13)&chrb(10)))'最后一个分隔符

response.BinaryWrite formdata
response.Write "<br>"
response.Write "<br>"
FileStartFlag=instrb(formdata,chrb(13)&chrb(10)&chrb(13)&chrb(10))+3'文件正文开始的地方
temp=midb(formdata,FileStartFlag)
temp2=instrb(temp,LastSeparator)
getContentByte=leftb(temp,temp2-6)'上传文件获得字节正文部分,非二进制亦非文本
end function

 

正如注释所说,问题是为什么不能直接写入ado流?

你可能感兴趣的:(二进制)