FileUpload控件实现文件上传

FileUpload控件是ASP.Net2.0自带的一个上传控件,但是上传代码还是要我们自己写,下面就打造一个上传的网页,其中不足之处各位指出.

1.将FileUpload控件拖动到页面上,添加一个button控件,一个label控件

---------button.text=上传

2.对button编写程序，实现文件上传

        If FileUpload1.HasFile Then
            Try
                FileUpload1.SaveAs("E:\webdesign-dwzhang\temp\upload\upload\" & FileUpload1.FileName)

            Catch ex As Exception
                Label1.Text = "上传失败，原因：" & ex.Message

            End Try
            Label1.Text = "上传成功" & FileUpload1.PostedFile.FileName
        Else
            Label1.Text = "请选择一幅图片或文件，然后单击上传按钮！"
        End If
3.文件实现上传功能了后，文件名还是原来的文件名，我们希望改成现在流行的系统时间命名的文件名

   定义取得系统时间函数:

        Dim saveasname As String
        Dim y, mon, d, h, min, s As String
        y = Year(Now())
        mon = Month(Now())
        d = Day(Now())
        h = Hour(Now())
        min = Minute(Now())
        s = Second(Now())
        '取得当前时间的年, 月, 日, 时, 分, 秒

        saveasname = y + mon + d + h + min + s

 

4.这样文件上传以后发现修改文件名的目的达到了，但是，新的问题出现了，文件的扩展名不见了。编写取得文件扩展名函数。

Dim fileext
  fileext = Trim(Right(FileUpload1.FileName, Len(FileUpload1.FileName) - InStrRev(FileUpload1.FileName, ".")))

5.上传功能完成,完整代码如下:

  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SaveAsName As String
        Dim y, mon, d, h, min, s As String
        y = Year(Now())
        mon = Month(Now())
        d = Day(Now())
        h = Hour(Now())
        min = Minute(Now())
        s = Second(Now())
        '取得当前时间的年, 月, 日, 时, 分, 秒

        SaveAsName = y + mon + d + h + min + s

 

        If FileUpload1.HasFile Then
            Dim FileExt

            FileExt = Trim(Right(FileUpload1.FileName, Len(FileUpload1.FileName) - InStrRev(FileUpload1.FileName, ".")))
            'InStrRev 返回某一字符串从另一字符串的右侧开始算起第一次出现的位置。
            'Len返回一个包含字符串中的字符数或存储某个变量所需的名义字节数的整数。
            'Right返回一个字符串，其中包含从某个字符串右端开始的指定数量的字符。
            'Trim返回一个字符串，该字符串包含指定字符串不带前导空格 (LTrim)、不带尾随空格 (RTrim) 或同时不带前导和尾随空格 (Trim) 的副本。

            Try
                FileUpload1.SaveAs("E:\webdesign-dwzhang\temp\upload\upload\" & SaveAsName & "." & FileExt)

            Catch ex As Exception
                Label1.Text = "上传失败，原因：" & ex.Message

            End Try
            Label1.Text = "上传成功" & FileUpload1.PostedFile.FileName
        Else
            Label1.Text = "请选择一幅图片或文件，然后单击上传按钮！"
        End If
    End Sub

 由于自己新手,不足之处各位指导一下!