calendarchange.edml

用VB实现

<participant version="7.0.1">
	<insertText location="aboveHTML+99"><![CDATA[<script  runat="server">
	Sub myCalendar_SelectionChanged　_
(sender As Object, e As System.EventArgs)
		@@CTextBox@@.Text = myCalendar.SelectedDate
	End Sub
</script>
]]></insertText>
	<searchPatterns whereToSearch="tag+SCRIPT">
		<searchPattern paramNames="CTextBox" isOptional="false" limitSearch="all"><![CDATA[/<script  runat="server">\s*Sub myCalendar_SelectionChanged　_(?:\r\n|\r(?!\n)|\n)[ \t]*\(sender As Object, e As System\.EventArgs\)(?:\r\n|\r(?!\n)|\n)[ \t]*([^\r\n]*?)\.Text = myCalendar\.SelectedDate(?:\r\n|\r(?!\n)|\n)[ \t]*End Sub\s*<\/script>/i]]></searchPattern>
	</searchPatterns>
	<quickSearch>myCalendar_SelectionChanged</quickSearch>
</participant>