用asp.net2.0在数据库中存储二进制文件(一)(2)

2008-02-22 09:43:57来源：互联网阅读 ()

Protected Sub btnInsert_Click(ByVal sender As Object， ByVal e As System.EventArgs) Handles btnInsert.Click
'确保一个文件被成功上传
If UploadedFile.PostedFile Is Nothing OrElse String.IsNullOrEmpty(UploadedFile.PostedFile.FileName) OrElse UploadedFile.PostedFile.InputStream Is Nothing Then
　... 显示错误信息...
　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
　　'无效的文件类型上传
　　... 显示错误信息...
　　Exit Sub
End Select

'与数据库连接并且把一条新记录插入到Products表格中
Using myConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("ImageGalleryConnectionString").ConnectionString)

Const SQL As String = "INSERT INTO [Pictures] ([Title]， [MIMEType]， [ImageData]) VALUES (@Title， @MIMEType， @ImageData)"
Dim myCommand As New SqlCommand(SQL， myConnection)
myCommand.Parameters.AddWithValue("@Title"， PictureTitle.Text.Trim())
myCommand.Parameters.AddWithValue("@MIMEType"， MIMEType)

'把FileUpload控件的InputStream加载到字节数组中
Dim imageBytes(UploadedFile.PostedFile.InputStream.Length) As Byte
UploadedFile.PostedFile.InputStream.Read(imageBytes， 0， imageBytes.Length)
　myCommand.Parameters.AddWithValue("@ImageData"， imageBytes)
　myConnection.Open()
　myCommand.ExecuteNonQuery()
　myConnection.Close()
End Using
End Sub

　　在此，这个事件处理器首先确保已经上传一个文件。然后，它根据被上传的文件的扩展名来决定MIME类型。

　　上面最值得注意的是那些设置@ImageData参数的代码部分。首先，创建一个名为imageBytes的字节数组并且使其长度为被上传的文件相应的 InputStream。然后，从InputStream中使用Read方法把二进制内容填入这个字节数组。注意，正是这个字节数组被指定为 @ImageData的值。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有