?? ex11vb.aspx
字號:
<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>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -