利用ASP.NET设计FTP文件上传(asp.net)
点击次数：27 次 发布日期：2008-11-26 23:51:06 作者：源代码网
|
源代码网推荐 源代码网推荐.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) ""得到上傳目録及文件名称 源代码网推荐 源代码网推荐 "" 獲得并顯示上傳文件的屬性 源代码网推荐 FileName.Text = lstrFileName ""獲得文件名稱 源代码网推荐 FileType.Text = loFile.PostedFile.ContentType "" 獲得文件類型 源代码网推荐 FileLength.Text = CStr(loFile.PostedFile.ContentLength) "" 獲得文件長度 源代码网推荐 FileUploadForm.Visible = False 源代码网推荐 AnswerMsg.Visible = True "" 顯示上傳文件屬性 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐End Class 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网供稿. |
