Initial Commit Update Telerik

2022-01-07 19:26:33 +01:00
commit 57e1cda236
2174 changed files with 1202494 additions and 0 deletions
--- a/LPWeb20/Lehrer/LehrerRegister.aspx.vb
+++ b/LPWeb20/Lehrer/LehrerRegister.aspx.vb
@@ -0,0 +1,74 @@
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Web.Configuration
+Public Class LehrerRegister
+    Inherits System.Web.UI.Page
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Me.txtAnredea.Focus()
+        Me.Form.DefaultButton = Me.btnRegister.UniqueID
+    End Sub
+
+    Protected Sub btnRegister_Click(sender As Object, e As EventArgs) Handles btnRegister.Click
+        If Not Page.IsValid Then Exit Sub
+        Dim dh As New clsDatahandling
+        Dim dbkey As Integer
+        If dh.Insert_Lehrer(dbkey) = True Then
+            dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", dbkey)
+            dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", dbkey)
+            dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", dbkey)
+            dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue, False, "lehrernr", dbkey)
+            dh.UpdateTable("web_lehrer", "natel", Me.txtNatel.Text, True, "lehrernr", dbkey)
+            dh.UpdateTable("web_lehrer", "Telefon", Me.txtTelefon.Text, True, "lehrernr", dbkey)
+            dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", dbkey)
+            'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", dbkey)
+        End If
+
+        dh.Insert_Web_User(Me.txtUserName.Text, Me.txtPasswort1.Text, 3, 0, dbkey)
+        Dim userkey As Integer = dh.Get_LastKey("Web_User", "Eintragnr") - 1
+
+        Dim KeyGen As RandomKeyGenerator
+        Dim NumKeys As Integer
+        Dim RandomKey As String
+        NumKeys = 1
+
+        KeyGen = New RandomKeyGenerator
+        KeyGen.KeyLetters = "abcdefghijklmnopqrstuvwxyz"
+        KeyGen.KeyNumbers = "0123456789"
+        KeyGen.KeyChars = 46
+        RandomKey = KeyGen.Generate()
+        dh.UpdateTable("Web_User", "VerifyString", RandomKey, True, "Eintragnr", userkey)
+        dh.UpdateTable("Web_User", "EMail", Me.txtEMail.Text, True, "Eintragnr", userkey)
+        Dim mds As New DataSet
+        mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=1", False, True)
+        Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt")
+        inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
+        inhalt = inhalt.Replace("[RegisterLink]", WebConfigurationManager.AppSettings("WebSite") + "/user/" + "RegisterBestaetigung.aspx?fnkt=Aktivierung&Code=" + RandomKey)
+
+        Dim mailer As New clsSendMail
+        mailer.SendMailMessage("", Me.txtEMail.Text, "", "", mds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt)
+        Response.Redirect("~/user/Registerbestaetigung.aspx?fnkt=Bestaetigung")
+
+
+    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.txtUserName.Text + "'", 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
+            args.IsValid = False
+        Else
+            args.IsValid = True
+        End If
+    End Function
+
+End Class