设计控件净化网站语言

二、开发复合控件

控件要检查用户提交的内容是否包含“攻击性”词语，攻击性词语由一个XML文件定义，XML文件的结构如下：

＜?xml version=\"1.0\"? encoding=\"GB2312\"＞

＜words＞

＜word＞词语一＜/word＞

＜word＞词语二＜/word＞

＜/words＞

本文的复合控件（Composite）包含三个服务器控件：一个Textbox控件，一个Label控件，还有一个Button控件。当用户点击Button控件，Composite检查用户提交的文本是否包含了XML文件中指定的词语（XML文件的默认名字是bad_l，通过一个自定义属性定义），并抛出一个自定义事件。另外，Composite控件还将它的Label子控件的一个Text属性显露成顶级属性。

复合控件可以有选择地将子控件显露成属性，或者有选择地将子控件的属性和事件作为顶级属性和事件显露出来。当复合控件整合来自子控件的属性时，它通常只是简单地委托子控件执行操作，如下面的例子所示：

// 将操作委托给标签对象，标签对象是一个

// bel的实例

Public Property Text() As String

Get

EnsureChildControls()

Return xt

End Get

Set

EnsureChildControls()

xt = value

End Set

一位正在替女儿选内衣的阿姨告诉 End Property

我们需要一个文本输入框让用户输入内容，一个按钮来提交表单，还要一个向用户反馈信息的文本标签。下面我们来看看Web表单的代码，复合控件就是在这里实例化的：

【px】

＜%@ page language=\"vb\" debug=\"false\" trace=\"false\" %＞

＜%@ Register TagPrefix=\"Custom\" Namespace=\"CustomControls\" Assembly = \"CustomControls\" %＞

＜html＞

＜script language=\"VB\" runat=server＞

Private Sub CheckText(sender As Object, e As CheckEventArgs)

If tch = false Then

xt = \"＜h2＞发布内容请遵守本站规则！不得发布攻击性言辞！＜/h2＞\"

Else

xt = \"你提交的内容已通过检查！\"

End If

End Sub

＜/script＞

＜body＞

＜h1＞语言净化控件实例＜/h1＞＜br＞

＜form runat=server＞

＜Custom:Composite id = \"Composite\" OnCheck = \"CheckText\"

filename = \"bad_l\" runat = server/＞＜/form＞＜/body＞

＜/html＞

上面的代码首先注册指定的复合控件。我们将把控件的代码编译成一个.dll文件，放入应用的bin目录，这是首先搜索的位置。在Web表单构成的用户界面中，我们实例化了自定义控件，同时指定了：

⑴ 当控件抛出OnCheck事件，执行一个本地的子过程CheckText。我们把复合控件的标签的文本通过一个公用属性显露出来，标签的内容由OnCheck事件句柄设置的另一个公用属性决定。

⑵ 定义攻击性词语的XML文件的名字。

⑶ 另外，我们还定义了一个由复合控件调用的CheckText子过程。