本文從多個角度來講解如何在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; 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) |
| 以下為引用的內容： 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; |
創建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; 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 %＞ |
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＞ |
新聞熱點
疑難解答
