74 lines
3.4 KiB
Plaintext
74 lines
3.4 KiB
Plaintext
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 |