<html>
   <title>第十一例 HtmlInputText控件和HtmlTextArea控件使用
   </title>

    <script runat="server" language="VB">
      Sub SubmitBtn_Click1(Source as Object,E as EventArgs)
         Message.InnerHtml = Speech.Value
      End Sub

      Sub SubmitBtn_Click2(Source as Object,E as EventArgs)
        if ((Name.Value = "Asp") and (Password.Value = "Asp.Net")) then
            Message.InnerHtml = "<font color=Green>登陆系统成功!</font>"
	    Span.Visible=true
	    Speech.Disabled=false
	    Submit.Disabled=false
        else
            Message.InnerHtml = "<table><tr><td><b><font color=red>输入错误！！</font></b></td>" & _
                                "<td>提示：账号为 Asp </td></tr>" & _
                                "<tr><td></td><td>密码为 Asp.Net</td></tr></table>"
	    Span.Visible=false
	    Speech.Disabled=true
	    Submit.Disabled=true
	end if
      End Sub

    </script>
  
   <body>
  
    <form method=post runat=server>
	 <table><tr><td>
	 <h3>请输入用户名：</h3> </td><td>
         <input id="Name" 
                type="text" 
                size="40" 
                runat="server"> </td></tr><tr><td>
         <h3>请输入密码：</h3></td><td>
         <input id="Password" 
                type="password" 
                size="40" 
                runat="server"> </td></tr></table>
  
         <input type=submit 
                value="确定" 
                OnServerClick="SubmitBtn_Click2" 
                runat=server>
	<br><br>
	<span id="Span" Visible=false runat=server>请输入您的留言：</span>
	<br>
        <textarea id="Speech" cols=40 rows=4 Disabled=true runat=server>请在此处输入留言！</textarea>
  
        <input id="Submit" type=submit value="提交" OnServerClick="SubmitBtn_Click1" Disabled=true runat=server>
  
       <h1><span id="Message" runat=server> </span>
        </h1>
    

    </form>
  
   </body>
 </html>