edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Login logik wurde verbessert

Browse Source
This commit is contained in:
ja
2021-09-22 10:40:32 +02:00
parent ff088ba692
commit 87d560c788
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/CustomsAviso.aspx.vb
View File

@@ -155,7 +155,6 @@ Partial Class Kundenbereich_Default
'MsgBox(Session.Item("test").ToString) 'MsgBox(Session.Item("test").ToString)
'MsgBox(Session.Item("CustomerID").ToString) 'MsgBox(Session.Item("CustomerID").ToString)
'MsgBox(Session.Item("PW").ToString) 'MsgBox(Session.Item("PW").ToString)
Kdnrtext = Session.Item("CustomerID").ToString Kdnrtext = Session.Item("CustomerID").ToString
dt = Nothing dt = Nothing
@@ -322,6 +321,7 @@ Partial Class Kundenbereich_Default
ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
End If End If
i += 1 i += 1
Next Next
Else Else

9
login/login_FLEX.aspx.vb
View File

@@ -38,13 +38,17 @@ Partial Class login_login_TEST
Login1.FailureText = "Account has not been activated." Login1.FailureText = "Account has not been activated."
Exit Select Exit Select
Case Else Case Else
If Session.IsNewSession = True Then
Session.Add("test", Login1.UserName) Session.Add("test", Login1.UserName)
CustomerIDTextBox = Login1.FindControl("CustomerID") CustomerIDTextBox = Login1.FindControl("CustomerID")
Session.Add("CustomerID", CustomerIDTextBox.Text) Session.Add("CustomerID", CustomerIDTextBox.Text)
Session.Add("PW", Login1.Password) Session.Add("PW", Login1.Password)
FormsAuthentication.RedirectFromLoginPage(Login1.UserName, Login1.RememberMeSet) FormsAuthentication.RedirectFromLoginPage(Login1.UserName, Login1.RememberMeSet)
Else
FormsAuthentication.RedirectFromLoginPage(Login1.UserName, Login1.RememberMeSet)
End If
'FormsAuthentication.SetAuthCookie(Login1.UserName, True) 'FormsAuthentication.SetAuthCookie(Login1.UserName, True)
'Response.Redirect("mypage.aspx") 'Response.Redirect("mypage.aspx")
Exit Select Exit Select
@@ -54,7 +58,6 @@ Partial Class login_login_TEST
con.Close() con.Close()
End Using End Using
End Using End Using
End Sub End Sub