如何向ACCESS數據庫上傳並顯示圖片

在動態網站製做過程中,需要上傳圖片、顯示圖片,上傳的圖片要能夠保存在數據庫中,一般小型網站只支持ACCESS數據庫,如何上傳圖片,將其保存在數據庫中並將其顯示出來,是數據庫+ASP應用技術之一。許多書籍只介紹了SQL數據庫的方法,而對ACCESS卻很少提及。網上有不少關於ACCESS數據庫上傳圖片、顯示圖片的文章,多數文章介紹的不夠全面,有些程序根本就不能開通,對於初學者來說很難把握,我通過參考一些文章,向初學者提供一套比較完整的程序,較全面地介紹了利用上傳向ACCESS數據庫添加圖片、顯示圖片,希望我們這些初學的同志少走一些彎路。

    首先要製做一個ACCESS數據庫,我們給它起名字叫images.mdb,該數據庫裏有兩個字段:id、img,id字段的類型設爲自動編號,img字段的類型設爲OLE對象。

    第二步,設計一個上傳的表單,根據要求可簡可繁。

    第三步,設計後臺的圖片處理程序,可分爲圖片上傳保存程序和圖片讀取程序。

    第四步,圖片顯示。

    下面給出程序並分別做介紹。

    一、 表單程序updata.html

它的功能是爲上傳提供一個界面,表單的enctype屬性爲multipart/form-data,它是設置表單的MIME編碼的,只有使用了它才能完整地傳送文件的數據。

<html> 

<body> 

<center> 

   <form name="mainForm" enctype="multipart/form-data" 

action="process.asp" method="post"> 

    <input type=file name=mefile>

    <input type=submit name=ok value="上傳"> 

   </form> 

</center> 

</body> 

</html>

    二、 圖片的上傳與保存程序process.asp

<% 

response.buffer=true 

formsize=request.totalbytes 

formdata=request.binaryread(formsize) 

bncrlf=chrB(13) & chrB(10) 

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) 

datastart=instrb(formdata,bncrlf & bncrlf)+4 

dataend=instrb(datastart+1,formdata,divider)-datastart 

mydata=midb(formdata,datastart,dataend) 

set connGraph=server.CreateObject("ADODB.connection") 

connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("images.mdb") 

set rec=server.createobject("ADODB.recordset") 

rec.Open "SELECT * FROM images where id is null",connGraph,1,3 

rec.addnew 

rec("img").appendchunk mydata

rec.update 

rec.closes 

set rec=nothing 

set connGraph=nothing  %>

    這段程序的功能是將上傳圖片的數據保存到數據庫裏。下面分句說明各語句的作用。

response.buffer=true 

formsize=request.totalbytes 

formdata=request.binaryread(formsize)

打開緩存功能,獲取客戶端總的發送數據量,獲取上傳過來的數據。

bncrlf=chrB(13) & chrB(10) 

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)

這兩個語句的意思是設一個二進制回車符及得到一個divider分隔符,目的是爲了確定圖片的位置。

datastart=instrb(formdata,bncrlf & bncrlf)+4 

dataend=instrb(datastart+1,formdata,divider)-datastart 

mydata=midb(formdata,datastart,dataend)

以上三個語句是確定圖片數據的起始位置、結束位置及實際圖片的數據。

set connGraph=server.CreateObject("ADODB.connection") 

connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("images.mdb")

創建connection對象,並連接MICROSOFT ACCESS數據庫。

set rec=server.createobject("ADODB.recordset") 

rec.Open "SELECT * FROM images where id is null",connGraph,1,3 

rec.addnew 

rec("img").appendchunk mydata

創建recordset對象,打開數據庫並置爲寫入狀態,執行rec.addnew增加一條新記錄,調用FIELD對象的appendchunk方法將圖片數據保存到數據庫表的字段中。

後邊幾句關閉數據庫,釋放定義組件的設置。

    三、 圖片的讀取程序showing.asp

<% 

set connGraph=server.CreateObject("ADODB.connection") 

connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("images.mdb")

set rec=server.createobject("ADODB.recordset")

id=trim(request.querystring("id"))

strsql="select img from images where id="&Request.QueryString("id")&""

rec.open strsql,connGraph,1,1 

Response.ContentType = "image/gif" 

Response.BinaryWrite rec("img").getChunk(7500000)  

rec.close 

set rec=nothing 

set connGraph=nothing 

 %>

    以上程序是顯示圖片的後臺程序,主要功能是按照要求的ID號讀取數據庫中圖片的數據。

Response.BinaryWrite rec("img").getChunk(7500000)

這裏調用了FIELD對象的getChunk(SIZE)方法,SIZE是字節數。

需要注意的是使用Response對象的 ContentType屬性時MIME類型的設置,我們這裏將返回數據的類型設爲圖形方式即image/gif方式,它可以顯示GIF或JPG格式的圖形,如果設置爲image/*,程序在執行時將不能顯示圖片。

    四、 圖片的顯示程序show.html

圖片上傳保存到數據庫裏就可以調用程序顯示圖片了,我們再做一個表單程序,提供要顯示圖片的ID號。

<html> 

<body> 

<center> 

   <form name="mainForm" enctype="text/plain" 

action="showing.asp" method="get"> 

    請輸入要顯示圖片的序號:<input type=id name=id>

    <input type=submit name=ok value="提交"> 

   </form> 

</center> 

</body> 

</html>

    以上程序及數據庫製做好以後上傳到服務器上就可以使用了,也可以在本地服務器上使用,但本機要安裝ⅡS插件。
發佈了18 篇原創文章 · 獲贊 3 · 訪問量 2萬+
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章