62,046
社区成员
发帖
与我相关
我的任务
分享
Protected Sub Page_Load(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack Then
//服务器路径
Dim path As String = Server.MapPath("~/UploadedImages/")
Dim fileOK As Boolean = False
If FileUpload1.HasFile Then
Dim fileExtension As String
fileExtension = System.IO.Path. _
GetExtension(FileUpload1.FileName).ToLower()
//允许上传的 格式文件
Dim allowedExtensions As String() = _
{".txt", ".doc", ".gif"}
For i As Integer = 0 To allowedExtensions.Length - 1
If fileExtension = allowedExtensions(i) Then
fileOK = True
End If
Next
If fileOK Then
Try
FileUpload1.PostedFile.SaveAs(path & _
FileUpload1.FileName)
Label1.Text = "上传成功!"
Catch ex As Exception
Label1.Text = "上传失败."
End Try
Else
Label1.Text = "不能上传次类型的文件."
End If
End If
End If
End Sub