📄 uploadfile.aspx
字号:
<%@ Import Namespace="System.IO" %>
<html>
<SCRIPT LANGUAGE="VB" RUNAT="SERVER">
Sub UploadFile_Clicked(Sender as Object, e as EventArgs)
Dim lstrFileName as string
Dim lstrFileNamePath as string
Dim lstrFileFolder as string
lstrFileFolder = "C:\TempUploadedFiles\"
'Gets the file name
lstrFileName = loFile.PostedFile.FileName
lstrFileName = File.GetFileNameFromPath(lstrFileName)
'Creates the folder if it does not exists
If (not Directory.DirectoryExists(lstrFileFolder)) Then
Directory.CreateDirectories(lstrFileFolder)
End If
'Save Uploaded file to server
lstrFileNamePath = lstrFileFolder & lstrFileName
loFile.PostedFile.SaveAs(lstrFileNamePath)
'Sets the answer
FileName.Text = lstrFileName
FileType.Text = loFile.PostedFile.ContentType
FileLength.Text = cStr(loFile.PostedFile.ContentLength)
FileUploadForm.visible = false
AnswerMsg.visible = true
End sub
</SCRIPT>
<BODY>
<ASP:panel id="FileUploadForm" visible="true" runat="server">
<form action="UploadFile.aspx" method="post" enctype="multipart/form-data" runat="server">
<h1>ASP.NET File Upload Example</h1>
Select the File to Upload to the Server:
<input id="loFile" type="file" runat="server"><br>
<input type="submit" value="Upload" OnServerClick="UploadFile_Clicked" runat="server">
<br>
</form>
</ASP:panel>
<ASP:panel id="AnswerMsg" visible="false" runat="server">
Thanks your file <ASP:label id="FileName" runat="server" /> has been uploaded<BR>
We received <ASP:label id="FileLength" runat="server" /> bytes of the type <ASP:label id="FileType" runat="server" /><br>
</ASP:panel>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -