逐步講解向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＞