M
Maellic
Hi,
I'm currently updating a website written with ASP.NET. The original
programmer is overseas, there is no documentation, and files are all
over the place.
Here is a code snippet from one of the .vb file used by the
application (the entire code of the file is at the end of the post):
If EmissionsWebBLL.Security.ValidateLogin(txtUserName.Text,
txtPassword.Text, RptYear) = True Then
I can't find where that EmissionsWebBll class comes from. When I try
to Go To Definition, nothing happens. I've looked for an
EmissionsWebBll.vb but can't find it. I fear the source code might be
missing but as I'm not very familiar with ASP.NET, could somebody tell
me whether I should actually be looking for this file or whether I'm
getting confused? I have file called EmissionsWebBll.dll, is there a
way to recover the vb source code from that file?
Thanks for the help
Maelle
Public Class Secure
Inherits System.Web.UI.Page
Protected WithEvents txtUserName As
System.Web.UI.WebControls.TextBox
Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
Protected WithEvents btnNewRptYear As
System.Web.UI.WebControls.Button
Protected WithEvents vlUserName As
System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents vlPassword As
System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents lblStatus As System.Web.UI.WebControls.Label
Protected WithEvents txtPassword As
System.Web.UI.WebControls.TextBox
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form
Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
End If
End Sub
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnSubmit.Click
Dim RptYear As String = CType(Request.Form("eYear"), Integer)
- 1 & "/" & Request.Form("eYear")
Dim LoginID As String
'Check to see whether username and password exists
If EmissionsWebBLL.Security.ValidateLogin(txtUserName.Text,
txtPassword.Text, RptYear) = True Then
'First check to see whether its the users first login
If EmissionsWebBLL.Security.ValidateFirstLogin(txtUserName.Text,
txtPassword.Text) = True Then
'User has changed password previously, now check how
long ago password was changed
If EmissionsWebBLL.Security.ValidatePasswordHistory(txtUserName.Text,
txtPassword.Text, RptYear) = False Then
'Password needs changing
Response.Redirect("PasswordChange.aspx?Username="
& txtUserName.Text)
Else
'Everything aok, proceed to asp page with login in
querystring
LoginID =
EmissionsWebBLL.Security.GetLoginID(txtUserName.Text,
txtPassword.Text, RptYear)
Response.Redirect("getUserDetails.asp?LoginID=" &
LoginID)
End If
Else
'User needs to activiate a new password, redirect to
FirstLogin page
Response.Redirect("FirstLogin.aspx?Username=" &
txtUserName.Text)
End If
Else
lblStatus.Text = "Incorrect username or password, try
again."
End If
End Sub
Private Sub btnNewRptYear_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnNewRptYear.Click
Dim RptYear As String = CType(Request.Form("eYear"), Integer)
- 1 & "/" & Request.Form("eYear")
'Check to see whether username and password exists
If EmissionsWebBLL.Security.ValidateLogin(txtUserName.Text,
txtPassword.Text, RptYear) = True Then
Response.Redirect("NewRPTYearSetup.asp?Alias=" &
txtUserName.Text)
Else
lblStatus.Text = "Incorrect username or password, try
again. To activate this function you must also select the most recent
reporting year."
End If
End Sub
End Class
I'm currently updating a website written with ASP.NET. The original
programmer is overseas, there is no documentation, and files are all
over the place.
Here is a code snippet from one of the .vb file used by the
application (the entire code of the file is at the end of the post):
If EmissionsWebBLL.Security.ValidateLogin(txtUserName.Text,
txtPassword.Text, RptYear) = True Then
I can't find where that EmissionsWebBll class comes from. When I try
to Go To Definition, nothing happens. I've looked for an
EmissionsWebBll.vb but can't find it. I fear the source code might be
missing but as I'm not very familiar with ASP.NET, could somebody tell
me whether I should actually be looking for this file or whether I'm
getting confused? I have file called EmissionsWebBll.dll, is there a
way to recover the vb source code from that file?
Thanks for the help
Maelle
Public Class Secure
Inherits System.Web.UI.Page
Protected WithEvents txtUserName As
System.Web.UI.WebControls.TextBox
Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
Protected WithEvents btnNewRptYear As
System.Web.UI.WebControls.Button
Protected WithEvents vlUserName As
System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents vlPassword As
System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents lblStatus As System.Web.UI.WebControls.Label
Protected WithEvents txtPassword As
System.Web.UI.WebControls.TextBox
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form
Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
End If
End Sub
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnSubmit.Click
Dim RptYear As String = CType(Request.Form("eYear"), Integer)
- 1 & "/" & Request.Form("eYear")
Dim LoginID As String
'Check to see whether username and password exists
If EmissionsWebBLL.Security.ValidateLogin(txtUserName.Text,
txtPassword.Text, RptYear) = True Then
'First check to see whether its the users first login
If EmissionsWebBLL.Security.ValidateFirstLogin(txtUserName.Text,
txtPassword.Text) = True Then
'User has changed password previously, now check how
long ago password was changed
If EmissionsWebBLL.Security.ValidatePasswordHistory(txtUserName.Text,
txtPassword.Text, RptYear) = False Then
'Password needs changing
Response.Redirect("PasswordChange.aspx?Username="
& txtUserName.Text)
Else
'Everything aok, proceed to asp page with login in
querystring
LoginID =
EmissionsWebBLL.Security.GetLoginID(txtUserName.Text,
txtPassword.Text, RptYear)
Response.Redirect("getUserDetails.asp?LoginID=" &
LoginID)
End If
Else
'User needs to activiate a new password, redirect to
FirstLogin page
Response.Redirect("FirstLogin.aspx?Username=" &
txtUserName.Text)
End If
Else
lblStatus.Text = "Incorrect username or password, try
again."
End If
End Sub
Private Sub btnNewRptYear_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnNewRptYear.Click
Dim RptYear As String = CType(Request.Form("eYear"), Integer)
- 1 & "/" & Request.Form("eYear")
'Check to see whether username and password exists
If EmissionsWebBLL.Security.ValidateLogin(txtUserName.Text,
txtPassword.Text, RptYear) = True Then
Response.Redirect("NewRPTYearSetup.asp?Alias=" &
txtUserName.Text)
Else
lblStatus.Text = "Incorrect username or password, try
again. To activate this function you must also select the most recent
reporting year."
End If
End Sub
End Class