发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

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

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

'==================================================================''用ASP实现无组件上传/下载文件'' 功能简介 ' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况' 适用于各种数据库,使用ADO的方法连接数据库' 本示例中使用的是ACCESS数据库:zj.mdb' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录' ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型',img ole对象 保存上传的文件内容'' '==================================================================
'=================================================================='' 上传文件的HTML页: zj_up.htm''==================================================================htmlheadtitle文件上传保存到数据库中/title/headbodyform name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp"pinput type="file" name="file"input type="submit" name="Submit" value="上传"/p/form/body/html
'==================================================================''上传文件保存到数据库的ASP页: zj_up.asp''==================================================================%Response.Expires=0Function f_Bin2Str(ByVal sBin)Dim iI, iLen, iChr, iRe iRe = ""If Not IsNull(sBin) TheniLen = LenB(sBin)For iI = 1 To iLeniChr = MidB(sBin, iI, 1)If AscB(iChr)  127 TheniRe = iRe  Chr(AscW(MidB(sBin, iI + 1, 1)  iChr))iI = iI + 1ElseiRe = iRe  Chr(AscB(iChr))End IfNextEnd Iff_Bin2Str = iReEnd FunctioniConcStr = "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,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, "; 200412213005.htm=""") + 12If iPos3  12 TheniStr = Mid(iStr, iPos3)iPos3 = InStr(iStr, Chr(13)  Chr(10)  "Content-Type: ") - 2iFn = 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.UpdateEnd IfEnd IfsBin = MidB(sBin, iPos2 + iLen + 34)iPos1 = InStrB(sBin, iCrlf2) - 1WendiRe.closeset iRe=Nothing%
'==================================================================''下载数据的ASP页: zj_down.asp''==================================================================%Response.Buffer=trueResponse.Buffer=trueResponse.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,1Response.ContentType=ire("type")Response.BinaryWrite iRe("img")
iRe.closeset iRe=Nothing%<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10000248" target="_blank">https://dangbai.cn/Article.asp?ID=10000248</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗