47 lines
1.8 KiB
VB.net
47 lines
1.8 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports System.Data
|
|
|
|
Partial Class login_login_TEST
|
|
Inherits System.Web.UI.Page
|
|
|
|
|
|
Protected Sub ValidateUser(sender As Object, e As EventArgs)
|
|
Dim userId As Integer = 0
|
|
' cDBFunctions.GetNewOpenConnection()
|
|
Dim ConnectionString = ""
|
|
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
|
|
Else
|
|
ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
|
|
End If
|
|
|
|
' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
|
|
Using con As New SqlConnection(ConnectionString)
|
|
Using cmd As New SqlCommand("Validate_User")
|
|
cmd.CommandType = CommandType.StoredProcedure
|
|
cmd.Parameters.AddWithValue("@Username", Login1.UserName)
|
|
cmd.Parameters.AddWithValue("@Password", Login1.Password)
|
|
cmd.Connection = con
|
|
con.Open()
|
|
userId = Convert.ToInt32(cmd.ExecuteScalar())
|
|
con.Close()
|
|
End Using
|
|
Select Case userId
|
|
Case -1
|
|
Login1.FailureText = "Username and/or password is incorrect."
|
|
Exit Select
|
|
Case -2
|
|
Login1.FailureText = "Account has not been activated."
|
|
Exit Select
|
|
Case Else
|
|
FormsAuthentication.RedirectFromLoginPage(Login1.UserName, Login1.RememberMeSet)
|
|
'FormsAuthentication.SetAuthCookie(Login1.UserName, True)
|
|
'Response.Redirect("mypage.aspx")
|
|
Exit Select
|
|
End Select
|
|
End Using
|
|
End Sub
|
|
|
|
|
|
End Class
|