<head>
<script language="vb" runat="server">
public Property UserID() as string
	Get
		return uid.Text'返回UserID属性值
	End Get
	Set
		uid.Text = value'设定uid文本框的值
	end Set
end Property
public Property PassWord() as string
	Get
		return Pass.Value
	End Get
	Set
		Pass.Value = value
	End Set
End Property
</script>
</head>
<p>请输入ID：<asp:TEXTBOX runat="server" id="uid"/>
<P>请输入密码：<input id="Pass" type=password size=10 runat=server> 
<P>再输入一次：<input id="RPass" type=password size=10 runat=server> 
      <asp:CompareValidator runat=server
            ControlToValidate="RPass"
            ControlToCompare="Pass"
            ErrorMessage="密码验证错误" />

