Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
End ClassДругой, более сложный вариант:
Imports Microsoft.VisualBasic Imports System.Configuration Imports System.Data 'подключаю классы работы с БД Imports System.Data.OleDb 'для использования формата данных DataView Imports System.Web.Security Imports System.Web.UI.HtmlControls Imports System.Web.UI.WebControls Imports System.DBNull
Partial Class _Default Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dv As DataView Dim id, p, l, fio As String If TextBox1.Text <> "" Or TextBox2.Text <> "" Then dv = CType(SqlDataSource1.Select(DataSourceSelectArguments.Empty), DataView) 'получаю результат запроса SELECT If dv.Count <> 0 Then 'проверка есть ли данные в запросе id = CType(dv.Table(0)(0), String) 'записываю в переменную id p = CType(dv.Table(0)(1), String) 'записываю в переменную пароль l = CType(dv.Table(0)(2), String) 'записываю в переменную логин fio = CType(dv.Table(0)(3), String) 'Label1.Text = "Вы уже прошли регистрацию!Здравствуйте," & fio 'Label1.Visible = True Session.Add("id_user", id) Session.Add("fio", fio) SqlDataSource2.Delete() Response.Redirect("./end_reg.aspx") End If If dv.Count = 0 Then Label1.Text = "Введите регистрационные данные" Label1.Visible = True Button2.Visible = True Button3.Visible = True TextBox3.Visible = True TextBox4.Visible = True Label4.Visible = True Label5.Visible = True Button1.Visible = False End If
End If End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Visible = False Label2.Text = "Login" Label3.Text = "Пароль" Label4.Visible = False Label5.Visible = False Label4.Text = "ФИО" Label5.Text = "e-mail" Button2.Visible = False Button3.Visible = False Button4.Visible = False TextBox3.Visible = False TextBox4.Visible = False End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = "" TextBox2.Text = "" TextBox1.Focus() Label1.Visible = False Button2.Visible = False Button3.Visible = False TextBox3.Visible = False TextBox4.Visible = False Button1.Enabled = True Label4.Visible = False Label5.Visible = False End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox3.Text <> "" And TextBox4.Text <> "" Then
SqlDataSource1.Insert()
TextBox1.Text = "" TextBox2.Text = "" TextBox1.Enabled = False TextBox2.Enabled = False Button1.Enabled = False Button2.Visible = False Button3.Visible = False Button4.Visible = True 'Session.Add("id_user", ID) Response.Redirect("./Reg.aspx") Else: Label1.Text = "Введите регистрационные данные!" End If End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click Button1.Enabled = True Response.Redirect("./Main.aspx") End Sub End Class
|