asp.net上传图片

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格式的图片
  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 = "<img src=" & imgpath & " border=0>"

  '将图片储存到数据库
  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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值