Sub UploadButton1_Click(sender As Object, e As EventArgs)
Dim SavePath1 As String="C:\"
If UploadFile1.Value = "" Then
Error1.InnerHtml = "错误:您必须选择一个文件!"
Return
End If
If SaveasFile1.Value = "" Then
Error1.InnerHtml = "错误:必须输入一个文件名!"
Return
End If
If Not IsNothing(UploadFile1.PostedFile) Then
Dim filepath As String = Path.Combine(SavePath1, Path.GetFileName(SaveasFile1.Value))
Try
UploadFile1.PostedFile.SaveAs(filepath)
Error1.InnerHtml = "文件成功上载到服务器上的 " & filepath
Catch Exc As Exception
Error1.InnerHtml = "文件上载出错<b>" & filepath & "</b><br>" & Exc.ToString()
End Try
End If
End Sub
</script>
</head>
<body>