My Aspx Page:
<title>Login Page</title>
<link href="CSS/WebAAssignment.css" rel="Stylesheet" type="text/css" />
<script language="javascript" type="text/javascript">
function checkform() {
var objUserIDTxtBox = new Object();
var objUserPasswordTxtBox = new Object();
var objMessageBox = new Object();
var userID = new String();
var userPassword = new String();
objUserIDTxtBox = document.getElementById("txtUserID");
objUserPasswordTxtBox = document.getElementById("txtUserPassword");
userID = objUserIDTxtBox.value;
userPassword = objUserPasswordTxtBox.value;
if ((userID == "") || (userPassword == "")) {
objMessageBox = document.getElementById("divMessage");
objMessageBox.innerHTML = "Please fill in all fields.";
return true;
} else
return false;
}
</script>
</head>
<body>
<form id="frmData" runat="server">
<div>
<div runat="server" id="divMessage"></div><br/>
<table border="1" width="60%">
<tr><td colspan="2" class="WebFormLabel">Login Validation</td></tr>
<tr>
<td colspan="2" align="center">
<asp:Label id="lblMessage" runat="server"></asp:Label>
</td>
</tr>
<tr>
<td class="InputLabel" width="25%" align="right" valign="top">User ID</td>
<td>
<asp:textbox id="txtUserID" runat="server" text=""></asp:textbox>
</td>
</tr>
<tr>
<td class="InputLabel" align="right" valign="top">Password</td>
<td>
<asp:textbox id="txtUserPassword" runat="server" text=""></asp:textbox></td>
</tr>
<tr>
<td colspan="2" align="right">
<asp:button id="btnLogin" text="Login" runat="server" OnClientClick="return checkform();"></asp:button>
</td>
</tr>
</table>
</div>
</form>
</body>
----------------------------------------------------------------------------------
Code-Behind File of ASPX Page:
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim objValidateUser As New ValidateUser
Dim objUser As New CUser
Dim userId As String = txtUserID.Text
Dim password As String = txtUserPassword.Text
objUser = objValidateUser.VerifyUser(userId, password)
lblMessage.Text = "Welcome, Admin " & objUser.FullName
End Sub
----------------------------------------------------------------------------------
Class named "ValidateUser":
Public Class ValidateUser
Const CONNSTRING As String = "Data Source=FUJITSU-PC;Initial Catalog=WEBADB;user id=sa;password=12345678;"
Public Function VerifyUser(ByVal strUserId As String, ByVal strPassword As String) As CUser
Dim objCmd As New SqlCommand
Dim objCn As New SqlConnection
Dim objAdapter As New SqlDataAdapter
Dim objDs As New DataSet
Dim objDataRow As DataRow
Dim objUser As New CUser
Dim strSQL As String = ""
objCn.ConnectionString = CONNSTRING
strSQL &= "SELECT strUserIdAD, strPasswordAD, strFullNameAD FROM tblAdministrator "
strSQL &= "WHERE strUserIdAD='" & strUserId & "' AND strPasswordAD='" & strPassword & "'"
objCmd.Connection = objCn
objAdapter.SelectCommand = objCmd
objCmd.CommandText = strSQL
objCn.Open()
objAdapter.Fill(objDs, "tblAdminRecords")
objDataRow = objDs.Tables("tblAdminRecords").Rows(0)
objUser.UserID = objDataRow.Item("strUserIdAD")
objUser.Password = objDataRow.Item("strPasswordAD")
objUser.FullName = objDataRow.Item("strFullNameAD")
objCn.Close()
Return objUser
End Function
End Class
P.S: connectstring is correct
----------------------------------------------------------------------------------
Class named "CUser":
Public Class CUser
Protected strUserID As String
Protected strPassword As String
Protected strFullName As String
Public Property UserID() As String
Get
Return strUserID
End Get
Set(ByVal strValue As String)
strUserID = strValue
End Set
End Property
Public Property Password() As String
Get
Return strPassword
End Get
Set(ByVal strValue As String)
strPassword = strValue
End Set
End Property
Public Property FullName() As String
Get
Return strFullName
End Get
Set(ByVal strValue As String)
strFullName = strValue
End Set
End Property
End Class
----------------------------------------------------------------------------------
Can anyone please help?
I think there's errors but VB .NET didn't state them. This simulates a user logging in. Even when running, there's also no error. Everything is not working except for the javascript. Sorry if I post wrong category.
<title>Login Page</title>
<link href="CSS/WebAAssignment.css" rel="Stylesheet" type="text/css" />
<script language="javascript" type="text/javascript">
function checkform() {
var objUserIDTxtBox = new Object();
var objUserPasswordTxtBox = new Object();
var objMessageBox = new Object();
var userID = new String();
var userPassword = new String();
objUserIDTxtBox = document.getElementById("txtUserID");
objUserPasswordTxtBox = document.getElementById("txtUserPassword");
userID = objUserIDTxtBox.value;
userPassword = objUserPasswordTxtBox.value;
if ((userID == "") || (userPassword == "")) {
objMessageBox = document.getElementById("divMessage");
objMessageBox.innerHTML = "Please fill in all fields.";
return true;
} else
return false;
}
</script>
</head>
<body>
<form id="frmData" runat="server">
<div>
<div runat="server" id="divMessage"></div><br/>
<table border="1" width="60%">
<tr><td colspan="2" class="WebFormLabel">Login Validation</td></tr>
<tr>
<td colspan="2" align="center">
<asp:Label id="lblMessage" runat="server"></asp:Label>
</td>
</tr>
<tr>
<td class="InputLabel" width="25%" align="right" valign="top">User ID</td>
<td>
<asp:textbox id="txtUserID" runat="server" text=""></asp:textbox>
</td>
</tr>
<tr>
<td class="InputLabel" align="right" valign="top">Password</td>
<td>
<asp:textbox id="txtUserPassword" runat="server" text=""></asp:textbox></td>
</tr>
<tr>
<td colspan="2" align="right">
<asp:button id="btnLogin" text="Login" runat="server" OnClientClick="return checkform();"></asp:button>
</td>
</tr>
</table>
</div>
</form>
</body>
----------------------------------------------------------------------------------
Code-Behind File of ASPX Page:
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim objValidateUser As New ValidateUser
Dim objUser As New CUser
Dim userId As String = txtUserID.Text
Dim password As String = txtUserPassword.Text
objUser = objValidateUser.VerifyUser(userId, password)
lblMessage.Text = "Welcome, Admin " & objUser.FullName
End Sub
----------------------------------------------------------------------------------
Class named "ValidateUser":
Public Class ValidateUser
Const CONNSTRING As String = "Data Source=FUJITSU-PC;Initial Catalog=WEBADB;user id=sa;password=12345678;"
Public Function VerifyUser(ByVal strUserId As String, ByVal strPassword As String) As CUser
Dim objCmd As New SqlCommand
Dim objCn As New SqlConnection
Dim objAdapter As New SqlDataAdapter
Dim objDs As New DataSet
Dim objDataRow As DataRow
Dim objUser As New CUser
Dim strSQL As String = ""
objCn.ConnectionString = CONNSTRING
strSQL &= "SELECT strUserIdAD, strPasswordAD, strFullNameAD FROM tblAdministrator "
strSQL &= "WHERE strUserIdAD='" & strUserId & "' AND strPasswordAD='" & strPassword & "'"
objCmd.Connection = objCn
objAdapter.SelectCommand = objCmd
objCmd.CommandText = strSQL
objCn.Open()
objAdapter.Fill(objDs, "tblAdminRecords")
objDataRow = objDs.Tables("tblAdminRecords").Rows(0)
objUser.UserID = objDataRow.Item("strUserIdAD")
objUser.Password = objDataRow.Item("strPasswordAD")
objUser.FullName = objDataRow.Item("strFullNameAD")
objCn.Close()
Return objUser
End Function
End Class
P.S: connectstring is correct
----------------------------------------------------------------------------------
Class named "CUser":
Public Class CUser
Protected strUserID As String
Protected strPassword As String
Protected strFullName As String
Public Property UserID() As String
Get
Return strUserID
End Get
Set(ByVal strValue As String)
strUserID = strValue
End Set
End Property
Public Property Password() As String
Get
Return strPassword
End Get
Set(ByVal strValue As String)
strPassword = strValue
End Set
End Property
Public Property FullName() As String
Get
Return strFullName
End Get
Set(ByVal strValue As String)
strFullName = strValue
End Set
End Property
End Class
----------------------------------------------------------------------------------
Can anyone please help?
I think there's errors but VB .NET didn't state them. This simulates a user logging in. Even when running, there's also no error. Everything is not working except for the javascript. Sorry if I post wrong category.
