图像存入数据库，取出

   ''把图读入单独的页面
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 'readimg
        If Not Page.IsPostBack Then
            Dim conn As New SqlConnection
            conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=eOffice;Data Source=."

            Dim strSql As String = "select * from EmpAllInfo where ID=" + Request.QueryString("ID").ToString() '这里假设获取id为2的图片
            Dim cmd As SqlCommand = New SqlCommand(strSql, conn)
            cmd.Connection.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader()
            reader.Read()
            Response.ContentType = "application/octet-stream"
            Response.BinaryWrite(reader("EmpPhoto"))
            Response.End()
            reader.Close()
        End If '在此处放置初始化页的用户代码
    End Sub

  
    'addimg

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '获得图象并把图象转换为byte()

用html中的上载文件控件，设定id值和iNPUT runat=server，id="UpPhoto"    type="file" name="UpPhoto"

        Dim upimg As HttpPostedFile = upPhoto.PostedFile

        Dim upPhotoLength As Integer = upimg.ContentLength
        Dim PhotoArray(upPhotoLength) As Byte
        Dim PhotoStream As Stream = upimg.InputStream
        PhotoStream.Read(PhotoArray, 0, upPhotoLength)

        '连接数据库
        Dim conn As New SqlConnection
        conn.ConnectionString = "server=(local);database=eOffice;integrated security=true;"
        '"Data Source=.;Database=eOffice;User Id=;Pwd= ";

        Dim strSql As String = "Insert into EmpAllInfo(EmpPhoto) values(@EmpPhoto)"
        Dim cmd As SqlCommand = New SqlCommand(strSql, conn)
        cmd.Parameters.Add("@EmpPhoto", SqlDbType.Image)
        cmd.Parameters("@EmpPhoto").Value = PhotoArray

        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        Response.Write("上载成功！！")

    End Sub
    ' 查看所有的图，帮定在datalist
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim conn As SqlConnection = New SqlConnection
        conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=eOffice;Data Source=."
        Dim strSql As String = "select * from EmpAllInfo"
        Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, conn)
        conn.Open()
        Dim dt As New DataTable
        da.Fill(dt)
        DataList1.DataSource = dt
        DataList1.DataBind()

    End Sub