利用ASP.NET設計FTP檔案上傳(asp.net)

來源:互聯網
上載者:User
asp.net|上傳|設計|asp.net|上傳 這個版本和純前臺的上傳類似是一樣的功能,只是將前後臺的代碼給分開了

.aspx
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm6.aspx.vb" Inherits="MyData.WebForm6"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm6</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<ASP:panel id="FileUploadForm" visible="true" runat="server">
<FORM id="Form2" method="post" encType="multipart/from-data" runat="server">
<P><INPUT id="loFile" type="file" name="loFile" runat="server"></P>
<P>
<asp:TextBox id="dir" runat="server"></asp:TextBox><BR><!--可以指定上傳路徑-->
<asp:Button id="Button1" runat="server" Text="Button"></asp:Button><BR>
</P>
</FORM>
</ASP:panel>
<ASP:panel id="AnswerMsg" visible="false" runat="server">
<ASP:label id="FileName" runat="server"></ASP:label>
<BR>
<ASP:label id="FileLength" runat="server"></ASP:label>
<BR>
<ASP:label id="FileType" runat="server"></ASP:label>
<BR>
</ASP:panel>
</body>
</HTML>

.vb
Imports System.IO
Imports System.Data

Public Class WebForm6
Inherits System.Web.UI.Page

#Region " Web フォーム デザイナで產生されたコード "

'この呼び出しは Web フォーム デザイナで必要です。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents FileUploadForm As System.Web.UI.WebControls.Panel
Protected WithEvents FileName As System.Web.UI.WebControls.Label
Protected WithEvents FileLength As System.Web.UI.WebControls.Label
Protected WithEvents FileType As System.Web.UI.WebControls.Label
Protected WithEvents AnswerMsg As System.Web.UI.WebControls.Panel
Protected WithEvents loFile As System.Web.UI.HtmlControls.HtmlInputFile
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents dir As System.Web.UI.WebControls.TextBox

'メモ : 次のプレースホルダ宣言は Web フォーム デザイナで必要です。
'削除および移動しないでください。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
' CODEGEN: このメソッド呼び出しは Web フォーム デザイナで必要です。
' コード エディタを使って変更しないでください。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' ページを初期化するユーザー コードをここに挿入します。
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lstrFileName As String
Dim lstrFileNamePath As String
Dim lstrFileFolder As String

If dir.Text <> "" Then '如果上傳目録為空,就使用" c:\ "作爲預設上傳目録
lstrFileFolder = dir.Text '獲得上傳到服務器的目録名稱
Else
lstrFileFolder = "c:\"
End If

Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
Dim postedFile As System.Web.HttpPostedFile = files(0)

lstrFileName = System.IO.Path.GetFileName(postedFile.FileName) '獲得檔案名稱稱
'註: loFile.PostedFile.FileName 返回的是通過檔案對話框選擇的檔案名稱, 這之中包含了檔案的目録資訊

lstrFileName = Path.GetFileName(lstrFileName) '去掉目録資訊,返迴文件名稱

If (Not Directory.Exists(lstrFileFolder)) Then ' 判斷上傳目録是否存在,不存在就建立
Directory.CreateDirectory(lstrFileFolder)
End If

lstrFileNamePath = lstrFileFolder & lstrFileName '上傳檔案到服務器
loFile.PostedFile.SaveAs(lstrFileNamePath) '得到上傳目録及檔案名稱

' 獲得並顯示上傳檔案的屬性



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。