.net fileupload上传控件【原创】

net fileupload上传控件【原创】[图]

发表时间：2007年11月27日 15时15分58秒        评论/阅读(0/0)

上传组件：【原创】
主要完成的功能：规定大小、文件扩展名、文件改名（改成系统时间定义的文件时间）、SaveAs方法保存文件。
改名的方法：
*DateTime.ToFileTimeUtc 方法。
*返回值：此DateTime 的采用操作系统文件时间格式的值。该文件时间不考虑本地时区进行偏移。文件时间：文件时间是一个表示 Windows 文件时间戳的 64 位有符号整数值。时间戳是自协调通用时间 (UTC) 公元 (C.E.) 1601 年 1 月 1 日午夜 12:00 以来所经过的时间以 100 毫微秒为间隔表示时的数字。ToFileTimeUtc 方法返回相对于公元 1601 (C.E.) 1 月 1 日午夜 12:00 的此 DateTime 的值，但是不会考虑本地时区对文件时间进行调整。
请按照下面的内容添加控件如下：
标准：FileUpLoad1
标准：Button1
标准：Label1,Label2
如下图所示：

修改属性：Button1-->text属性“上传”
Label1,Label2--->text属性设置为""（空）
双击Button1进入
Button1_Click事件
输入如下代码：
Dim savefolder As String = "\upimages\"
        Dim apppath As String = Request.PhysicalApplicationPath
        If (FileUpload1.HasFile) Then
            Dim filename As String = FileUpload1.FileName
            Dim filesize As Integer = FileUpload1.PostedFile.ContentLength
            Dim fileExtension As String = System.IO.Path.GetExtension(filename)
            If (fileExtension = ".jpg") Or (fileExtension = ".bmp") Or (fileExtension = ".gif") Then
                If (filesize < 510000) Then
                    Dim renfilename As String = System.DateTime.now.ToFileTimeUtc.toString()                    
                    Dim fullpath As String = apppath + savefolder + renfilename + fileExtension
                    FileUpload1.SaveAs(fullpath)
                    Label1.Text = "上传成功" + savepath + renfilename + fileExtension + "上传文件的大小为：" + Str(filesize / 1024) + "K"
                Else
                    Label1.Text = filename + "超过上传大小失败"
                End If
            Else
                Label1.Text = "您上传的文件后缀名" + fileExtension + "被禁止"
            End If
        Else
            Label1.Text = "上传失败！请确认：1.文件扩展名只允许：.jpg、.bmp、.gif。2.文件大小超出指定大小。"
        End If
程序解释为：
首先定义：1、dim savefolder想上传的文件夹名称具体格式:dim savefolder as string = "/文件夹名/"
2、dim appPath 系统文件的路径用request中获取应用程序物理路径的方法：Request.PhysicalApplicationPath 给appPath 变量赋值具体为：dim appPath as string = Request.PhysicalAppliactionPath。
3、 建立判断体：
如果获取文件if(FileUpLoad1.HasFile) then
定义filename变量用FileUpLoad1.FileName方法返回上传文件名具体格式：
dim filename as string = FileUpLoad1.FileName
定义fileExtension变量用System.IO.Path.GetExtension(filename)的方法返回上传文件的扩展名具体如下：
dim fileExtension as string = system.IO.Path.GetExtension(Filename)
定义filesize变量用FileUpLoad1.PostedFile.CountentLength的方法获取上传文件的大小。注意：filesize 是Integer类型。具体如下：
dim filesize as Integer = FileUpload1.postedFile.CountentLength
判断文件扩展名是否是符合规格（本程序只是只允许.jpg.bmp.gif的文件上传）
If(fileExtension = ".jpg")or(fileExtension = ".bmp")or(fileExtension = ".gif") then
判断文件大小(设置文件大小的限制数值：这里是5M因为是以位为单位的所以设置大小为500000)
If(filesize < 5000000) then
如果文件扩展名是.jpg.bmp.gif并且文件大小符合规定则会成功的保存文件，但是在保存文件前要设置文件保存的文件名:使用System.DateTime.now.ToFileTimeUtc.toString()的方法返回一个自定义的文件名（此产生的文件名是16位的数字）定义变量renfilename用来表示使用文件时间返回来的文件名：dim renfilename as string = System.DateTime.now.ToFileTimeUtc.toString()
最后使用SaveAs(完整的存储路径+文件名+扩展名)定义一个fullpath填充到SaveAs方法中SaveAs(FullPath)具体的FullPath为：完整的存储路径+文件名+扩展名。dim FullPath as string = appPath + savefloder + renfilename + fileExtension 最后执行FileUpLoad1.SaveAs(FullPath);如果成功上传给于Label1.Text提示：Label1.Text = "上传成功"
如果文件大小超出则给与Label1.Text 提示
else
Label1.Text = "超过上传大小失败"
end if
如果文件扩展名不符内容给与Label1.Text提示：
else
Label1.Text = “您上传的文件后缀名" + fileExtension + "被禁止"
end if
如果上传的文件为空则给与Label1.Text以示提示：
else
Label1.Text = ”上传失败！请确认：1.文件扩展名只允许：.jpg、.bmp、.gif。2.文件大小超出指定大小。"
end if
4、Ctrl + F5测试