مشكلة تعدد المستخدمين

Imports System.Data

Imports Microsoft.VisualBasic

Imports System.IO

Imports System.Data.SqlClient

Public Module modl2

'Public cn As New SqlConnection()

Public strsql1, path1 As String

Public cmd1 As New SqlCommand()

' Public cmd1() As SqlCommand()

Public dr As SqlDataReader

End Module

Partial Class login

Inherits System.Web.UI.Page

Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click

'------------------------------------- تسجيل الدخول ------------

If (cn.State And ConnectionState.Open) <> 0 Then

cn.Close()

End If

strsql1 = "select emp_id,emp_name,emp_pass,tech_id,marh_id,mada_id from tech where emp_pass='" & TextBox2.Text & "'"

strsql1 = strsql1 + " and emp_name ='" & TextBox1.Text & "'"

strsql1 = strsql1 + " and emp_id ='" & down1.Text & "'"

'--------------------------------------------

cn.Open()

cmd1.Connection = cn

cmd1.CommandText = strsql1

dr = cmd1.ExecuteReader

If dr.HasRows = False Then

Labmsg.Text = "اسم المستخدم او كلمة السر خاطئة"

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.Focus()

Else

Session("login") = TextBox1.Text

Session("name") = "aa"

' If IsPostBack = False Then

Session.Add("txtname", TextBox1.Text)

Session.Add("txtpass", TextBox2.Text)

' Me.Application("CurrentVisitors") = CInt(Me.Application("CurrentVisitors") + 1)

Labmsg.Text = Me.Application("CurrentVisitors")

i = Me.Application("CurrentVisitors")

'End If

dr.Read()

p_techid = dr.Item("tech_id")

p_name3 = dr.Item("emp_name")

p_marh = dr.Item("marh_id")

p_mada = dr.Item("mada_id")

p_empid = dr.Item("emp_id")

p_empchang = p_empid

dr.Close()

'------------------------ راجع الكود -----------

Select Case p_empid

Case 1

Response.Redirect("addemp.aspx", True)

Case 2

p_chang = 4

Response.Redirect("mainhome.aspx", True)

Case 3

p_chang = 1

Response.Redirect("mainhome.aspx", True)

Case 4

p_chang = 1

Response.Redirect("mainhome.aspx", True)

Case 5

p_chang = 3

Response.Redirect("mainhome.aspx", True)

Case 6

p_chang = 1

Response.Redirect("mainhome.aspx", True)

Case 7

p_chang = 1

Response.Redirect("mainhome.aspx", True)

Case 8

p_chang = 2

Response.Redirect("mainhome.aspx", True)

End Select

End If

End Sub

Protected Sub Page_Init(sender As Object, e As System.EventArgs) Handles Me.Init

'If IsPostBack = False Then

' Me.Application("CurrentVisitors") = CInt(Me.Application("CurrentVisitors") + 1)

'Labmsg.Text = Me.Application("CurrentVisitors")

' z = Me.Application("CurrentVisitors")

' i = z

' End If

' i = Me.Request.UserHostAddress

End Sub

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

'Dim mycookie As HttpCookie = Request.Cookies("usercookie")

'Dim txthany As HttpCookie

'Dim z As New Integer

If (cn.State And ConnectionState.Open) <> 0 Then

cn.Close()

End If

path1 = Server.MapPath("~")

cn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & path1

cn.ConnectionString = cn.ConnectionString + "\App_Data\manar2012.mdf;Integrated Security=True;User Instance=True"

cn.Open()

'//-------------------------------------------

'txthany = New HttpCookie("txthany")

' If Page.IsPostBack = False Then

' Session.Clear()

' txthany.Value = i

' Response.Cookies.Add(txthany)

' If mycookie.Value.ToString = Nothing Then

' MsgBox("hi hany")

' z = i

' i = mycookie.Values("z").ToString

' i = mycookie.Values("i")

'End If

'End If

End Sub

Protected Sub down1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles down1.SelectedIndexChanged

Labmsg.Text = down1.SelectedItem.Text

End Sub

Protected Sub Page_Unload(sender As Object, e As System.EventArgs) Handles Me.Unload

End Sub

End Class

' Labmsg.Text = Me.Request.Browser.Browser