这个样子为什么不能把图片写在Image控件里呢?
这个样子为什么不能把图片写在Image控件里呢?
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nID As Int32
Dim sqlStr As String
'读取记录的ID号
nID = Request.QueryString("ID")
If nID >= 0 Then
sqlStr = "SELECT ResidenceID, Name, Area, Address, GroundArea, BuildArea, UseArea, StreetArea, VirescenceRate, Developer, StartDate, Builder, FinishDate, HandoverDate,ResideDate, PlanePic, Buildings, Details, Houses, PeopleNumber, Families, Memo FROM FC_Residence WHERE ResidenceID = " & nID
dataShow(sqlStr)
End If
ImgPlanePic.ImageUrl = "xqzl.aspx?ID=" & nID
End Sub
Sub dataShow(ByVal str As String)
'使用DataReader提取一张图片
Dim Cnn As New SqlConnection(ConfigurationSettings.AppSettings("cnnString"))
Dim Cmd As New SqlCommand(str, Cnn)
Dim Drd As SqlDataReader
Try
Cnn.Open()
Drd = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
Drd.Read()
txtname.Text=drd.Item("name")
Response.ContentType = "image/pjpeg"
If Not IsDBNull(Drd.Item("PlanePic")) Then
Response.BinaryWrite(Drd.Item("PlanePic"))
Else
Response.WriteFile(ResolveUrl(TemplateSourceDirectory & "/images/default.jpg"))
End If
Catch ex As Exception
Response.Write("错误原因:" + ex.ToString())
Finally
If Cnn.State = ConnectionState.Open Then
Cnn.Close()
End If
End Try
End Sub
注意;已经使用了 ImgPlanePic.ImageUrl = "xqzl.aspx?ID=" & nID