复制代码 代码如下:<input name="file" type="file"> formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13) & chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrlf & bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)-datastart mydata=midb(formdata,datastart,dataend) formsize=request.totalbytes 取得上传的最大字节数 ----------------------- formdata=request.binaryread(formsize) 取得二进制流的表单form数据 ----------------------- bncrlf=chrB(13) & chrB(10) 设定crlf 回车换行代码变量 ------------------------------ divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) 取得第一个crlf左边的字节数据 instrb(formdata,bncrlf)-1机检查出crlf二进制字节的位值减一，即为该标志位信息之前的二进制数据，需要说明的是instrb返回的是clng,所以此处加了一个clng是多余的 ------------------------------ datastart=instrb(formdata,bncrlf & bncrlf)+4 取得图象数据，去除form表单添加的头信息的启始位置，也就是你的type=file在form提交后的真正文件数据的字节起始位置 二个连续crlf的位置+4(即而个crlfg的长度) ------------------------------- dataend=instrb(datastart+1,formdata,divider)-datastart 从上的取得的数据位置+1做为检查数据结尾的参考计算值，在datastart+1开始的位置检测返回第一个二进制form分隔头信息的位置，再减去datastar的相对位置 ---------------------------- mydata=midb(formdata,datastart,dataend) midb()取以上多番周折取得的上传文件数据的star end位制的数据 ok --------------> 现在干干净净的提取出上传的二级制数据 注： （1）.所有 *B系列的VB函数均是按字节byte来处理，处理二级制必须用他们 （2）.type=file 和 相应的form类型的表单数据提交后均对每个文件域附加有相应的头信息 所以必须按上面的算法来明确找到真正的文件数据 （3）.同时头信息里还包含上传初始文件名的数据如 c:aaaaaa.jpg，可以同样处理formdata的数据而提取该段文件域数据的初试文件名 （4）.这些算法是来源于http“form”规范提供的格式数据，所以任何一家的处理算法都是大同小异的！

　　推荐阅读

　　ASP 调用带参数输出的COM接口

COM接口VC实现,接口: [id(1), helpstring("method Test")] HRESULT Test([in] BSTR strInputA, [in] BSTR strInputB, [out,retval] VARIANT* result); ASP调用： Set objCompInfo =server.CreateObject("组件在系统>>>详细阅读

本文标题：通过表单的做为二进制文件上传request.totalbytes提取出上传的二级制数据

地址：http://www.17bianji.com/kaifa2/ASP/32002.html

 1/2    1