月光软件站 - 编程文档 - ASP - 引发自定义控件LoadPostData方法的必要条件!

ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·VisualStudio.NET_2003及其 MSDN 下载地址
·session的用法具体解说
·MD5加密算法 ASP版
·JavaScript实现的数据表格：冻结列、调整列宽和客户端排序
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·ASP.net中md5加密码的方法
·ASP模拟MVC模式编程
·ASP.NET编程中的十大技巧

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

引发自定义控件LoadPostData方法的必要条件!

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

自定义控件要引发LoadPostData方法，需要包含一个ID为this.UniqueID的控件

可在控件组中加入一个Hidden控件!

writer.Write("<input type='hidden' name='" + me.UniqueID + "'>")

或者干脆更简单的做法，把submit的name属性设置为me.UniqueID

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
<DefaultProperty("Text"), ToolboxData("<{0}:Login runat=server></{0}:Login>")> Public Class Login
    Inherits System.Web.UI.WebControls.WebControl
    Implements IPostBackDataHandler
    Public Event CheckError As EventHandler
    Private _user As String
    Private _pass As String

    Public Function LoadPostData(ByVal postDataKey As String, ByVal postCollection As System.Collections.Specialized.NameValueCollection) As Boolean Implements System.Web.UI.IPostBackDataHandler.LoadPostData
        _user = CType(postCollection(Me.UniqueID & ":User"), String)
        _pass = CType(postCollection(Me.UniqueID & ":Pass"), String)
        If _user <> _pass Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Sub RaisePostDataChangedEvent() Implements System.Web.UI.IPostBackDataHandler.RaisePostDataChangedEvent
        OnCheckError()
    End Sub

    Public Sub OnCheckError()
        RaiseEvent CheckError(Me, New System.EventArgs())
    End Sub

    Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
        writer.RenderBeginTag(HtmlTextWriterTag.Table)
        writer.RenderBeginTag(HtmlTextWriterTag.Tr)
        writer.RenderBeginTag(HtmlTextWriterTag.Td)
        writer.Write("用户名：")
        writer.RenderEndTag()
        writer.RenderBeginTag(HtmlTextWriterTag.Td)
        writer.AddAttribute(HtmlTextWriterAttribute.Type, "TextBox")
        writer.AddAttribute(HtmlTextWriterAttribute.Name, Me.UniqueID & ":User")
        writer.AddAttribute(HtmlTextWriterAttribute.Maxlength, "30")
        writer.RenderBeginTag(HtmlTextWriterTag.Input)
        writer.RenderEndTag()
        writer.RenderEndTag()
        writer.RenderEndTag()

        writer.RenderBeginTag(HtmlTextWriterTag.Tr)
        writer.RenderBeginTag(HtmlTextWriterTag.Td)
        writer.Write("密码：")
        writer.RenderEndTag()
        writer.RenderBeginTag(HtmlTextWriterTag.Td)
        writer.AddAttribute(HtmlTextWriterAttribute.Type, "Password")
        writer.AddAttribute(HtmlTextWriterAttribute.Name, Me.UniqueID & ":Pass")
        writer.AddAttribute(HtmlTextWriterAttribute.Maxlength, "30")
        writer.RenderBeginTag(HtmlTextWriterTag.Input)
        writer.RenderEndTag()
        writer.RenderEndTag()
        writer.RenderEndTag()

        writer.RenderBeginTag(HtmlTextWriterTag.Tr)
        writer.AddAttribute(HtmlTextWriterAttribute.Cols, "2")
        writer.RenderBeginTag(HtmlTextWriterTag.Td)
        writer.AddAttribute(HtmlTextWriterAttribute.Type, "Submit")
        writer.AddAttribute(HtmlTextWriterAttribute.Name, Me.UniqueID)
        writer.AddAttribute(HtmlTextWriterAttribute.Value, "提交")
        writer.RenderBeginTag(HtmlTextWriterTag.Input)
        writer.RenderEndTag()
        writer.RenderEndTag()
        writer.RenderEndTag()
        writer.RenderEndTag()
    End Sub
End Class

相关文章：

相关软件：