无组件实现上传.doc

无组件实现文件上传/下载= 用ASP实现无组件上传/下载文件 功能简介 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况 适用于各种数据库,使用ADO的方法连接数据库 本示例中使用的是ACCESS数据库:zj.mdb 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录 ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型 ,img ole对象 保存上传的文件内容 = 上传文件的HTML页: zj_up.htm=文件上传保存到数据库中 = 上传文件保存到数据库的ASP页: zj_up.asp= 127 Then iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr) iI = iI + 1 Else iRe = iRe & Chr(AscB(iChr) End If Next End If f_Bin2Str = iReEnd FunctioniConcStr = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False & _ ;Data Source= & server.mappath(zj.mdb)iSql=tb_imgset iRe=Server.CreateObject(ADODB.Recordset)iRe.Open iSql,iConcStr,1,3iLen=Request.TotalBytessBin=Request.BinaryRead(iLen)iCrlf1 = ChrB(13) & ChrB(10)iCrlf2 = iCrlf1 & iCrlf1iLen = InStrB(1, sBin, iCrlf1) - 1iSpc = LeftB(sBin, iLen)sBin = MidB(sBin, iLen + 34)iPos1 = InStrB(sBin, iCrlf2) - 1While iPos1 0iStr = f_Bin2Str(LeftB(sBin, iPos1)iPos1 = iPos1 + 5iPos2 = InStrB(iPos1, sBin, iSpc)iPos3 = InStr(iStr, ; filename=) + 12If iPos3 12 Then iStr = Mid(iStr, iPos3) iPos3 = InStr(iStr, Chr(13) & Chr(10) & Content-Type: ) - 2 iFn = Left(iStr, iPos3) If iFn Then iRe.AddNew ire(path)=left(iFn,instrrev(iFn,) iRe(fname) = mid(iFn,instrrev(iFn,)+1) iRe(type) = Mid(iStr, iPos3 + 18) iRe(img).AppendChunk MidB(sBin, iPos1, iPos2 - iPos1) iRe.Update End IfEnd IfsBin = MidB(sBin, iPos2 + iLen + 34)iPos1 = InStrB