作家
登录

无组件实现文件上传/下载

作者: 来源:www.28hudong.com 2013-03-30 08:59:07 阅读 我要评论

' 用ASP实现无组件上传/下载文件 ' ' 功能简介 ' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况 ' 适用于各种数据库,使用ADO的方法连接数据库 ' 本示例中使用的是ACCESS数据库:zj.mdb ' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录 ' ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型 ' ,img ole对象 保存上传的文件内容 ' ' '================================================================== '================================================================== ' ' 上传文件的HTML页: zj_up.htm ' '================================================================== 复制代码 代码如下:<html> <head> <title>文件上传保存到数据库中</title> </head> <body> <form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp"> <p> <input type="file" name="file"> <input type="submit" name="Submit" value="上传"> </p> </form> </body> </html> '================================================================== ' ' 上传文件保存到数据库的ASP页: zj_up.asp ' '================================================================== 复制代码 代码如下:<% Response.Expires=0 Function f_Bin2Str(ByVal sBin) Dim iI, iLen, iChr, iRe iRe = "" If Not IsNull(sBin) Then iLen = LenB(sBin) For iI = 1 To iLen iChr = MidB(sBin, iI, 1) If AscB(iChr) > 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 = iRe End Function iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ ";Data Source=" & server.mappath("zj.mdb") iSql="tb_img" set iRe=Server.CreateObject("ADODB.Recordset") iRe.Open iSql,iConcStr,1,3 iLen=Request.TotalBytes sBin=Request.BinaryRead(iLen) iCrlf1 = ChrB(13) & ChrB(10) iCrlf2 = iCrlf1 & iCrlf1 iLen = InStrB(1, sBin, iCrlf1) - 1 iSpc = LeftB(sBin, iLen) sBin = MidB(sBin, iLen + 34) iPos1 = InStrB(sBin, iCrlf2) - 1 While iPos1 > 0 iStr = f_Bin2Str(LeftB(sBin, iPos1)) iPos1 = iPos1 + 5 iPos2 = InStrB(iPos1, sBin, iSpc) iPos3 = InStr(iStr, "; filename=""") + 12 If 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 If End If sBin = MidB(sBin, iPos2 + iLen + 34) iPos1 = InStrB(sBin, iCrlf2) - 1 Wend iRe.close set iRe=Nothing %> '================================================================== ' ' 下载数据的ASP页: zj_down.asp ' '================================================================== 复制代码 代码如下:<% Response.Buffer=true Response.Clear iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ ";Data Source=" & server.mappath("zj.mdb") set iRe=server.createobject("adodb.recordset") iSql="tb_img" iRe.open iSql,iconcstr,1,1 Response.ContentType=ire("type") Response.BinaryWrite iRe("img") iRe.close set iRe=Nothing %>

  推荐阅读

  全面认识ASP注入技巧

复制代码 代码如下:1.判断是否有注入 ;and 1=1 ;and 1=2 2.初步判断是否是mssql ;and user>0 3.注入参数是字符 'and [查询条件] and ''=' 4.搜索时没过滤参数的 'and [查询条件] and '%25'=' 5.判断数据库>>>详细阅读


本文标题:无组件实现文件上传/下载

地址:http://www.17bianji.com/kaifa2/ASP/33082.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)