用asp实现一个组件免费上传/下载文件
'
功能简介
将上传的文件数据保存到数据库中，并处理表单中的多个上载文件。
适用于各种数据库，并使用ADO方法连接数据库。
采用ACCESS数据库的例子：zj.mdb
表：tb_img（ID int（自加），路径文本（255）保存上传文件的目录
'，创建文本（250）保存上载文件的名称，类型的测试（250）节省了上传文件的类型
'，IMG的OLE对象保存上载文件的内容
'
'
==================================================================

==================================================================
'
上传文件的HTML页面：zj_up.htm
'
==================================================================复制代码如下：


文件上传到数据库











==================================================================
'
上传文件保存到数据库的ASP页：zj_up.asp
'
==================================================================复制代码如下：
<
响应。过期= 0
功能f_bin2str（ByVal sBin）
昏暗的二，艾朗，组织，愤怒
=
如果Not IsNull（就是）然后
艾朗= lenb（网络）
Ⅱ= 1艾朗
组织=多重交替焙烘显影工艺（sbin，II，1）
If AscB (iChr) > 127 Then
爱=爱CHR（AscW（多重交替焙烘显影工艺（sbin，II + 1, 1）组织））））
ii＝1
其他的
爱=爱CHR（AscB（组织））
最后如果
下一个
最后如果
f_bin2str =愤怒
端功能
iconcstr =商=微软。飞机。OLEDB。4坚持安全信息=假_；
；数据源=server.mappath（ZJ .mdb）
ISQL =tb_img
集愤怒= server.createobject（ADODB。记录集）
愤怒。打开ISQL，iconcstr，1,3
艾朗= request.totalbytes
sbin = request.binaryread（艾朗）
icrlf1 = ChrB ChrB（10）（13）
icrlf2 = icrlf1 icrlf1
艾朗= instrb（1，sbin，icrlf1）- 1
ISPC = LEFTB（sbin，艾朗）
sbin =多重交替焙烘显影工艺（sbin，艾朗+ 34）
ipos1 = instrb（sbin，icrlf2）- 1
而ipos1 > 0
ISTR = f_bin2str（LeftB（也就是，ipos1））
ipos1 = ipos1 + 5
ipos2 = instrb（ipos1，sbin，ISPC）

ipos3 =仪器（ISTR，；文件名= ）+ 12
如果ipos3 > 12
ISTR =中（ISTR，ipos3）
ipos3 =仪器（ISTR，CHR（13）与（10）内容类型：）2
IFN =左（ISTR，ipos3）
如果干扰素> 然后
ire.addnew
愤怒（路径）=左（IFN，instrrev（IFN，））
愤怒（名）=中（IFN，instrrev（IFN，）+ 1）
愤怒（类）=中（ISTR，ipos3 + 18）
愤怒（IMG）。AppendChunk MidB（也就是，ipos1，ipos2 - ipos1）
愤怒。更新
最后如果
最后如果

sbin =多重交替焙烘显影工艺（sbin，ipos2 +艾朗+ 34）
ipos1 = instrb（sbin，icrlf2）- 1
走
ire.close
设置愤怒=没有
%>
==================================================================
'
下载数据zj_down.asp ASP页面：
'
==================================================================复制代码如下：
<
响应=缓冲区=真
响应清晰。
iconcstr =商=微软。飞机。OLEDB。4坚持安全信息=假_；
；数据源=server.mappath（ZJ .mdb）
集愤怒= server.createobject（ADODB。记录集）
ISQL =tb_img
IRe.open iSql，iconcstr，1,1
响应。ContentType =愤怒（类）
response.binarywrite IRE（IMG）
ire.close
设置愤怒=没有
%>