-
Notifications
You must be signed in to change notification settings - Fork 0
/
LoginPage.aspx.vb
47 lines (40 loc) · 1.68 KB
/
LoginPage.aspx.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Windows
Imports System.Collections
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Login.Click
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = "Data Source=HEWLETT-PACKARD\SQLEXPRESS;Initial Catalog=BookMyShow;Integrated Security=True"
con.Open()
cmd.Connection = con
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "login"
cmd.Parameters.Add("@username", SqlDbType.VarChar, 20).Value = txtusername.Text
cmd.Parameters.Add("@password", SqlDbType.VarChar, 50).Value = txtpassword.Text
cmd.Parameters.Add("@result", SqlDbType.Int).Direction = ParameterDirection.Output
cmd.Parameters.Add("@userid", SqlDbType.Int).Direction = ParameterDirection.Output
cmd.ExecuteNonQuery()
Dim value As Integer
Dim uid As Integer
value = cmd.Parameters("@result").Value
If value = 1 Then
msg.Text = "Successful Login"
uid = cmd.Parameters("@userid").Value
Session("uid") = uid
Response.Redirect("Movies.aspx")
Else
msg.Text = "Incorrect Password or Username"
End If
con.Close()
End Sub
Protected Sub Button1_Click1(sender As Object, e As EventArgs) Handles Signup.Click
Response.Redirect("signup.aspx")
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub
End Class