1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Protected Function SiteSpecificAuthenticationMethod(ByVal UserName As String, ByVal Password As String) As Boolean
Dim log_statement As String = "SELECT * FROM [password] where log_in='" & UserName & "' and password='" & Password & "'"
Dim con2 As System.Data.SqlClient.SqlCommand
Dim con1 As System.Data.SqlClient.SqlConnection
Dim reader As System.Data.SqlClient.SqlDataReadercon1 = New System.Data.SqlClient.SqlConnection(SqlDataSource1.ConnectionString)
con1.Open()
con2 = New System.Data.SqlClient.SqlCommand(log_statement, con1)
reader = con2.ExecuteReader()
If reader.Read Then
Return True
Else
Return False
End If
End Function |
Partager