复制代码 代码如下:
<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:\aaa\aaa.jpg，可以同样处理formdata的数据而提取该段文件域数据的初试文件名
（4）.这些算法是来源于http“form”规范提供的格式数据，所以任何一家的处理算法都是大同小异的！