Viewing source for recipe0113vb.aspx
<%@ Page %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>recipe0113vb</title>
<script language="VB" runat="server">
Public Sub Page_Load(sender As [Object], e As EventArgs)
' emit script to set initial focus
RegisterStartupScript("focus", _
"<SCRIPT language='javascript'>" + _
"form1.UserNameTextBox.focus()" + _
"</" + "SCRIPT>")
' emit script to check for blank password
RegisterClientScriptBlock("myscripts", _
"<SCRIPT language='javascript'>" + _
"function checkPwd(){" + _
" if ( form1.PasswordTextBox.value == '')" + _
" if ( confirm('Are you sure about a blank password?'))" + _
" return true;" + _
" else {" + _
" form1.PasswordTextBox.focus();" + _
" return false;" + _
" } else return true;" + _
" } </" + "SCRIPT>")
' emit script in submit button attributes to call checkPwd function
SubmitButton.Attributes.Add("OnClick", "javascript:return checkPwd()")
If IsPostBack Then
ResultLabel.Text = String.Format("User='{0}', Password='{1}'", UserNameTextBox.Text, PasswordTextBox.Text)
Else
ResultLabel.Text = ""
End If
End Sub 'Page_Load
</script>
</HEAD>
<BODY>
<form id="form1" method="post" runat="server">
<asp:TextBox id="UserNameTextBox" runat="server"></asp:TextBox>
<br>
<asp:TextBox id="PasswordTextBox" runat="server" TextMode="Password"></asp:TextBox>
<br>
<asp:Button id="SubmitButton" runat="server" Text="Submit"></asp:Button>
<br>
<br>
<asp:Label id="ResultLabel" runat="server">Label</asp:Label>
</form>
</BODY>
</HTML>