login.aspx.vb

与房地产相关的各项活动

'文件名:Login.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Partial Class SystemManage_Login
    Inherits System.Web.UI.Page
    Protected Sub Login1_LoggedIn(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login1.LoggedIn
        Session("MyUserName") = Me.Login1.UserName
        Dim MyForbidString As New System.Text.StringBuilder()
        MyForbidString.Append("禁止操作权限：A1A2A3B1B2B3B4C1C2C3C4D1D2D3D4D5E1E2")
        Dim MyConnectionString As String = ConfigurationManager.ConnectionStrings("MyHouseDBConnectionString").ConnectionString
        Dim MySQL As String = "Select * From 操作用户 Where 用户名称='" + Me.Login1.UserName + "'"
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnectionString)
        Dim MyTable As New DataTable()
        MyAdapter.Fill(MyTable)
        If (MyTable.Rows.Count > 0) Then
            If (MyTable.Rows(0)("资料管理之房源字典设置") = 1) Then
                MyForbidString.Replace("A1", "是")
            End If
            If (MyTable.Rows(0)("资料管理之公司职员设置") = 1) Then
                MyForbidString.Replace("A2", "是")
            End If
            If (MyTable.Rows(0)("资料管理之业务资料管理") = 1) Then
                MyForbidString.Replace("A3", "是")
            End If
            If (MyTable.Rows(0)("房源管理之出售房源管理") = 1) Then
                MyForbidString.Replace("B1", "是")
            End If
            If (MyTable.Rows(0)("房源管理之出租房源管理") = 1) Then
                MyForbidString.Replace("B2", "是")
            End If
            If (MyTable.Rows(0)("房源管理之查询可售房源") = 1) Then
                MyForbidString.Replace("B3", "是")
            End If
            If (MyTable.Rows(0)("房源管理之查询可租房源") = 1) Then
                MyForbidString.Replace("B4", "是")
            End If
            If (MyTable.Rows(0)("客源管理之求购客源管理") = 1) Then
                MyForbidString.Replace("C1", "是")
            End If
            If (MyTable.Rows(0)("客源管理之求租客源管理") = 1) Then
                MyForbidString.Replace("C2", "是")
            End If
            If (MyTable.Rows(0)("客源管理之查询求购客源") = 1) Then
                MyForbidString.Replace("C3", "是")
            End If
            If (MyTable.Rows(0)("客源管理之查询求租客源") = 1) Then
                MyForbidString.Replace("C4", "是")
            End If
            If (MyTable.Rows(0)("成交管理之广告发布管理") = 1) Then
                MyForbidString.Replace("D1", "是")
            End If
            If (MyTable.Rows(0)("成交管理之经纪跟进管理") = 1) Then
                MyForbidString.Replace("D2", "是")
            End If
            If (MyTable.Rows(0)("成交管理之租售成交管理") = 1) Then
                MyForbidString.Replace("D3", "是")
            End If
            If (MyTable.Rows(0)("成交管理之查询售房信息") = 1) Then
                MyForbidString.Replace("D4", "是")
            End If
            If (MyTable.Rows(0)("成交管理之查询租房信息") = 1) Then
                MyForbidString.Replace("D5", "是")
            End If       
            If (MyTable.Rows(0)("系统管理之分配用户权限") = 1) Then
                MyForbidString.Replace("E1", "是")
            End If
            If (MyTable.Rows(0)("系统管理之公司信息设置") = 1) Then
                MyForbidString.Replace("E2", "是")
            End If
            Session("MyForbid") = MyForbidString
        End If
    End Sub
End Class