Initial Commit Update Telerik

This commit is contained in:
2022-01-07 19:26:33 +01:00
commit 57e1cda236
2174 changed files with 1202494 additions and 0 deletions

View File

@@ -0,0 +1,42 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Bestaetigung_Kontoinformationen.aspx.vb" Inherits="LPWeb.Bestaetigung_Kontoinformationen" %>
<%@ Register Src="~/Defaults/Header1.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" runat="server">
<telerik:RadScriptManager ID="ScriptManager1" runat="server"
EnableTheming="True">
<scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</scripts>
</telerik:RadScriptManager>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Konto-Informationen gespeichert</h2>
<p>Ihre Kontoinformaitonen wurden erfolgreich gespeichert.</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

View File

@@ -0,0 +1,69 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class Bestaetigung_Kontoinformationen
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''ScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header1
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
End Class

View File

@@ -0,0 +1,8 @@
Public Class Bestaetigung_Kontoinformationen
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

View File

@@ -0,0 +1,112 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="KontoInformationen.aspx.vb" Inherits="LPWeb.KontoInformationen" %>
<%@ Register Src="~/Defaults/Header.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
<style type="text/css">
.style1
{
width: 126px;
}
</style>
</head>
<script runat="server">
Public Sub CheckID(source As Object, args As ServerValidateEventArgs)
Check_Userid(source, args)
End Sub
Public Sub CheckCaptcha(source As Object, args As ServerValidateEventArgs)
Check_Captcha(source, args)
End Sub
</script><body>
<body>
<form id="form1" runat="server">
<telerik:RadScriptManager ID="ScriptManager1" runat="server"
EnableTheming="True">
<scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</scripts>
</telerik:RadScriptManager>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Konto-Informationen</h2>
&nbsp;<asp:ValidationSummary ID="ValidationSummary1" runat="server" ForeColor="Red"
HeaderText="Folgende Fehler sind vorhanden:" />
<p>
<table style="width:100%;">
<tr>
<td class="style1">
Benutzername</td>
<td>
<asp:TextBox ID="txtBenutzername" runat="server" Width="250px"></asp:TextBox>
<asp:CustomValidator ID="CV1" runat="server" controltovalidate="txtBenutzername"
errormessage="Benutzername bereits vergeben" OnServerValidate="CheckID"
ForeColor="White" />
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style1">
Passwort</td>
<td>
<asp:TextBox ID="txtPasswort" runat="server" TextMode="Password" Width="250px"></asp:TextBox>
<asp:RegularExpressionValidator ID="Regex3" runat="server" ControlToValidate="txtPasswort"
ErrorMessage="Passwort muss ein Sonderzeichen @#$%^&amp;.*/ beinhalten"
ValidationExpression=".*[@#$%^&*/].*" ForeColor="White" />
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style1">
Wiederholung</td>
<td>
<asp:TextBox ID="txtPasswort1" runat="server" TextMode="Password" Width="250px"></asp:TextBox>
<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="txtpasswort" ControlToCompare="txtPasswort1" ErrorMessage="Passworte nicht identisch" ForeColor="Red"></asp:CompareValidator>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style1">
E-Mail</td>
<td>
<asp:TextBox ID="txtEMail" runat="server" Width="250px"></asp:TextBox>
<asp:RegularExpressionValidator ID="Eegex1" runat="server" ErrorMessage="E-Mail-Adresse ungültig" ForeColor="White" ControlToValidate="txtEmail" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">*</asp:RegularExpressionValidator>
</td>
<td>
&nbsp;</td>
</tr>
</table>
<telerik:RadCaptcha
ID="RadCaptcha1" Runat="server" ErrorMessage="Sicherheitscode fehlt oder ist ungültig"
CaptchaTextBoxLabel="Bitte den Sicherheitscode aus dem Bild eingeben" >
</telerik:RadCaptcha>
<telerik:RadButton ID="btnSave" runat="server"
Text="Änderungen speichern">
</telerik:RadButton>
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

View File

@@ -0,0 +1,168 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class KontoInformationen
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''ScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''ValidationSummary1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ValidationSummary1 As Global.System.Web.UI.WebControls.ValidationSummary
'''<summary>
'''txtBenutzername-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtBenutzername As Global.System.Web.UI.WebControls.TextBox
'''<summary>
'''CV1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents CV1 As Global.System.Web.UI.WebControls.CustomValidator
'''<summary>
'''txtPasswort-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtPasswort As Global.System.Web.UI.WebControls.TextBox
'''<summary>
'''Regex3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Regex3 As Global.System.Web.UI.WebControls.RegularExpressionValidator
'''<summary>
'''txtPasswort1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtPasswort1 As Global.System.Web.UI.WebControls.TextBox
'''<summary>
'''CompareValidator1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents CompareValidator1 As Global.System.Web.UI.WebControls.CompareValidator
'''<summary>
'''txtEMail-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtEMail As Global.System.Web.UI.WebControls.TextBox
'''<summary>
'''Eegex1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Eegex1 As Global.System.Web.UI.WebControls.RegularExpressionValidator
'''<summary>
'''RadCaptcha1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadCaptcha1 As Global.Telerik.Web.UI.RadCaptcha
'''<summary>
'''btnSave-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents btnSave As Global.Telerik.Web.UI.RadButton
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
End Class

View File

@@ -0,0 +1,56 @@
Public Class KontoInformationen
Inherits System.Web.UI.Page
Dim pw As String = ""
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim clsdata As New clsDatahandling
Dim dt As New DataSet
dt = clsdata.Get_Tabledata("Select * from web_user where eintragnr=" + Session.Item("UserID").ToString, False, True)
Me.txtBenutzername.Text = dt.Tables(0).Rows(0).Item("Username")
Me.txtPasswort.Text = dt.Tables(0).Rows(0).Item("Passwort")
Me.txtPasswort.Attributes.Add("Value", dt.Tables(0).Rows(0).Item("Passwort"))
Me.txtPasswort1.Text = dt.Tables(0).Rows(0).Item("Passwort")
Me.txtPasswort1.Attributes.Add("Value", dt.Tables(0).Rows(0).Item("Passwort"))
Me.txtEMail.Text = dt.Tables(0).Rows(0).Item("Email")
End If
End Sub
Public Function Check_Userid(source As Object, args As ServerValidateEventArgs)
Dim dh As New clsDatahandling
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from web_user where Username='" + Me.txtBenutzername.Text + "' and eintragnr <> " + Session("UserID").ToString, False, True)
If ds.Tables(0).Rows.Count > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
End Function
Public Function Check_Captcha(source As Object, args As ServerValidateEventArgs)
If Me.RadCaptcha1.IsValid = False Then
Me.ValidationSummary1.Visible = True
args.IsValid = False
Else
args.IsValid = True
End If
End Function
Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If Page.IsValid Then
Dim dh As New clsDatahandling
Try
dh.UpdateTable("Web_User", "Username", Me.txtBenutzername.Text, True, "eintragnr", Session("Userid"))
dh.UpdateTable("Web_User", "Passwort", Me.txtPasswort.Text, True, "eintragnr", Session("Userid"))
dh.UpdateTable("Web_User", "EMail", Me.txtEMail.Text, True, "eintragnr", Session("Userid"))
dh.UpdateTable("Web_User", "Mutiert_am", Now, False, "eintragnr", Session("Userid"))
dh.UpdateTable("Web_User", "Mutierer", Session("Userid"), False, "Eintragnr", Session("Userid"))
Response.Redirect("~/User/Bestaetigung_Kontoinformationen.aspx")
Catch ex As Exception
End Try
End If
End Sub
End Class

View File

@@ -0,0 +1,96 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="NewPassword.aspx.vb" Inherits="LPWeb.NewPassword" %>
<%@ Register Src="~/Defaults/Header1.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" /></head>
<body>
<div class="page">
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
<Scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</Scripts>
</telerik:RadScriptManager>
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Neues Passwort anfordern</h2>
<br />
<table style="width: 100%;">
<tr>
<td width="160">
Benutzer-Name</td>
<td>
<telerik:RadTextBox ID="txtBenutzername" Runat="server">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td>
E-Mail-Adresse</td>
<td>
<telerik:RadTextBox ID="txtEmail" Runat="server">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td valign="top">
Sicherheitscode</td>
<td>
<telerik:RadCaptcha ID="RadCaptcha1" Runat="server" CaptchaTextBoxLabel="">
</telerik:RadCaptcha>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2" valign="top">
<asp:Label ID="lblError" runat="server" ForeColor="Red"></asp:Label>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2" valign="top">
&nbsp;&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td valign="top">
&nbsp;</td>
<td>
<telerik:RadButton ID="RadButton1" runat="server" Text="Daten senden">
</telerik:RadButton>
</td>
<td>
&nbsp;</td>
</tr>
</table>
<br />
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</form>
</body>
</html>

114
LPWeb20/User/NewPassword.aspx.designer.vb generated Normal file
View File

@@ -0,0 +1,114 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class NewPassword
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''RadScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header1
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''txtBenutzername-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtBenutzername As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''txtEmail-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtEmail As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''RadCaptcha1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadCaptcha1 As Global.Telerik.Web.UI.RadCaptcha
'''<summary>
'''lblError-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents lblError As Global.System.Web.UI.WebControls.Label
'''<summary>
'''RadButton1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadButton1 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
End Class

View File

@@ -0,0 +1,39 @@
Imports System.Web.Configuration
Public Class NewPassword
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
Dim dh As New clsDatahandling
Dim ds As New DataSet
Dim dm As New DataSet
If Me.RadCaptcha1.IsValid = False Then
Me.lblError.Text = "Eingegebener Sicherheitscode ist falsch."
Exit Sub
End If
ds = dh.Get_Tabledata("Select * from web_user where username='" + Me.txtBenutzername.Text + "' and email='" + Me.txtEmail.Text + "'", False, True)
If ds.Tables(0).Rows.Count < 1 Then
Me.lblError.Text = "Benutzername/Passwort bzw. Kombination ist ungültig. Bitte wiederholen Sie Ihre Eingaben."
Exit Sub
End If
dm = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=2", False, True)
Dim inhalt As String = dm.Tables(0).Rows(0).Item("Inhalt")
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
inhalt = inhalt.Replace("[Username]", ds.Tables(0).Rows(0).Item("Username"))
inhalt = inhalt.Replace("[Passwort]", ds.Tables(0).Rows(0).Item("Passwort"))
Dim csend As New clsSendMail
csend.SendMailMessage("", ds.Tables(0).Rows(0).Item("email").ToString, "", "", dm.Tables(0).Rows(0).Item("Betreff"), inhalt)
dh = Nothing
dm = Nothing
csend = Nothing
Response.Redirect("~/User/NewPasswordBestaetigung.aspx")
End Sub
Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
End Sub
End Class

View File

@@ -0,0 +1,86 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="NewPasswordBestaetigung.aspx.vb" Inherits="LPWeb.NewPasswordBestaetigung" %>
<%@ Register Src="~/Defaults/Header1.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" /></head>
<body>
<div class="page">
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
<Scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</Scripts>
</telerik:RadScriptManager>
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Neues Passwort anfordern</h2>
<br />
Es wurde Ihnen ein Mail mit ihrer User-ID und Ihrem Passwort zugestellt.<br />
<br />
<asp:Panel ID="Panel1" runat="server" BorderStyle="Solid" BorderWidth="1px"
Width="300px">
<table style="width:100%;">
<tr>
<td>
Benutzer-Name</td>
<td>
<telerik:RadTextBox ID="txtBenutzername" Runat="server" EmptyMessage="User-ID"
LabelWidth="64px" Skin="Windows7" Width="160px">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td>
Passwort</td>
<td>
<telerik:RadTextBox ID="txtPasswort" Runat="server" EmptyMessage="Passwort"
LabelWidth="64px" Skin="Windows7" TextMode="Password" Width="160px">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td>
<asp:HyperLink ID="HyperLink2" runat="server"
NavigateUrl="~/User/NewPassword.aspx">Passwort vergessen?</asp:HyperLink>
</td>
<td>
<telerik:RadButton ID="RadButton1" runat="server" Skin="Windows7"
Text="Anmelden">
</telerik:RadButton>
</td>
<td>
&nbsp;</td>
</tr>
</table>
</asp:Panel>
<p>
<asp:Label ID="lblErrorMessage" runat="server" ForeColor="Red"></asp:Label>
</p>
<br />
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</form>
</body>
</html>

View File

@@ -0,0 +1,123 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class NewPasswordBestaetigung
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''RadScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header1
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''Panel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Panel1 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''txtBenutzername-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtBenutzername As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''txtPasswort-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtPasswort As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''HyperLink2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents HyperLink2 As Global.System.Web.UI.WebControls.HyperLink
'''<summary>
'''RadButton1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadButton1 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''lblErrorMessage-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents lblErrorMessage As Global.System.Web.UI.WebControls.Label
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
End Class

View File

@@ -0,0 +1,41 @@
Public Class NewPasswordBestaetigung
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
Dim dh As New clsDatahandling
Dim result As Integer = dh.Check_User(Me.txtBenutzername.Text, Me.txtPasswort.Text)
If result < 0 Then
Me.lblErrorMessage.Text = "Benutzer unbekannt, Kombination Benutzer/Passwort ungültig oder Benutzerprofil noch nicht aktiviert."
Else
Session.Item("LogedIn") = "True"
Session("username") = Me.txtBenutzername.Text
Dim dt As New DataTable
dt = dh.Get_UserUsertype(result)
If dt.Rows(0).Item("UserType") = 9 Then Session.Item("Admin") = "True"
If dt.Rows(0).Item("Firmanr") = 0 And dt.Rows(0).Item("Lehrernr") = 0 Then
'Admin
Session.Item("Menuhandler") = 9
Session.Item("Admin") = "True"
Response.Redirect("~/default.aspx")
Exit Sub
End If
If dt.Rows(0).Item("Firmanr") > 0 Then
'Firma
Session.Item("Firmanr") = dt.Rows(0).Item("Firmanr")
Session.Item("Menuhandler") = 2
Response.Redirect("~/firmen/firmendaten1.aspx")
End If
If dt.Rows(0).Item("Lehrernr") > 0 Then
'Firma
Session.Item("Leherer") = dt.Rows(0).Item("Lehrernr")
Session.Item("Menuhandler") = 3
End If
End If
End Sub
End Class

View File

@@ -0,0 +1,43 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Registerbestaetigung.aspx.vb" Inherits="LPWeb.Registerbestaetigung" %>
<%@ Register Src="~/Defaults/Header1.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" runat="server">
<telerik:RadScriptManager ID="ScriptManager1" runat="server"
EnableTheming="True">
<scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</scripts>
</telerik:RadScriptManager>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<telerik:RadAjaxPanel ID="RadAjaxPanel1" runat="server" height="200px" width="918px">
</telerik:RadAjaxPanel>
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

View File

@@ -0,0 +1,78 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class Registerbestaetigung
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''ScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header1
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''RadAjaxPanel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadAjaxPanel1 As Global.Telerik.Web.UI.RadAjaxPanel
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
End Class

View File

@@ -0,0 +1,16 @@
Imports System.Web.Configuration
Public Class Registerbestaetigung
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Select Case Request.QueryString("fnkt")
Case "Bestaetigung"
Me.RadAjaxPanel1.Controls.Add(Page.LoadControl("~/UserControls/RegisterSend.ascx"))
Case "Aktivierung"
Me.RadAjaxPanel1.Controls.Add(Page.LoadControl("~/UserControls/RegisterActivation.ascx"))
End Select
End Sub
End Class