曾老師程式設計館

原始碼程式範例

好站相報

技術論壇

易尋網

原始程式碼

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="Untitled Page" %>

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        
        If Account.Text = "" Then
            ErrLabel.Text = "請輸入帳號!!"
            Exit Sub
        Else
            If Len(Account.Text) < 3 Or Len(Account.Text) > 12 Then
                ErrLabel.Text = "帳號為3-12個字元!!"
                Exit Sub
            End If
        End If

If Password.Text <> "" Then

If Len(Password.Text) < 3 Or Len(Password.Text) > 12 Then
                ErrLabel.Text = "密碼為3-12個字元!!"
                Exit Sub
            End If
        Else
            ErrLabel.Text = "請輸入密碼!!"
            Exit Sub
        End If
        ErrLabel.Text = ""
        'Response.Write(Password.Text)
        '#########################
        '## 讀取資料庫的帳號密碼
        '#########################
        Session("Account") = account.Text
        Session("Password") = Password.Text
        Response.Redirect("newlogin.aspx")
    End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Redirect("forget.aspx")
    End Sub

Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
            
    End Sub

Protected Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)

End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        If Session("ErrMessage") <> "" Then
            ErrLabel.Text = Session("ErrMessage")
        End If
        If Session("member") <> "" Then
            Response.Redirect("default.aspx")
        End If
    End Sub
</script>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
    <table align="center" width="30%">
        <tr>
            <td colspan="2" style="background-color: #3399cc; text-align: center">
                會員登入</td>
        </tr>
        <tr>
            <td style="width: 100px; height: 26px; background-color: #6699cc">
                帳號</td>
            <td style="width: 100px; height: 26px; background-color: #99cccc">
                <asp:TextBox ID="account" runat="server" Width="139px" OnTextChanged="TextBox1_TextChanged"></asp:TextBox></td>
        </tr>
        <tr>
            <td style="width: 100px; background-color: #6699cc">
                密碼</td>
            <td style="width: 100px; background-color: #99cccc">
                <asp:TextBox ID="Password" runat="server" TextMode="Password" OnTextChanged="TextBox2_TextChanged"></asp:TextBox></td>
        </tr>
        <tr>
            <td colspan="2" style="background-color: #ffffff; text-align: center">
                <asp:Button ID="Button1" runat="server" Text="登入" OnClick="Button1_Click" />
                <asp:Button ID="Button2" runat="server" Text="忘記密碼" OnClick="Button2_Click" />
                <asp:Label ID="ErrLabel" runat="server" ForeColor="#C00000" Width="183px"></asp:Label></td>
        </tr>
    </table>

</asp:Content>

	1. 請點選此處複製以上資料
	2. 請按ctrl-c複製到剪貼簿
	3. 切換到ASP的原始內碼區
	4. 請按ctrl-v貼上所有資料