我爱Aspx >> Asp.Net >> ASP.NET 2.0中保证应用程序的安全| <script runat="server"> Sub btnCreate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim userName As String = txtUserId.Text '这个值式加密的或散列过,不会显示 Dim password As String = txtPassword.Text Dim email As String = txtEmail.Text Dim passwordQuestion As String = ddlPasswordQuestion.SelectedValue '这个值式加密的或散列过,不会显示 Dim passwordAnswer As String = txtPasswordAnswer.Text Dim result As MembershipCreateStatus Membership.CreateUser(userName, password, email, passwordQuestion, passwordAnswer, True, result) lblResults.Visible = True Select Case result Case MembershipCreateStatus.Success txtUserId.Text = Nothing txtPassword.Text = Nothing txtEmail.Text = Nothing ddlPasswordQuestion.SelectedIndex = -1 txtPasswordAnswer.Text = Nothing lblResults.Text = "User successfully created!" Case MembershipCreateStatus.InvalidUserName lblResults.Text = "The username format was invalid. Please enter a different username." Case MembershipCreateStatus.InvalidPassword lblResults.Text = "The password was invalid: A password cannot be an empty string and must also meet the pasword strength requirements of the configured provider. Please enter a new password." Case MembershipCreateStatus.InvalidEmail lblResults.Text = "The email format was invalid. Please enter a different username." Case MembershipCreateStatus.InvalidQuestion lblResults.Text = "The password question format was invalid. Please enter a different question." Case MembershipCreateStatus.InvalidAnswer lblResults.Text = "The password answer format was invalid. Please enter a different answer." Case MembershipCreateStatus.DuplicateUsername lblResults.Text = "The username is already in use. Please enter a new username." Case MembershipCreateStatus.DuplicateEmail lblResults.Text = "The email address is already in use. Please enter a different email address." Case Else lblResults.Text = "An error occurred while creating the user." End Select End Sub </script> |
| <script runat="server"> Protected memUser As MembershipUser Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) memUser = Membership.GetUser() End Sub Sub linkLogout_Click(ByVal sender As Object, ByVal e As System.EventArgs) FormsAuthentication.SignOut() Roles.DeleteCookie() FormsAuthentication.RedirectToLoginPage() End Sub </script> User Name/ID: <% = Server.HtmlEncode(memUser.Username) %> Email:<% = Server.HtmlEncode(memUser.Email) %> |
| Sub DetailsView1_ItemUpdating(ByVal sender As Object, ByVal e as DetailsViewUpdateEventArgs) '必须手动处理更新操作,因为MembershipUser 没有参数化的构造函数 Dim memUser as MembershipUser = Membership.GetUser() memUser.Email = CStr(e.NewValues(0)) memUser.Comment = CStr(e.NewValues(1)) Try Membership.UpdateUser(memUser) e.Cancel = true DetailsView1.ChangeMode(DetailsViewMode.ReadOnly) Catch ex as Exception Response.Write("<div>The following error occurred:<font color='red'> " + ex.Message + "</font></div>") e.Cancel = true End Try End Sub |
ASP.NET 2.0中层次数据的处理[03-18]
解决Asp.net"代码不紧凑&qu..[03-18]
设计ASP.NET应用程序的7技巧[03-18]
让Asp.NET DataGrid可排序,选择,..[03-18]
ASP.NET编程入门随想之宽容[03-17]
.NET下的设计模式研究之桥接模式[03-17]
ASP.NET 2.0服务器控件之客户端功..[03-17]
ASP.NET+Atlas创建客户端Web应用..[03-17]
基于ASP.NET技术的驾校网页设计[03-17]
ASP.NET+Atlas创建客户端Web应用..[03-17]
程序员应具备的素质[03-18]
体验Visual Studio 2005新特性(3..[03-18]
体验Visual Studio 2005新特性(2..[03-18]
体验Visual Studio 2005新特性(1..[03-18]
微软五年磨一剑 解说VS2005[03-18]
ASP.NET 2.0中层次数据的处理[03-18]
解决Asp.net"代码不紧凑&qu..[03-18]
设计ASP.NET应用程序的7技巧[03-18]
让Asp.NET DataGrid可排序,选择,..[03-18]
“熊猫烧香”病毒制造者李俊被正..[03-18]