在图像控制中显示打包的图像

我想将图像上传到我的网站文件夹中的文件夹，然后将其保存到数据库的路径，并将上传的图像显示在控制图像中。当我执行我的页面时，图像被成功上传并保存到数据库，但它在图像控件上显示剂量。在图像控制中显示打包的图像

这是我的看法：

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 
<head runat="server"> 
    <title></title> 
</head> 
<body> 
    <form id="form1" runat="server"> 
    <div> 

    </div> 
    <asp:FileUpload ID="FileUpload1" runat="server" /> 
    <asp:Button ID="Button1" runat="server" Text="Button" /> 
    <asp:Image ID="Image1" runat="server" Height="91px" Width="145px" /> 
    </form> 

    <p> 
     &nbsp;</p> 

</body> 
</html>

，这是我的代码：

Imports System.Data.SqlClient 
Imports System.IO 
Imports System.Data 

Partial Class _Default 
    Inherits System.Web.UI.Page 
    Dim cn As SqlConnection 

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 
     If FileUpload1.PostedFile IsNot Nothing Then 
      Dim FileName As String = Path.GetFileName(FileUpload1.PostedFile.FileName) 

      'Save files to disk 
      FileUpload1.SaveAs(Server.MapPath("~/im/" & FileName)) 

      'Add Entry to DataBase 

      Dim strQuery As String = "insert into dbo.images" & " values(@FileName, @FilePath)" 
      Dim cmd As New SqlCommand(strQuery) 
      cmd.Parameters.AddWithValue("@FileName", FileName) 
      cmd.Parameters.AddWithValue("@FilePath", "~/im/" & FileName) 
      cmd.CommandType = CommandType.Text 
      cmd.Connection = cn 

      Try 
       cn.Open() 
       cmd.ExecuteNonQuery() 

      Catch ex As Exception 
       Response.Write(ex.Message) 
      Finally 

       cn.Close() 
       cn.Dispose() 
      End Try 
     End If 
    End Sub 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     cn = New SqlConnection("server=SEVO-PC;initial catalog=controle;integrated security=true") 
    End Sub 

    Protected Sub FileUpload1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileUpload1.Load 
     Image1.ImageUrl = "im/" & FileUpload1.FileName 

    End Sub 
End Class

来源

2013-05-13 Med Mohamed

试试下面的编辑

Protected Sub FileUpload1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileUpload1.Load 
     Image1.ImageUrl = Server.MapPath("/im/") & FileUpload1.FileName 

    End Sub

来源

2013-05-13 18:02:06 Marcianin

在图像控制中显示打包的图像

回答

相关问题