加上multipart/form-data编码的方法

2004-6-17　作者：jxf_yx　转载自：CSDN　网友评论 0 条　点击进入论坛

  Imports System.Web.UI

  Imports System.ComponentModel

  Public Class UpLoadFile

    Inherits System.Web.UI.WebControls.WebControl

    ''设置将窗体的数据发送到服务器时浏览器使用的编码类型

    ''multipart/form-data 窗体数据被编码为一条消息，页上的每个控件对应消息中的一个部分。

    Protected Overridable Sub EnsureEncType()

        Dim parent As System.Web.UI.Control = Me.Parent

        While Not (parent Is Nothing) AndAlso Not (parent.GetType Is GetType(System.Web.UI.HtmlControls.HtmlForm)) AndAlso Not (parent.GetType Is GetType(System.Web.UI.Page))

            parent = parent.Parent

        End While

        Dim myForm As System.Web.UI.HtmlControls.HtmlForm = parent

        If Not (parent Is Nothing) Then

            myForm.Enctype = "multipart/form-data"

        End If

    End Sub

    ''重写TagKey属性.编写 HTML 标记为input

    Protected Overloads Overrides ReadOnly Property TagKey() As System.Web.UI.HtmlTextWriterTag

        Get

            Return HtmlTextWriterTag.Input

        End Get

    End Property

    ''重写自定义服务器控件中的 OnPreRender 方法,

    ''当从 ASP.NET 页请求自定义控件时，在页处理的 PreRender 阶段(当服务器控件将要呈现给其包含的 Page 对象时发生)会调用 OnPreRender 方法

    Protected Overloads Overrides Sub OnPreRender(ByVal e As System.EventArgs)

        MyBase.OnPreRender(e)

        If Not (Me.Page Is Nothing) Then ''如果页面由此控件实例

            Me.EnsureEncType()

        End If

    End Sub
 
    Protected Overloads Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)

        If Not (Me.Page Is Nothing) Then

            Me.Page.VerifyRenderingInServerForm(Me) ''确认在运行时为指定的 ASP.NET 服务器控件包含在 HtmlForm 服务器控件 (<form runat="server">) 中

        End If

        MyBase.AddAttributesToRender(writer)

        MyBase.Render(writer)

    End Sub

    Protected Overloads Overrides Sub AddAttributesToRender(ByVal writer As System.Web.UI.HtmlTextWriter)

        MyBase.AddAttributesToRender(writer)

        ''输出html--file控件

        writer.AddAttribute(HtmlTextWriterAttribute.Type, "file")

        writer.AddAttribute(HtmlTextWriterAttribute.Name, Me.UniqueID)

    End Sub

  End Class

今日推荐

• ·QQ邮箱新体验：容量自动翻倍，发送G级附件[组图]
• ·玩转科技奥运
• ·网络管理员必学手册
• ·从头学做网管系列教程: 如何合理规划局域网
• ·巧用QQ打开被网管隐藏的文件夹

• ·为何网管变成勤杂工
• ·网管严把服务器防火墙上"漏洞"
• ·初级网管的网络安全
• ·网管必读 教会用户自己给系统打补丁
• ·网络管理五大发展方向

重点推荐

领军企业技术文库

最新专题

电子杂志订阅

技术热点