复制代码 代码如下:

<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”规范提供的格式数据，所以任何一家的处理算法都是大同小异的！