当前位置导航:炫浪网>>网络学院>>编程开发>>Visual Basic教程

VB.NET上传图片并在DataGrid中显示

  
  一、程序功能
  当上传图片大小超过8K或格式不符时禁止上传,上传通过之后,用DataGrid显示上传的图片
  
  二、建立数据库
  在MSSQL的NorthWind数据库中新建一个users表,表设计如下:
  
 

  三、窗体设计:
  1、新建ASP.NET Web应用程序,命名为DataGrid3,保存路径为http://192.168.0.1/DataGrid3(注:我机子上的网站的IP是192.168.0.1的主目录是D:\web文件夹)然后点击确定。
  
  2、在解决方案资源管理器窗口中,将WebForm1.aspx重命名为UpPicture.aspx,然后从工具箱中向窗体添加一个Label控件、一个BUtton按钮.然后从一个HTML工具箱中向窗体添加一个File field控件窗体界面如下:
  
  3、在解决方案资源管理器窗口中右击项目,选择添加-新项-Web窗体,名称设为ViewPicture.aspx。然后在打开的窗体中添加一个DataGrid控件。
  
  4、右击DataGrid控件,再点击下方的“属性生成器”,打开“DataGrid属性窗口”。在“DataGrid属性窗口”点击“列”,取消“在运行时自动创建列”前的对勾,向选定的列中添加一个绑定列,在页眉文本中输入“序号”,在数据字段中输入ID。再向选定的列中添加一个绑定列,在页眉文本中输入“头像”,在数据字段中输入headimg。然后点击确定。
  
  窗体界面如下;
  
 

  

  四、代码设计:
  1、UpPicture.aspx
  
  Imports System.Data.SqlClient
  Public Class WebForm1
  Inherits System.Web.UI.Page
  '窗体代码省略
  '上传图片
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  
  Dim img As String
  '定义postedfile文件是储存用户上载的文件
  Dim postedfile As HttpPostedFile = File1.PostedFile
  '定义一个变量储存用户上载文件的大小
  Dim intImgSize As Int32
  '获取用户上传文件的大小,
  intImgSize = postedfile.ContentLength
  
  '如果要上传的文件不为空
  If intImgSize <> 0 Then
  
  '如果大于8K, 则禁止上传
  If intImgSize > 8000 Then
  Label1.Text = "图片太大"
  Exit Sub
  End If
  
  '定义一个变量储存用户上传图片的文件类型
  Dim strImgType As String = postedfile.ContentType
  
  '只接受.gif?http://www.xvna.com格式的图片
  Dim filesplit() As String = Split(strImgType, "/")
  strImgType = filesplit(filesplit.Length - 1)
  If strImgType <> "gif" Then
  Label1.Text = "图片格式不对"
  Exit Sub
  End If
  
  '储存要上传的文件的整个路径
  filesplit = Split(postedfile.FileName, "\")
  '取得上传文件的文件名
  Dim filename As String = filesplit(filesplit.Length - 1)
  '将上传的图片保存到服务器当前目录的headimg文件夹中
  postedfile.SaveAs(Server.MapPath("headimg") & "\" & filename)
  '定义一个变量储存服务器上当前上传图片的路径
  Dim imgpath As String = "headimg\" & filename
  img = ""
  
  '将图片储存到数据库
  Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
  scon.Open()
  Dim scom As New SqlCommand("insert into users values (@img)", scon)
  scom.Parameters.Add("@img", SqlDbType.VarChar).Value = img
  Try
  scom.ExecuteNonQuery()
  Catch ex As Exception
  End Try
  scon.Close()
  '转到查看图片窗口
  Response.Redirect("ViewPicture.aspx")
  End If
  End Sub
  End Class
  
  2、ViewPicture.aspx代码:
  
  Imports System.Data.SqlClient
  Public Class ViewPicture
  Inherits System.Web.UI.Page
  ‘窗体代码省略
  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
  Dim sda As New SqlDataAdapter("select * from users", scon)
  Dim ds As New DataSet
  Try
  sda.Fill(ds)
  Catch ex As Exception
  End Try
  DataGrid1.DataSource = ds
  DataGrid1.DataBind()
  End Sub
  End Class
相关内容
赞助商链接