上善 edwardNotes 若水: aspx example asp.net

2013年7月27日星期六

aspx example asp.net

http://youtu.be/w0gpUxOArZA

Login.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Login.aspx.vb" Inherits="BasicFormAuthVbWeb.Login" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>登入網頁</title>
<meta name="GEN-ERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<FONT face="新細明體">
<asp:Label id="Label1" style="Z-INDEX: 101; LEFT: 13px; POSITION: absolute; TOP: 71px" runat="server">請輸入使用者的名稱:</asp:Label>
<asp:RequiredFieldValidator id="RequiredFieldValidator2" style="Z-INDEX: 109; LEFT: 439px; POSITION: absolute; TOP: 107px" runat="server" ControlToValidate="txtPassword" Width="229px">務必輸入密碼不可以空白</asp:RequiredFieldValidator>
<asp:Label id="Label2" style="Z-INDEX: 102; LEFT: 13px; POSITION: absolute; TOP: 107px" runat="server">請輸入使用者的密碼:</asp:Label>
<asp:TextBox id="txtUserName" style="Z-INDEX: 103; LEFT: 202px; POSITION: absolute; TOP: 68px" runat="server" Font-Size="12pt"></asp:TextBox>
<asp:TextBox id="txtPassword" style="Z-INDEX: 104; LEFT: 202px; POSITION: absolute; TOP: 104px" runat="server" Font-Size="12pt"></asp:TextBox>
<asp:Button id="btnSubmit" style="Z-INDEX: 105; LEFT: 213px; POSITION: absolute; TOP: 180px" runat="server" Font-Size="12pt" Text="登入"></asp:Button>
<asp:Label id="Message" style="Z-INDEX: 106; LEFT: 13px; POSITION: absolute; TOP: 228px" runat="server" ForeColor="Red"></asp:Label>
<asp:CheckBox id="PersistentCookie" style="Z-INDEX: 107; LEFT: 74px; POSITION: absolute; TOP: 140px" runat="server" Font-Size="12pt" Text="永久性 Cookie:" TextAlign="Left"></asp:CheckBox>
<asp:RequiredFieldValidator id="RequiredFieldValidator1" style="Z-INDEX: 108; LEFT: 439px; POSITION: absolute; TOP: 71px" runat="server" ControlToValidate="txtUserName" Width="302px">務必輸入使用者名稱不可以空白</asp:RequiredFieldValidator><IMG style="Z-INDEX: 110; LEFT: 16px; POSITION: absolute; TOP: 7px" alt="" src="Images/Title1.jpg"></FONT>
</form>
</body>
</HTML>

Login.aspx.vb

Imports System.Web.Security
Public Class Login
Inherits System.Web.UI.Page
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents txtUserName As System.Web.UI.WebControls.TextBox
Protected WithEvents txtPassword As System.Web.UI.WebControls.TextBox
Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
Protected WithEvents Message As System.Web.UI.WebControls.Label
Protected WithEvents PersistentCookie As System.Web.UI.WebControls.CheckBox
Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator

#Region " Web Form 設計工具產生的程式碼 "

'此呼叫為 Web Form 設計工具的必要項。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法呼叫為 Web Form 設計工具的必要項
'請勿使用程式碼編輯器來修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此加入要初始化頁面的使用者程式碼
End Sub

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If ((txtUserName.Text = "章立民") And (txtPassword.Text = "iamalex") Or _
(txtUserName.Text = "周時恕") And (txtPassword.Text = "ilovemydaughter") Or _
(txtUserName.Text = "洪志豪") And (txtPassword.Text = "naturalplayer")) Then

' 將通過驗證之使用者重新導向至原來所要求的URL
FormsAuthentication.RedirectFromLoginPage(txtUserName.Text, PersistentCookie.Checked)
Else

Message.Text = "憑證資料錯誤，請再次嘗試！！"
End If
End Sub
End Class