ali_00067
چهارشنبه 23 بهمن 1387, 23:20 عصر
کد برای ارتباط بین کنترل های login با بانک اطلاعاتی شخصی.
Imports
Microsoft.VisualBasic
Imports
System.Data
Imports
System.Data.SqlClient
Public
Class ModifiedSqlMembershipProvider
Inherits SqlMembershipProvider
Private connStr AsString
Private comm AsNew sqlCommand
Private _requiresQuestionAndAnswer AsBoolean
Private _minRequiredPasswordLength AsInteger
PublicOverridesSub Initialize( _
ByVal name AsString, _
ByVal config As _
System.Collections.Specialized.NameValueCollection )
'===retrives the attribute values set in
'web.config and assign to local variables===
If config("requiresQuestionAndAnswer") = "true"Then _
_requiresQuestionAndAnswer = True
connStr = config(
"connectionString")
MyBase.Initialize(name, config)
EndSub
PublicOverridesReadOnlyProperty RequiresQuestionAndAnswer() AsBoolean
Get
If _requiresQuestionAndAnswer = TrueThen
ReturnTrue
Else
ReturnFalse
EndIf
EndGet
EndProperty
PublicOverridesFunction ValidateUser(ByVal username AsString, ByVal password AsString) AsBoolean
Dim conn AsNew SqlConnection("server=.;database=new2007;Integrated Security=SSPI")
Try
conn.Open()
Dim sql AsString = "Select * From Membership WHERE username=@username AND password=@password"
Dim comm AsNew SqlCommand(sql, conn)
comm.Parameters.AddWithValue("@username", username)
comm.Parameters.AddWithValue("@password", password)
Dim ad1 AsNew SqlDataAdapter(comm)
Dim dt AsNew DataTable
Dim reader AsInteger = ad1.Fill(dt)
If reader > 0 Then
ReturnTrue
Else
ReturnFalse
EndIf
conn.Close()
Catch ex As Exception
Console.Write(ex.ToString)
ReturnFalse
EndTry
EndFunction
End
Class
و فایل Web.config رو هم به اینصورت:
<authenticationmode="Forms"/>
<membership>
<providers>
<addrequiresQuestionAndAnswer="true"connectionStringName="mySqlCon"
name="ModifiedSqlMembershipProvider"type="ModifiedSqlMembershipProvider" />
</providers>
</membership>