這個版本和純前臺的上傳類似是一樣的功能,只是將前後臺的代碼給分開了
.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
[Web开发]一个关于ASP运行时间计算的代码 [Web开发]ASP:检测含有中文字符串的实际长度 [Web开发]asp 中英文字符长度检测判断函数 [Web开发]安全维护 IIS asp 站点的高级技巧 [C语言系列]NET 中C#的switch语句的语法 [Access]ASP&SQL让select查询结果随机排序的实现方法 [Web开发]ASP字符串截取函数 [Web开发][asp]关键词只替换一次的写法 [Web开发]Asp无组件生成缩略图方法详解 [Web开发]asp编程中优化数据库方法详解
|