注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

利用ASP.NET设计FTP文件上传(asp.net)  

2011-07-10 13:27:18|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

@個版本和純前臺的上傳類似是一樣的功能,只是將前後臺的代碼給分開了
.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
<titleWebForm6</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"
target=_blank>http://schemas.microsoft.com/intellisense/ie5"">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:\ "作爲缺省上傳目?br>
 lstrFileFolder = dir.Text '
@得上傳到服務器的目録名稱
 Else
 lstrFileFolder = "c:\"
 End I
 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 I
 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

  评论这张
 
阅读(159)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017