程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> .NET網頁編程 >> .NET實例教程 >> 用ASP.NET2.0在數據庫中存儲二進制文件(二)

用ASP.NET2.0在數據庫中存儲二進制文件(二)

編輯:.NET實例教程

五、上傳圖像並使用ASP.Net 2.0數據源控件代碼存儲二進制數據

  盡管ADO.NET方法工作在一個 ASP.NET 2.0應用程序環境下,但是,你還能夠使用ASP.NET 2.0的數據源控件來把二進制數據存儲到一個數據庫,這不要求你編寫ADO.Net代碼。在這個演示程序中所使用的SqlDataSource控件包含了 一個InsertCommand,以及相應於Title,MIMEType和ImageData值的參數:


<ASP:SqlDataSource ID="UploadPictureDataSource" runat="server" 
ConnectionString="..."
InsertCommand="INSERT INTO [Pictures] ([Title], [MIMEType], [ImageData]) VALUES (@Title, @MIMEType, @ImageData)">

<InsertParameters>
<ASP:Parameter Name="Title" Type="String" />
<ASP:Parameter Name="MIMEType" Type="String" />
<ASP:Parameter Name="ImageData" />
</InsertParameters>
</ASP:SqlDataSource> 


  注意,在此,ImageData參數並沒有指定一個類型。如果你試圖使用GUI向導來構建SqlDataSource的語法,那麼,它 將可能給它指定Type="Object",然而,這個Type="Object"將會產生一個sql_variant類型的參數。然而,該 sql_variants類型不能用來存儲圖像或varbinary(MAX)數據類型,因為該sql_variant的內在數據大小不能超過8,000 個字節。(如果你試圖使用Type="Object",然後試圖保存超過8,000字節大小的二進制數據,那麼,系統將拋出一個異常並顯示消息 "Parameter '@ImageData' exceeds the size limit for the sql_variant datatype";如果你試圖添加不到8,000字節大小的二進制數據,那麼,該異常將顯示消息"Implicit conversion from data type sql_variant to varbinary(max) is not allowed")。

  另外, DetailsView控件包含了兩個TemplateField。其中,一個TemplateFIEld中使用一個TextBox控件來顯示標題欄;另 一個使用一個FileUpload控件來表示ImageData欄。最終結果是得到一個看上去類似於在"上傳圖像並使用ADO.Net代碼存儲二進制數據 "一節中的用戶接口。當點擊DetailsVIEw的"Insert"按鈕時,它的Inserting事件激發,這時二進制數據必須從 FileUpload控件中獲取,讀到一個字節數組中,並且賦值給適當的參數:

Protected Sub UploadPictureUI_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsVIEwInsertEventArgs) Handles UploadPictureUI.ItemInserting
 '引用FileUpload控件
 Dim UploadedFile As FileUpload = CType(UploadPictureUI.FindControl("UploadedFile"), FileUpload)

 '確保已經成功上傳一個文件
 If UploadedFile.PostedFile Is Nothing OrElse String.IsNullOrEmpty(UploadedFile.PostedFile.FileName) OrElse UploadedFile.PostedFile.InputStream Is Nothing Then
  ...顯示錯誤信息...
  e.Cancel = True
 Exit Sub
End If

'確保我們在處理一個JPG或GIF文件
Dim extension As String = Path.GetExtension(UploadedFile.PostedFile.FileName).ToLower()
Dim MIMEType As String = Nothing
Select Case extension
 Case ".gif"
  MIMEType = "image/gif"
 Case ".jpg", ".jpeg", ".jpe"
  MIMEType = "image/jpeg"
 Case ".png"
  MIMEType = "image/png"
 Case Else
  '無效文件類型上載
  ... 顯示錯誤信息...
  e.Cancel = True
  Exit Sub
End Select

"指定MIMEType和ImageData參數的值
e.Values("MIMEType") = MIMEType
'把FileUpload的InputStream加載進字節數組中
Dim imageBytes(UploadedFile.PostedFile.InputStream.Length) As Byte
UploadedFile.PostedFile.InputStream.Read(imageBytes, 0, imageBytes.Length)
 e.Values("ImageData") = imageBytes
End Sub 

  就象前面的"Insert"按鈕的Click事件處理器一樣,該DetailsView的Inserting事件處理器也執行相同的邏 輯-只有一些小小的語法差別。首先,既然FileUpload控件位於一個模板內,所以,必須使用FindControl("controlID")方法 以編程方式來引用它。一旦對它進行了引用,即對之進行相同的檢查以確保一個文件被成功上傳,並且允許相應的擴展名。對於DetailsView的 Inserting事件處理器存在一個微小的區別是,如果出現了錯誤,那麼,我們需要通知該DetailsVIEw停止相應的插入工作-這是通過把 e.Cancel屬性設置為True實現的

檢查完之後,MIMEType和ImageData參數將被使用e.Values("parameterName")=value語法進行賦值。就象在前面的ADO.Net示例中一樣,首先把該二進制數據讀取到一個字節數組中,然後把該字節數組賦值給該參數。

  六、 顯示二進制內容

  無論你使用什麼技術把數據存儲在數據庫中,為了檢索並顯示二進制數據,我們需要創建一 個新的ASP.Net頁面。這個名字為ShowPicture.aspx的頁面,將通過querystring把一個PictureID傳遞給它,並且從 指定的產品的ImageData域中返回該二進制數據。一旦完成,通過訪問/ShowPicture.ASPx?PictureID=picutreID 地址即可看到一個特定的圖片。因此,為了把一個圖像顯示在一個web頁面上,我們可以使用一個圖像控件並把它的ImageUrl屬性設置成適當的URL。

   注意,這個ShowPicture.aspx在其.ASPx頁面中並沒有包括任何Html標記。在code-behind類的Page_Load事件處 理器中,將使用ADO.Net代碼從數據庫中檢索指定的Pictures行的MIMEType和ImageData。然後,該頁面的 ContentType被設置為MIMEType域的值,並且使用Response.BinaryWrite(ImageData)輸出該二進制數據:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 Dim PictureID As Integer = Convert.ToInt32(Request.QueryString("PictureID"))

 '與數據庫連接並且返回指定的圖片的圖像內容和MIME類型
 Using myConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("ImageGalleryConnectionString").ConnectionString)

 Const SQL As String = "SELECT [MIMEType], [ImageData] FROM [Pictures] WHERE [PictureID] = @PictureID"
 Dim myCommand As New SqlCommand(SQL, myConnection)
 myCommand.Parameters.AddWithValue("@PictureID", PictureID)

 myConnection.Open()
 Dim myReader As SqlDataReader = myCommand.ExecuteReader

 If myReader.Read Then
  Response.ContentType = myReader("MIMEType").ToString()
  Response.BinaryWrite(myReader("ImageData"))
 End If

 myReader.Close()
 myConnection.Close()
 End Using
End Sub

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved