无组件实现文件上传

《无组件实现文件上传》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、无组件实现文件上传/下载'=================================================================='' 用ASP实现无组件上传/下载文件''功能简介'将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况'适用于各种数据库,使用ADO的方法连接数据库'本示例中使用的是ACCESS数据库:zj.mdb'表:tb_img(idint(自增列),pathtext(255)保存上传文件的目录',fnametext(250)保存上传的文件名,typetest(25

2、0)保存上传文件的类型'       ,imgole对象保存上传的文件内容'''=================================================================='==================================================================''上传文件的HTML页:zj_up.htm''==================================================================

3、tml> 

4、====================================='' 上传文件保存到数据库的ASP页:zj_up.asp''==================================================================<%Response.Expires=0Functionf_Bin2Str(ByValsBin)   DimiI,iLen,iChr,iRe         iRe=""   IfNotIsNull(sBin)Then       iLen=LenB(sBin) 

5、      ForiI=1ToiLen           iChr=MidB(sBin,iI,1)           IfAscB(iChr)>127Then               iRe=iRe&Chr(AscW(MidB(sBin,iI+1,1)&iChr))               iI=iI+1           Else               iRe=iRe&Chr(AscB(iChr))           EndIf       Next   EndIf      f_Bin2Str=iR

6、eEndFunctioniConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_ ";DataSource="&server.mappath("zj.mdb")iSql="tb_img"setiRe=Server.CreateObject("ADODB.Recordset")iRe.OpeniSql,iConcStr,1,3iLen=Request.TotalBytessBin=Request.BinaryRead(iLen)iCrlf1=

7、ChrB(13)&ChrB(10)iCrlf2=iCrlf1&iCrlf1iLen=InStrB(1,sBin,iCrlf1)-1iSpc=LeftB(sBin,iLen)sBin=MidB(sBin,iLen+34)iPos1=InStrB(sBin,iCrlf2)-1WhileiPos1>0 iStr=f_Bin2Str(LeftB(sBin,iPos1)) iPos1=iPos1+5 iPos2=InStrB(iPos1,sBin,iSpc)  iPos3=InStr(iStr,";filename=""")+12 I

8、fiPos3>12Then iStr=Mid(iStr,iPos3) iPos3=InStr(iStr,Chr(13)&Chr(10)&"Content-Type:")-2 iFn=Left(iStr,iPos3) IfiFn<>""Then  iRe.AddNew  ire("path"