上传图片并生成缩略图(ASP.NET+VB.NET)

原创 2004年10月08日 19:55:00

    Sub upimages()
        Dim iname As String
        If Not (fileup.PostedFile Is Nothing) Then
            Dim namestr1 As String = (fileup.PostedFile.FileName)
            If LCase(fileup.PostedFile.ContentType.ToString()) = "image/pjpeg" Or LCase(fileup.PostedFile.ContentType.ToString()) = "image/jpg" Then
              Dim j As Integer = namestr1.LastIndexOf(".")
              Dim newname As String = namestr1.Substring(j) '圖片得到後輟名
              iname = CStr(Now.ToFileTimeUtc) '隨機的文件名(不會重復)
              Dim newnames As String = iname + newname '重新組合文件名
              Dim i As Integer = namestr1.LastIndexOf("/") + 1
              Dim namestr As String = namestr1.Substring(i)
              fileup.PostedFile.SaveAs(Server.MapPath(imagelocal) + "/" + newnames) '保存文件到imagelocal文件夾
              '生成縮略圖()
              Dim image, sImage As System.Drawing.Image
              image = System.Drawing.Image.FromStream(fileup.PostedFile.InputStream)'得到原图
              Dim width As Decimal = image.Width过且过'得到原图的宽
              Dim height As Decimal = image.Height'得到原图的高
              Dim newwidth, newheight As Integer
              '设置缩略图的高和宽
              If (width > height) Then
                  newwidth = 150
                  newheight = CInt(height / width * 150)
              Else
                   newheight = 150
                   newwidth = CInt(width / height * 150)
              End If
              sImage = image.GetThumbnailImage(newwidth, newheight, Nothing, IntPtr.Zero)
                Dim x As Integer = sImage.Width / 2 - 30
                Dim y As Integer = sImage.Height - 20
               Dim output As Bitmap = New Bitmap(sImage)
               Dim g As Graphics = Graphics.FromImage(output)
               '    給縮略圖加上版權信息()
                Dim fonts As New Font("Courier New", 9)
                g.DrawString("版權信息", fonts, New SolidBrush(Color.Red), x, y)
               output.Save(Server.MapPath("Simagelocal") + "/s_" + newnames, System.Drawing.Imaging.ImageFormat.Jpeg) 
              '保存縮略圖到Simagelocal文件夾
                Image1.Visible=true;
               Image1.ImageUrl = "Simagelocal" + "/s_" + newnames

            Else
               Label1.Text = "請選擇jpg類型的圖片"

            End If
        End If
    End Sub

php上传图片自动生成缩略图方法函数

$file_name='C:\AppServ\www\_MG_9888.jpg'; $file_new='C:\AppServ\www\bbbb.jpg'; scal_pic($file_name,...
  • muziduoxi
  • muziduoxi
  • 2013年11月20日 15:09
  • 3518

thinkPHP上传图片以及生成缩略图

记录一下最thinkPHP上传图片的方法(Upload)和生成缩略图(Image)的方法.html页面form中必须加enctype=”multipart/form-data” ...
  • qq_22793991
  • qq_22793991
  • 2016年12月17日 17:53
  • 313

PHP上传图片并生成缩略图_1

//is_uploaded_file 判断文件是否是通过HTTP POST上传的 //move_uploaded_file 将上传文件移至指定目录...
  • painstaker
  • painstaker
  • 2010年09月07日 15:58
  • 4652

java 上传图片 生成缩略图

一下3个是俺在网上找的,都没有验证过,过些日子可能会用,到时候再验证一下。不过看看问题应该不大。----------------------------------------------------...
  • zhouzilong502086525
  • zhouzilong502086525
  • 2011年02月28日 19:56
  • 5112

java生成上传图片的缩略图

# public class ToImg { # public static void main(String[] args) throws Exception { # ...
  • gundumw100
  • gundumw100
  • 2017年04月10日 17:35
  • 702

thinkphp3.23 文件上传并生产缩略图

1,thinkphp3.23中文件上传和图片处理是分开的,如果文件上传要么用之前的版本uploadfile类,但是thinkphp3.23没有这个类,可以从网上下载或者从低版本下载可以,本文主要讲解通...
  • u011531353
  • u011531353
  • 2015年08月14日 15:14
  • 1062

ThinkPHP框架九上传文件和生成缩略图

文件上传 用到的知识: 1.文件上传的时候要设置表单的enctype属性 如下: '2\$_FILE[名字][]用来接收文件的信息 第二维的字段 name size error type tmp_...
  • woshinannan741
  • woshinannan741
  • 2015年12月08日 14:42
  • 2452

php图片上传并生成缩略图

在生成图片的缩略图,比如宽和高的比例时,可以自由修改。这个类可用于配合前段的iframe表单元素,生成无刷新的上传图片,并在前段指定区域立即显示的效果。其实还可以再加一个属性,把任何服务器错误都替换成...
  • Free_Program_1314
  • Free_Program_1314
  • 2014年11月30日 16:29
  • 2309

C#上传图片,同时生成缩略图

C#代码
  • ful1021
  • ful1021
  • 2014年08月14日 11:09
  • 714

上传图片保存并生成缩略图

过程讲解:一个springMvc的上传文件框架 1.上传文件,后台接受文件对象 2.正常将文件上传保存到服务器 3.将图片文件通过工具生成缩略图...
  • xiaoyu19910321
  • xiaoyu19910321
  • 2017年05月25日 23:36
  • 1556
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:上传图片并生成缩略图(ASP.NET+VB.NET)
举报原因:
原因补充:

(最多只允许输入30个字)