使用ASP将文件上传至数据库的教程(asp上传文件到数据库)

随着互联网技术的不断发展，网站的功能越来越丰富，文件上传这个功能已经成为了不可缺少的一部分。其中，将文件上传至数据库中存储，是一种非常常见的方式。本文将为大家介绍如何。

“只有客户发展了，才有我们的生存与发展！”这是创新互联的服务宗旨！把网站当作互联网产品，产品思维更注重全局思维、需求分析和迭代思维，在网站建设中就是为了建设一个不仅审美在线，而且实用性极高的网站。创新互联对成都网站制作、做网站、网站制作、网站开发、网页设计、网站优化、网络推广、探索永无止境。

一、前置准备

1、ASP环境：所需的ASP环境应当是能够支持ADO和数据库操作的环境。

2、数据库：需要使用一个数据库进行文件上传的储存，可以使用Access、SQL Server等。

3、文件上传组件：ASP默认不支持文件上传功能，需要安装第三方上传组件。

4、解压软件：组件一般是以ZIP格式下载的，需要使用解压软件将其解压出来。

5、文本编辑器：用于编写ASP文件。

二、安装文件上传组件

选择一个适合的上传组件，下载后解压出来，一般会有说明文档，按照说明文档进行安装。这里以ASPUpload为例。

1、将ASPUpload文件中的所有文件解压至Web服务器的Internet Services Manager（I）中的“/Scripts”目录下。

2、在您使用ASP页面上传文件的应用程序所在服务器的根目录下打开一个命令提示符（命令行窗口），输入以下命令：

> regsvr32 ASPUpload.DLL

此命令用于将ASPUpload.DLL文件注册至Windows“注册表”中。

三、编写ASP代码

下面是上传的ASP代码：

<%

Response.Charset = “GB2312”

Dim File02:File02=Request.Form(“File01”)

Dim File01:File01=Request.Files(“fileupload”)

if not File01.eof then

Dim ByteSize

ByteSize=File01.Size

ReDim Binary(ByteSize)

File01.BinaryRead Binary

set cnn=CreateObject(“ADODB.Connection”)

cnn.Provider=”Microsoft.Jet.OLEDB.4.0″

cnn.open server.Mappath(“data/Database.mdb”),admin,admin

sql=”insert into file(person,filedata,filename) values(‘” & File02 & “‘, ‘” &

Binary & “‘,'” & File01.filename & “‘)”

set rs=cnn.execute(sql)

Response.Redirect “index.asp”

else

Response.Write(“没有文件上传！”)

end if

%>

注：这里的“request.form”和“request.files”需根据自己网站的代码来写。

四、数据库建立

需要在数据库中新建一张表：

CREATE TABLE file(

id INTEGER PRIMARY KEY AUTOINCREMENT,

person TEXT(50),

filename TEXT(50),

filedata Image)

五、运行测试

上传文件的功能已经完成，运行ASP页面，看看效果吧。可以通过访问上传文件所在的页面，点击文件上传按钮进行上传，成功后可以在数据库中查看到已经上传的文件。

本文介绍了如何，其中需要安装相关组件并进行配置。上传文件至数据库中存储，可以有效防止文件被下载软件、爬虫等工具恶意下载，是一种非常常见的方式，希望本文能对您有所帮助。

相关问题拓展阅读：

• asp上传 无组件上传 + access数据库 数据库里怎么设置 更好是把上传的图片保存到指定的文件夹，在线等..

asp上传 无组件上传 + access数据库 数据库里怎么设置 更好是把上传的图片保存到指定的文件夹，在线等..

5.0/Access数据库空间和Linux平台的“设置”→“控制面板”→“添加/最后不要忘了把你所选的背景图片上传到“网页制作系统答哗中卖举困” （中念2）插入背景

1.使用风声无组件上核蠢传类 2.0 ，

2.把下载的这个上传类文件命名为UpLoadClass.asp，空氏银并放在你的网站文件夹下。

3.在需要进行上传图片的处理程序a.asp里对它进行调用。（注意你的路径，是不是在同一个文件夹下）

4.然后在上传页a.asp中添加

5.

strFile1=myrequest.Form(“newPhoto”斗宴) ‘这里的newphoto是表单里的文本框名

set rs=server.CreateObject(“adodb.recordset”)

sql=”select * from 表名”

rs.open sql,conn,1,3

rs.addnew

rs(“pic”)=strFile1 ‘这里的pic是数据表里的字段名

rs.update

rs.close

conn.close()

set conn=nothing

功能简介

‘ 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况茄野

‘ 适用于亩早各种数据库,使用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 = 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

‘

‘==================================================================

代码:

很多源码里面都有那个功能的哦，就只有3个文件，你可以自己去研究一下！！！！

我有程序，你hi我，告诉我邮箱，我给你发过去吧。

关于asp上传文件到数据库的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。

成都创新互联科技有限公司，是一家专注于互联网、IDC服务、应用软件开发、网站建设推广的公司，为客户提供互联网基础服务！
创新互联（www.cdcxhl.com）提供简单好用，价格厚道的香港/美国云服务器和独立服务器。创新互联——四川成都IDC机房服务器托管/机柜租用。为您精选优质idc数据中心机房租用、服务器托管、机柜租赁、大带宽租用，高电服务器托管，算力服务器租用，可选线路电信、移动、联通机房等。

当前标题：使用ASP将文件上传至数据库的教程(asp上传文件到数据库)
网页地址：http://www.shufengxianlan.com/qtweb/news32/520382.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联