在DATAGRID中显示图片

 

*****************************************showimg.aspx.vb代码********************************

Imports System.Data

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Web.UI.HtmlControls

Imports System.IO

Imports System.Data.SqlClient

Public Class showimg

    Inherits System.Web.UI.Page

    Protected WithEvents Label1 As System.Web.UI.WebControls.Label

    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

    Protected WithEvents UploadButton As System.Web.UI.WebControls.Button

    Protected WithEvents strStatus As System.Web.UI.WebControls.Label

    Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile

    Public fid As Integer               
    Public aid As String                  
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        mfbind()                         

    End Sub

Private Sub mfbind()                      
        Dim strsql As String

        Dim cmd As SqlCommand

        Dim ds As DataSet

        Dim conn As SqlConnection

        Dim ada As SqlDataAdapter

        Dim dr As SqlDataReader

        conn = New SqlConnection("server=Localhost;user id=sa;pwd=tu;database=SLPRSN")

        strsql = "Select * from Sample_image"

        conn.Open()

        cmd = New SqlCommand(strsql, conn)

        dr = cmd.ExecuteReader()

        DataGrid1.DataSource = dr

        DataGrid1.DataBind()

        conn.Close()

End Sub

Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound

        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then

            fid = CInt(DataGrid1.DataKeys(e.Item.ItemIndex).ToString().Trim())

            aid = fid                     
            Dim aa As System.Web.UI.HtmlControls.HtmlImage = e.Item.FindControl("img1")

            aa.Src = "getimg.aspx?fid=" + aid + "&width=150&height=150"
        End If

    End Sub

End Class

************************getimg.aspx.vb事件代码*********************************

Imports System.Data

Imports System.Data.SqlClient

Public Class getimg

Inherits System.Web.UI.Page

    Private objcmd As SqlCommand

    Private objconn As SqlConnection

    Private objdr As SqlDataReader

    Private StrSql As String

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        objconn = New SqlConnection("server=Localhost;user id=sa;pwd=tu;database=SLPRSN")

        StrSql = "Select * from Sample_image where imageID=" & Request("fID")

        objconn.Open()

        objcmd = New SqlCommand(StrSql, objconn)

        objdr = objcmd.ExecuteReader()

        If objdr.Read() Then

            Response.BinaryWrite(objdr(5))   

        End If

        objconn.Close()

    End Sub

End Class

[注：其getimg.aspx中无须添加任何控件，即可]