文件上传

 If UploadFile.PostedFile.ContentLength = 0 Then
            ShowUpLoadFile.Text = "上传失败或文件不存在！"
        Else
            '获取扩展名
            Dim fileExt As String
            fileExt = System.IO.Path.GetExtension(UploadFile.PostedFile.FileName)

            If fileExt.ToLower = ".doc" Then

                Dim Temp() As String = Split(UploadFile.PostedFile.FileName, "\")
                Dim FileName As String = Temp(Temp.Length - 1)
                '保存文件
                UploadFile.PostedFile.SaveAs(Server.MapPath(".") & "\Files\" & FileName)
                '显示上传结果
                ShowUpLoadFile.Text = "文件上传成功！<br>上传文件名：" & FileName
            Else
                '显示出错提示
                ShowUpLoadFile.Text = "只接受 .jpg 的文件!"
            End If

        End If