userinfo.aspx.vb

来自「旅客信息管理、酒店客房管理、各种信息查询」· VB 代码 · 共 16 行

'文件名:UserInfo.aspx.vb
Partial Class SystemManage_UserInfo
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Page.Title = "当前位置：系统管理->修改用户信息"
    End Sub
    Protected Sub DetailsView1_ItemUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewUpdateEventArgs) Handles DetailsView1.ItemUpdating
        Dim MyUser As MembershipUser = Membership.GetUser()
        MyUser.Email = e.NewValues(1)
        MyUser.Comment = e.NewValues(0)
        Membership.UpdateUser(MyUser)
        e.Cancel = True
        Me.DetailsView1.ChangeMode(DetailsViewMode.ReadOnly)
    End Sub
End Class