如何 上传并 处理 图片

[jason20002001]

如何 上传并 处理 图片

[春天的气息]

上传文件看这个吧，

http://bbs.bbs180.com/topictag-26.aspx

[wuyq11]

参考
参考

[zzxap]

上传图片并修改其大小

//thefile是一个File Field HTML 控件

thefile.PostedFile.SaveAs(System.Web.HttpContext.Current.Server.MapPath("temp.png"));

MemoryStream MemStream=new MemoryStream();

System.Drawing.Image imgOutput =System.Drawing.Bitmap.FromFile(System.Web.HttpContext.Current.Server.MapPath("temp.png"));

//修改成80×80大小

System.Drawing.Image imgOutput2=imgOutput.GetThumbnailImage(80,80,null,IntPtr.Zero);

imgOutput2.Save(System.Web.HttpContext.Current.Server.MapPath("image.png"), ImageFormat.Png);

Response.Write(thefile.PostedFile.FileName);

Response.Write("Len:"+MemStream.Length.ToString());

imgOutput.Dispose();

imgOutput2.Dispose();

Response.Write("上传成功!");

Response.Write(System.Web.HttpContext.Current.Server.MapPath("image.png"));

-----------------------------------------

飘飘何所似？天地一沙鸥。

[zzxap]

http://blog.csdn.net/delphiseabird/archive/2005/01/05/234587.aspx

[w136712058]

Dim fileOK As Boolean = False
Dim fileExtention As String = String.Empty
Dim FileName As String = String.Empty
Dim PathStr As String = Server.MapPath("~/UpLoad/")
lbMessage.Visible = False
If fileUpLoad.HasFile Then
fileExtention = System.IO.Path.GetExtension(fileUpLoad.FileName).ToLower

Dim fileExtentionValid As String() = {".jpg", ".jpeg", ".png", ".bmp", ".gif"}
'简单验证文件格式
For i As Integer = 0 To fileExtentionValid.Length - 1
If fileExtention = fileExtentionValid(i) Then
fileOK = True
Exit For
End If
Next
Else
lbMessage.Text = "未选择文件!"
lbMessage.Visible = True
Exit Sub
End If

If fileOK Then
Try
FileName = Now.ToLocalTime.ToString.Replace(" ", "").Replace("-", "").Replace(":", "") + fileExtention
fileUpLoad.PostedFile.SaveAs(PathStr + FileName)
Session("FileName") = FileName
Catch ex As Exception
lbMessage.Text = "上传失败"
lbMessage.Visible = True
End Try
End If
'将上传的文件绑定到image控件上
imageLoad.ImageUrl = "~\Upload\" + FileName
imageLoad.ImageAlign = ImageAlign.NotSet
lbMessage.Text = "上传成功"
lbMessage.Visible = True

[li_guang_hua]

以前有做过,过了很长一段时间忘了,回去找找资料

[a260881071]

顶

[蓝海D鱼]

 Dim sfile As String = "file/mytx.gif"  
 Dim fileNames As String
        If Me.Filename.PostedFile.ContentLength > 0 Then
            fileNames = System.IO.Path.GetFileName(Request.Files.Item(0).FileName)
            sfile = "/" & Date.Now.ToString("yyMMddhhmmss") & Request.UserHostAddress.ToString & fileNames
            Try
                GetThumbNail(Filename.PostedFile.FileName, 100, 120, Filename.PostedFile.ContentType.ToString(), False, Filename.PostedFile.InputStream, sfile)
                '   Me.Filename.PostedFile.SaveAs(Server.MapPath("File") & sfile)
                Me.LabSc.Text = "上传文件" & fileNames & "成功"
            Catch ex As Exception
                Me.LabSc.Text = "上传文件" & fileNames & "失败" & ex.ToString
                Return
            End Try
            sfile = "file" & sfile
        End If

---------------------------------------------------------------------------------------------------------------------------

Private Sub GetThumbNail(ByVal strFileName, ByVal iWidth, ByVal iheight, ByVal strContentType, _
    ByVal blnGetFromFile, ByVal ImgStream, ByVal filename)
        Dim sfile As String = "file/mytx.gif"
        Dim oImg As Image
        If blnGetFromFile Then
            oImg = oImg.FromFile(strFileName)
        Else
            oImg = oImg.FromStream(ImgStream)
        End If
        oImg = oImg.GetThumbnailImage(iWidth, iheight, Nothing, (New IntPtr).Zero)

        Dim str As String = filename.ToString
        sfile = Date.Now.ToString("yyMMddhhmmss") & Request.UserHostAddress.ToString & strFileName
        Dim strGuid As String = str.Substring(0, str.LastIndexOf("."))
        strGuid = strGuid
        strGuid = strGuid & str.Substring(str.LastIndexOf("."))
        '保存到本地()
        oImg.Save(Server.MapPath("File") + "\" + strGuid)
    
    End Sub