用VB6做一个简单的文件上传组件(一)
最近在单位做的一个项目里需要有文件上传的功能，正好手头一本书的附赠光盘里有一个上传组件，心中大喜。可惜随之便发现这是一个试用版，不给钱就只能用50次，太小气了！！好在头头催得不紧，时间充裕，干脆自己试着做一个，既可长经验值，又能长成就感，不试白不试！以下介绍的便是俺折腾了两天半捣鼓出来的一个只能说是雏形的玩意，区区三十行代码，大侠们不要笑俺哦，这只是写给与俺一样好奇心强但经验值低的弟兄们看的。
文件上载所需的第一步当然是进入一个有“file”表单元素的页面，具体就不说了，大家都知道。但是若想做一个能够接受该文件并且将其保存到服务器硬盘上的组件，必须知道所提交的原始数据的怎么一个模样才行。做到这一点并不难：
<%
Dim FormData,FormSize
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
Response.BinaryWrite FormData
%
因为需要读取的是前一个页面提交来的原始字节数据，因此不能使用Request.Form()方法，必须使用Bi...[ 查看全文 ]
2016-01-29
标签:
