62,041
社区成员
发帖
与我相关
我的任务
分享这个样子为什么不能把图片写在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
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
...全文
请发表友善的回复…
发表回复
ninesong 2003-10-21
- 打赏
- 举报
up
ninesong 2003-10-21
- 打赏
- 举报
但是我这个页面是动态的啊？！
icyer 2003-10-21
- 打赏
- 举报
你需要在xqzl.aspx中将图片数据显示出来
gujie 2003-10-21
- 打赏
- 举报
路径
ImgPlanePic.ImageUrl = "xqzl.aspx?ID=" & nID
这样写行吗？
ImgPlanePic.ImageUrl = "xqzl.aspx?ID=" & nID
这样写行吗？
ninesong 2003-10-21
- 打赏
- 举报
???
ninesong 2003-10-21
- 打赏
- 举报
有没有除了哪个GRID外，
图片显示在IMAG中的例子啊？！
图片显示在IMAG中的例子啊？！
ninesong 2003-10-20
- 打赏
- 举报
是xqzl.aspx.vb的代码
cpp2017 2003-10-20
- 打赏
- 举报
上面是xqzl.aspx的代码吗?
ninesong 2003-10-20
- 打赏
- 举报
up
