📄 upload.aspx
字号:
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
Sub Enter_Click(sender As Object, e As EventArgs)
Dim Exc As Exception '定义错误变量，用来捕获错误信息
Try
Dim filename,filepath As String
filename= Path.GetFileName(uploadfile.PostedFile.FileName) '获取上传文件名称
'filepath是服务器端保存上传文件的完整路径
filepath=Server.Mappath("upload") & "\" & filename
uploadfile.PostedFile.SaveAs(filepath) '保存上传文件到upload文件夹中
Response.Redirect("index.aspx")
Catch Exc
message.Text = "保存文件时出错<br>" & Exc.ToString()
End Try
End Sub
</script>
<html>
<body>
<h4 align="center">上传文件</h4>
<form enctype="multipart/form-data" runat="server">
选择文件：<input id="uploadfile" type="file" runat="server">
<br><input type="button" id="enter" value="提交" OnServerClick="Enter_Click" runat="server">
<asp:label id="message" runat="server"/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -