一、把圖片存入數據庫中

用到以下幾個方面的知識：
1. 使用流對象
2. 查找準備上傳的圖片的大小和類型
3.怎么使用InputStream方法

插入圖片的必要條件
1.＃Form 標記的 enctype 屬性應該設置成 enctype="multipart/form-data"
2.# 需要一個<input type=file>表單來使用戶選擇他們要上傳的文件，同時我們需要導入 System.IO名稱空間來處理流對象
對SqlServer做以下的準備
1.＃ 需要至少含有一個圖片類型的字段的表
2.＃ 如果我們還有另外一個變字符類型的字段來存儲圖片類型，那樣會更好一些。

窗體控件
1.插入圖片用到的是System.Web.UI.HtmlControls.HtmlInputFile控件，我們在webform中放入這個控件，取名為“imgInput”
2.同時再放入一個確認上傳按鈕“Button1”

程序代碼
AddImg，用于返回要上傳的圖片內容

 1Private Function AddImg()Function AddImg(ByVal InputImg As System.Web.UI.HtmlControls.HtmlInputFile, ByVal ImgType As String, ByVal MaxSize As Int64) As Byte()
 2'傳入一個htmlinputfile控件，一個上傳圖片格式和一個上傳圖片最大值,返回圖片的內容，既要寫入數據庫中的內容，你也可以同時寫入圖片類型
 3        Dim intImageSize As Int64
 4        Dim strImageType As String
 5        Dim ImageStream As Stream
 6        ' Gets the Image Type
 7   strImageType=InputImg.PostedFile.ContentType
 8        If strImageType <> ImgType Then
 9            Response.Write("<script>alert('圖片類型為""')</script>") 'jgp類型為"image/pjpeg"
10            Exit Function
11        End If
12        ' Gets the Size of the Image
13        intImageSize = InputImg.PostedFile.ContentLength
14        If intImageSize > MaxSize Then
15            Response.Write("<script>alert('圖片不得大于K')</script>")
16            Exit Function
17        End If
18        ' Reads the Image
19        ImageStream = InputImg.PostedFile.InputStream
20        Dim ImageContent(intImageSize) As Byte
21        Dim intStatus As Integer
22        intStatus = ImageStream.Read(ImageContent, 0, intImageSize)