'==================================================================--
'
'用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里面实现无组件的多文件的上传。实现对服务器端目录的增加、删除、重命名功能。超级强大！
JSP无组件实现WEB上传,界面很差，但是功能正常，可以在提交文件的时候同时提交数据进数据库，提交的文件存放在指定文件夹中。本程序使用MYSQL数据库，代码中附有数据表结构，压缩包中附有该上传程序使用的类
主要为大家详细介绍了使用fileupload实现文件上传功能，文中示例代码介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
在网络上找到的，纯JSP实现的文件上传程序，支持多文件的上传，例子是多文件的上传，稍微修改就可以变成单文件的上传或者更多文件的上传，控制成需要扩展名的文件上传，指定大小的文件上传等。程序目前上传文件存储...
jspSmart组件实现文件上传 jspSmart组件实现文件上传 jspSmart组件实现文件上传 jspSmart组件实现文件上传 jspSmart组件实现文件上传 jspSmart组件实现文件上传 jspSmart组件实现文件上传 jspSmart组件实现文件上传
jsp无组件文件上传，不用多说，都明白啥意思
使用jspSmartUpload实现文件上传下载，包含SmartUpload方法注解、上传示例及组件包
Common-fileupload组件实现文件上传.pdfCommon-fileupload组件实现文件上传.pdfCommon-fileupload组件实现文件上传.pdfCommon-fileupload组件实现文件上传.pdfCommon-fileupload组件实现文件上传.pdfCommon-...
NULL 博文链接：https://systemxgl.iteye.com/blog/267472
此文档实现了使用JSP的组件来实现的文件的上传与下载
这是一个利用smartUpload组件实现文件上传的例子，已经测试通过！！ 附带该组件只要放到服务器的lib下边重启服务器就能实现
JSP实现文件的上传与下载，方便大家参考使用，实在方便，用到了文件上传组件，但是下载没有，大家参考参考学习学习，定会有所收获的。
asp实现无组件上传文件到服务器的指定文件夹下！使用sundyupload上传，例子已经在win7 64位系统测试通过，做了一个弹出页面来上传文件，限制了只传指定格式的图片，有需要的自己修改！简单做了表格的增加/删除行
利用asp纯代码实现无组件文件上传,超级好用，有要用的赶紧下吧。
Delphi写ASP组件实现快速多文件WEB上传
Asp实现无组件文件上传的实例 1.库文件(upload.inc.asp) 2.处理用户提交后的页面(upload.asp) 3.HTML 表单(upload.html) 有注释，应该可以看懂
Bootstrap文件上传插件File Input是一个不错的文件上传控件，但是搜索使用到的案例不多，经过一番研究，把案例整理出来，供大家学习
多文件上传组件_Flash+ASP实现多文件上传功能,免费
把之前写的“ [原创]ASP无组件上载,带进度条,多文件上载”实现了一下，大家可以借鉴。 [原创]ASP无组件上载,带进度条,多文件上载 asp无组件上载 进度条 多文件上载 http://blog.csdn.net/feng_sundy/