<%@ Page Language="VB" %>
<script runat="server">
sub Login(Sender as Object, e as EventArgs)
if tbUserName.Text = "user" and _
tbPassword.Text = "pass" then
FormsAuthentication.SetAuthCookie(tbUserName.Text, false)
Response.redirect("http://www.java2s.com")
else
lblMessage.Text = "<font color=red>Sorry, " & _
"invalid username or password!</font>"
end if
end sub
</script>
<html><body>
Please enter your username and password.
<form runat="server">
<asp:Label id="lblMessage" runat="server" />
Username:
<asp:Textbox id="tbUserName" runat="server" /><br>
Password:
<asp:Textbox id="tbPassword" TextMode="password"
runat="server" />
<asp:Button id="Submit" runat="server"
OnClick="Login"
Text="Submit" />
</form>
</body></html>