建站
咨詢
售后
建站咨詢
新聞中心
隨著互聯(lián)網(wǎng)技術(shù)的不斷發(fā)展，網(wǎng)站的功能越來越豐富，文件上傳這個功能已經(jīng)成為了不可缺少的一部分。其中，將文件上傳至數(shù)據(jù)庫中存儲，是一種非常常見的方式。本文將為大家介紹如何。
“只有客戶發(fā)展了，才有我們的生存與發(fā)展！”這是創(chuàng)新互聯(lián)的服務(wù)宗旨！把網(wǎng)站當作互聯(lián)網(wǎng)產(chǎn)品，產(chǎn)品思維更注重全局思維、需求分析和迭代思維，在網(wǎng)站建設(shè)中就是為了建設(shè)一個不僅審美在線，而且實用性極高的網(wǎng)站。創(chuàng)新互聯(lián)對成都網(wǎng)站制作、做網(wǎng)站、網(wǎng)站制作、網(wǎng)站開發(fā)、網(wǎng)頁設(shè)計、網(wǎng)站優(yōu)化、網(wǎng)絡(luò)推廣、探索永無止境。
一、前置準備
1、ASP環(huán)境：所需的ASP環(huán)境應(yīng)當是能夠支持ADO和數(shù)據(jù)庫操作的環(huán)境。
2、數(shù)據(jù)庫：需要使用一個數(shù)據(jù)庫進行文件上傳的儲存，可以使用Access、SQL Server等。
3、文件上傳組件：ASP默認不支持文件上傳功能，需要安裝第三方上傳組件。
4、解壓軟件：組件一般是以ZIP格式下載的，需要使用解壓軟件將其解壓出來。
5、文本編輯器：用于編寫ASP文件。
二、安裝文件上傳組件
選擇一個適合的上傳組件，下載后解壓出來，一般會有說明文檔，按照說明文檔進行安裝。這里以ASPUpload為例。
1、將ASPUpload文件中的所有文件解壓至Web服務(wù)器的Internet Services Manager（I）中的“/Scripts”目錄下。
2、在您使用ASP頁面上傳文件的應(yīng)用程序所在服務(wù)器的根目錄下打開一個命令提示符（命令行窗口），輸入以下命令：
> 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”需根據(jù)自己網(wǎng)站的代碼來寫。
四、數(shù)據(jù)庫建立
需要在數(shù)據(jù)庫中新建一張表：
CREATE TABLE file(
id INTEGER PRIMARY KEY AUTOINCREMENT,
person TEXT(50),
filename TEXT(50),
filedata Image)
五、運行測試
上傳文件的功能已經(jīng)完成，運行ASP頁面，看看效果吧?？梢酝ㄟ^訪問上傳文件所在的頁面，點擊文件上傳按鈕進行上傳，成功后可以在數(shù)據(jù)庫中查看到已經(jīng)上傳的文件。
本文介紹了如何，其中需要安裝相關(guān)組件并進行配置。上傳文件至數(shù)據(jù)庫中存儲，可以有效防止文件被下載軟件、爬蟲等工具惡意下載，是一種非常常見的方式，希望本文能對您有所幫助。
相關(guān)問題拓展閱讀：
- asp上傳 無組件上傳 + access數(shù)據(jù)庫 數(shù)據(jù)庫里怎么設(shè)置 更好是把上傳的圖片保存到指定的文件夾，在線等..
asp上傳 無組件上傳 + access數(shù)據(jù)庫 數(shù)據(jù)庫里怎么設(shè)置 更好是把上傳的圖片保存到指定的文件夾，在線等..
5.0/Access數(shù)據(jù)庫空間和Linux平臺的“設(shè)置”→“控制面板”→“添加/最后不要忘了把你所選的背景圖片上傳到“網(wǎng)頁制作系統(tǒng)答嘩中賣舉困” （中念2）插入背景
1.使用風聲無組件上核蠢傳類 2.0 ，
2.把下載的這個上傳類文件命名為UpLoadClass.asp，空氏銀并放在你的網(wǎng)站文件夾下。
3.在需要進行上傳圖片的處理程序a.asp里對它進行調(diào)用。（注意你的路徑，是不是在同一個文件夾下）
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是數(shù)據(jù)表里的字段名
rs.update
rs.close
conn.close()
set conn=nothing
功能簡介
‘ 將上傳的文件數(shù)據(jù)保存到數(shù)據(jù)庫中,可以處理表單中的多個上傳文件的情況茄野
‘ 適用于畝早各種數(shù)據(jù)庫,使用ADO的方法連接數(shù)據(jù)庫
‘ 本示例中使用的是ACCESS數(shù)據(jù)庫:zj.mdb
‘ 表:tb_img(id int(自增列),path text(255) 保存上傳文件的目錄
‘ ,fname text(250) 保存上傳的文件名,type test(250) 保存上傳迅納雀文件的類型
‘,img ole對象 保存上傳的文件內(nèi)容
‘
‘
‘==================================================================
‘==================================================================
‘
‘ 上傳文件的HTML頁: zj_up.htm
‘
‘==================================================================
代碼:
文件上傳保存到數(shù)據(jù)庫中
‘==================================================================
‘
‘ 上傳文件保存到數(shù)據(jù)庫的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
%>
‘==================================================================
‘
‘ 下載數(shù)據(jù)的ASP頁: zj_down.asp
‘
‘==================================================================
代碼:
很多源碼里面都有那個功能的哦，就只有3個文件，你可以自己去研究一下?。。?！
我有程序，你hi我，告訴我郵箱，我給你發(fā)過去吧。
關(guān)于asp上傳文件到數(shù)據(jù)庫的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。
成都創(chuàng)新互聯(lián)科技有限公司，是一家專注于互聯(lián)網(wǎng)、IDC服務(wù)、應(yīng)用軟件開發(fā)、網(wǎng)站建設(shè)推廣的公司，為客戶提供互聯(lián)網(wǎng)基礎(chǔ)服務(wù)！
創(chuàng)新互聯(lián)（www.cdcxhl.com）提供簡單好用，價格厚道的香港/美國云服務(wù)器和獨立服務(wù)器。創(chuàng)新互聯(lián)——四川成都IDC機房服務(wù)器托管/機柜租用。為您精選優(yōu)質(zhì)idc數(shù)據(jù)中心機房租用、服務(wù)器托管、機柜租賃、大帶寬租用，高電服務(wù)器托管，算力服務(wù)器租用，可選線路電信、移動、聯(lián)通機房等。
分享文章：使用ASP將文件上傳至數(shù)據(jù)庫的教程(asp上傳文件到數(shù)據(jù)庫)
網(wǎng)頁地址：http://fisionsoft.com.cn/article/djgijjg.html
