Imports System.Security.Principal Imports System.Web.Security Private
Sub
OK_Click(
ByVal
sender
As
System.
Object
,
e
System.EventArgs)
Handles
OK.Click
If
Membership.ValidateUser(UsernameTextBox.Text, PasswordTextBox.Text)
Then
'''' treatment if authenticated
Else
''''
End
using
System.Security.Principal;
System.Web.Security;
private
void
OK_Click(System.Object sender, System.EventArgs e)
{
if
(Membership.ValidateUser(UsernameTextBox.Text, PasswordTextBox.Text)) {
}
// treatment if authenticated
else
//
<
system.web
>
membership
defaultProvider
=
"AspNetSqlMembershipProvider"
providers
remove
name
AspNetSqlMembershipProvider
"/>
add
type
"System.Web.Security.SqlMembershipProvider"
connectionStringName
"AspNetConnectionString"
enablePasswordRetrieval
"false"
enablePasswordReset
"true"
requiresQuestionAndAnswer
applicationName
"AspNet"
requiresUniqueEmail
passwordFormat
"Hashed"
maxInvalidPasswordAttempts
"5"
minRequiredPasswordLength
"7"
minRequiredNonalphanumericCharacters
"1"
passwordAttemptWindow
"10"
passwordStrengthRegularExpression
""
/>
</
roleManager
enabled
"AspNetSqlRoleProvider"
cacheRolesInCookie
createPersistentCookie
cookieProtection
"All"
"System.Web.Security.SqlRoleProvider"
''' treatment for current user
nom = Thread.CurrentPrincipal.Identity.Name
Dim
user
MembershipUser = Membership.GetUser(nom)
identity
New
GenericIdentity(user.UserName)
principal
RolePrincipal(identity)
Threading.Thread.CurrentPrincipal = principal
Roles.GetRolesForUser(nom).Length = 1
rolesArray = Roles.GetRolesForUser(nom)
role = rolesArray.First.ToString
''' enable controls for examples for the role of current user
'' disable controls
public
class
AddUser
Button1_Click(System.Object sender, System.EventArgs e)
MembershipUser user;
user = Membership.CreateUser(TextBox1.Text, TextBox2.Text);
MsgBox(TextBox1.Text +
"is created successfully"
);
this
.Dispose();
Imports System.Security.Principal Imports System.Web.Security Public Class AddUser Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim user As MembershipUser user = Membership.CreateUser(TextBox1.Text, TextBox2.Text) MsgBox(TextBox1.Text & "is created successfully") Me.Dispose() End Sub End Class
Imports
System.Security.Principal
System.Web.Security
Public
Class
Private
Button1_Click(
Button1.Click
MembershipUser
user = Membership.CreateUser(TextBox1.Text, TextBox2.Text)
MsgBox(TextBox1.Text &
)
Me
.Dispose()
Ed Price - MSFT edited Revision 1. Comment: Tag
In the app.config file, the line "<remove name=AspNetSqlMembershipProvider"/>" is missing a quote, and should be:
"<remove name="AspNetSqlMembershipProvider"/>"
Great !!! Hope you continue provide us some other code !!!