数据库中Image字段存储读取数据

<tr>
                                            <td class="td_left">选择文件
                                            </td>
                                            <td class="TD_BG" colspan="3"><INPUT id="Image" type="file" size="60" name="Image" runat="server" class="easytext" onpropertychange='JavaScript:showImg();' onblur ="JavaScript:IsPic();">&nbsp; 
                                                <!--    <asp:button id="btnview" runat="server" Width="72px" Text="查看图片" cssclass="button"></asp:button> //--></td>
                                        </tr>
                                        <tr>
                                            <TD class="td_left">预览图片</TD>
                                            <td class="TD_BG" colspan="3">     
                                                    <asp:image id="Picture" Runat="server" Visible="False"></asp:image>
                                            </td>
                                        </tr>

'//.VB文件

   '//获取图片信息
    Private Sub ReadPicture()
        If Image.PostedFile.FileName <> "" Then
            Dim intImageSize As Int64
            Dim strImageType As String
            Dim ImageStream As Stream

            intImageSize = Image.PostedFile.ContentLength
            strImageType = Image.PostedFile.ContentType
            ImageStream = Image.PostedFile.InputStream

            Dim ImageContent(intImageSize) As Byte
            Dim intStatus As Integer
            intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
            Session("Type") = strImageType
            Session("Picture") = ImageContent
            Session("IsRead") = "YES"
        Else
            Session("IsRead") = "NO"
            Session("Type") = "NULL"
            Session("Picture") = "NULL"
        End If
    End Sub


'//传值到实体
     If Image.PostedFile.FileName.Trim <> "" Then
                ReadPicture()
            End If
            If (Session("IsRead") = "YES") Then
                .Item(myEntity.USERPRODUCT_IMAGE) = Session("Picture") 'image ,
                .Item(myEntity.USERPRODUCT_IMAGETYPE) = Session("Type")
            Else
                .Item(myEntity.USERPRODUCT_IMAGE) = DBNull.Value
                .Item(myEntity.USERPRODUCT_IMAGETYPE) = DBNull.Value
            End If

 '预览图片
    Private Sub btnview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnview.Click
        If Image.PostedFile.FileName.Trim <> "" Then
            ReadPicture()
            Picture.Visible = True
            Picture.ImageUrl = "ImageView.aspx"
        End If
    End Sub

'/// ImageView.aspx.VB文件
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Response.ContentType = Session("Type")
        Response.BinaryWrite(Session("Picture"))
        Response.Flush()
    End Sub