ASP（Active Server Pages）是Microsoft很早就推出的一種WEB應(yīng)用程序解決方案，也是絕大多數(shù)從事網(wǎng)站開發(fā)人員很熟悉的一個(gè)比較簡單的編程環(huán)境。通過ASP我們可以創(chuàng)建功能強(qiáng)大的動態(tài)的WEB應(yīng)用程序。ASP雖然功能很強(qiáng)大，但有些功能用純ASP代碼完成不了，為了能保證開發(fā)出功能更加強(qiáng)大的WEB應(yīng)用程序，我們可以借助調(diào)用COM組件。

在日常工作中，例如開發(fā)一個(gè)“商品網(wǎng)上銷售系統(tǒng)”吧，為了使顧客對商品的外觀有所了解，也就是顧客在看商品的文字介紹的同時(shí)在文字的旁邊有該商品的圖片加以說明，這樣顧客就可以對該商品有個(gè)系統(tǒng)的了解，對推銷商品有很大的幫助。所以我們在開發(fā)系統(tǒng)時(shí)當(dāng)然就要加入圖片處理模塊，即如何把圖片上傳到服務(wù)器（圖片可以放在WEB服務(wù)器上某一個(gè)文件夾里也可以放在SQL Server服務(wù)器里）和如何讓上傳的圖片在瀏覽器端顯示出來，這都是開發(fā)人員要考慮到的問題。

上傳圖片到服務(wù)器有多種方法，可以使用文件上傳組件也可以使用純ASP代碼來實(shí)現(xiàn)。在CSDN的WEB版ASP上經(jīng)常有網(wǎng)友問這樣的問題“如何利用ASP把圖片上傳到數(shù)據(jù)庫里”，為了方便CSDN需要了解這方面的知識，這篇文章將詳細(xì)講解使用ASP上傳圖片的做法并給出代碼，以饗讀者。

首先了解一下在程序中用到的各種對象及其語法：

1） Request.BinaryRead()方法

● 使用Request.BinaryRead()方法可以獲取提交的文件數(shù)據(jù)

● 語法

VarReValue= Request.BinaryRead(number)

變量VarReValue返回值保存從客戶端讀取到的二進(jìn)制數(shù)據(jù)；

參數(shù)number指明要從客戶端讀取的二進(jìn)制數(shù)據(jù)量的大小。

2） Response.BinaryWrite()方法

● 使用Response.BinaryWrite()方法可以從數(shù)據(jù)庫中獲取圖片數(shù)據(jù)并顯示到客戶端的瀏覽器中。

● 語法

Response.BinaryWrite data

參數(shù)data是要寫進(jìn)客戶端瀏覽器中的二進(jìn)制數(shù)據(jù)包。

3） AppendChunk方法

● AppendChunk方法的作用是將二進(jìn)制數(shù)據(jù)追加到Field或Parameter對象。

● 語法

object.AppendChunk data

參數(shù)data為要追加到Field或Parameter對象中的數(shù)據(jù)包。

4） GetChunk方法

● GetChunk方法返回二進(jìn)制數(shù)據(jù)的內(nèi)容。

● 語法

object. GetChunk(size)

參數(shù)size指明要返回二進(jìn)制數(shù)據(jù)的長度，可以是長整型表達(dá)式。

5） Request.TotalBytes方法

● Request.TotalBytes方法返回從客戶端讀取到的數(shù)據(jù)的字節(jié)數(shù)，這個(gè)值跟上面所提到的number相對應(yīng)，可以大于或等于number值。

● 語法

number= Request.TotalBytes

大體了解了一些方法及其使用方法后，接下來我們就開始設(shè)計(jì)數(shù)據(jù)庫和相關(guān)編寫代碼了。

第一步：數(shù)據(jù)庫的設(shè)計(jì)（以Ms SQL Server7為例）：

Create table img --創(chuàng)建用來存儲圖片的表，命名為img

(

id int identity(1,1) not null,

img image

)


第二步：程序編寫，其中省略了用戶輸入界面，這里只給出很重要的兩個(gè)文件即圖片上傳處理(processimg.asp)和顯示圖片(ShowImg.asp)文件。

1） processimg.asp文件代碼：

〈%

Response.Buffer=True

ImageSize=Request.TotalBytes ‘獲取提交數(shù)據(jù)量的總字節(jié)數(shù)

ImageData=Request.BinaryRead(ImageSize) ‘保存從客戶端讀取到的數(shù)據(jù)

‘優(yōu)化讀取到的二進(jìn)制數(shù)據(jù)

BnCrLf=chrB(13)&chr(10)

Divider=LeftB(ImageData,Clng(InstrB(ImageData, BnCrLf))-1)

Dstart=InstrB(ImageData, BnCrLf& BnCrLf)+4

Dend=InstrB(Dstart+1, ImageData, Divider)- Dstart

MyData=MidB(ImageData, Dstart, Dend)

‘創(chuàng)建對象實(shí)例

Set imgConn=Server.CreateObject(“ADODB.Connection”)

StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

imgConn.open strConn

Set Rs= Server.CreateObject(“ADODB.RecordSet”)

Sql=”Select * From img Where id is null”

Rs.open sql,imgConn,1,3

‘追加數(shù)據(jù)到數(shù)據(jù)庫

Rs.AddNew

Rs(“img”).AppendChunk myData

Rs.Update

‘關(guān)閉和釋放對象

Rs.close

ImgConn.close

Set Rs=Nothing

Set ImgConn=Nothing

%〉

2) ShowImg.asp文件代碼：

〈%

Response.Expires = 0

Response.buffer=True

Response.clear

‘創(chuàng)建對象實(shí)例

Set imgConn=Server.CreateObject(“ADODB.Connection”)

StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

imgConn.open strConn

Set Rs= Server.CreateObject(“ADODB.RecordSet”)

Sql=”Select img From img Where id=1” 這里的id可以使用Request(“id”)獲得

Rs.open sql,imgConn,1,1

Response.ContentType=”image/*”

Response.BinaryWrite Rs.(“img”).GetChunk(7500000)

‘關(guān)閉和釋放對象

Rs.close

ImgConn.close

Set Rs=Nothing

Set ImgConn=Nothing

%〉

至此，本文對如何使用ASP上傳圖片的原理和示例都講完了，有什么不妥的地方請各位指正，謝謝！同時(shí)希望本文能夠確實(shí)能為需要這方面幫助的網(wǎng)友提供實(shí)質(zhì)性的幫助。