【Vegas原创】实践AD验证！

        If Not Page.IsPostBack Then
            If Not Request.Cookies("AD_logonid") Is Nothing Then
                '如果已经有logonid信息的cookies存在
                tbxUsrName.Text = Request.Cookies("AD_logonid").Value
            End If

            If Not Request.Cookies("AD_domain") Is Nothing Then
                '如果已经有domain信息的cookies存在
                DomainList.SelectedIndex = DomainList.Items.IndexOf(DomainList.Items.FindByValue(Request.Cookies("AD_domain").Value.Trim))
            End If
        End If

        REM 设置输入焦点
        Dim strBuilder As StringBuilder = New StringBuilder
        '从头到尾判断栏位，如果为空，则使焦点在该栏位上
        strBuilder.Append("<script type=text/javascript>")
        strBuilder.Append(vbCrLf & "function setFocus() {")
        strBuilder.Append(vbCrLf & "if (document.getElementById('tbxUsrName').value == '') {")
        strBuilder.Append(vbCrLf & "document.getElementById('tbxUsrName').focus();")
        strBuilder.Append(vbCrLf & "} else {")
        strBuilder.Append(vbCrLf & "document.getElementById('tbxUsrPwd').focus();")
        strBuilder.Append(vbCrLf & "}")
        strBuilder.Append(vbCrLf & "}")
        strBuilder.Append(vbCrLf & "window.onload=setFocus;")
        strBuilder.Append(vbCrLf & "</script>")
        RegisterClientScriptBlock("Focus", strBuilder.ToString)

    End Sub

        If CheckBox1.Checked = True Then
            '如果为测试使用

            Response.Cookies("AD_logonid").Value = tbxUsrName.Text.ToLower
            Response.Cookies("AD_logonid").Expires = Now.AddDays(7)

            Response.Cookies("AD_domain").Value = DomainList.SelectedValue
            Response.Cookies("AD_domain").Expires = Now.AddDays(7)
            getUser()
            FormsAuthentication.SetAuthCookie(tbxUsrName.Text, False)

            Response.Redirect("vvv.aspx")
        End If

        If objData.CheckNTAccount(tbxUsrName.Text, tbxUsrPwd.Text, DomainList.SelectedValue) Then
            '如果可以成功登陆，写入cookie并将页面导向到vvv.aspx
            getUser()
            Response.Cookies("AD_logonid").Value = tbxUsrName.Text.ToLower
            Response.Cookies("AD_logonid").Expires = Now.AddDays(7)
            Response.Cookies("AD_domain").Value = DomainList.SelectedValue
            Response.Cookies("AD_domain").Expires = Now.AddDays(7)
            FormsAuthentication.SetAuthCookie(tbxUsrName.Text.ToLower, chkrember.Checked)
            Response.Redirect("vvv.aspx")

        Else '如果不能成功登陆，显示出错信息
            Response.Write("<script type=text/javascript>alert('登入失败，请确认你的帐号密码是否正确！');</script>")
        End If
    End Sub

Public Class clsData

    '检查NT帐号
    Public Function CheckNTAccount(ByVal UserName As String, ByVal Password As String _
                    , ByVal Domain As String) As Boolean

        Dim Ad As DirectoryEntry
        Dim ds As DirectorySearcher
        Dim strLDAP As String = ConfigurationSettings.AppSettings("LDAP")

        Ad = New DirectoryEntry(strLDAP, Domain & "\" & UserName, Password, AuthenticationTypes.ServerBind)

        Try
            Dim obj As Object = Ad.NativeObject '检查是否可正常登入
            Return True
        Catch ex As Exception
            Return False
        Finally
            Ad.Dispose()
        End Try

    End Function

    Public Function GetSingleData(ByVal strSql As String, ByVal params() As SqlParameter) As String
        Dim Conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
        Dim Comm As SqlCommand
        Comm = New SqlCommand(strSql, Conn)

        If Not params Is Nothing Then
            Dim param As SqlParameter
            For Each param In params
                Comm.Parameters.Add(param)
            Next
        End If
        Conn.Open()

        Dim strValue As String
        Try
            strValue = Comm.ExecuteScalar().ToString()
        Catch ex As Exception
            strValue = ""
        End Try

        Conn.Close()
        Conn.Dispose()
        Comm.Dispose()

        Return strValue

    End Function
End Class

    <!--  授权 
           此节设置应用程序的授权策略。可以允许或拒绝不同的用户或角色访问
          应用程序资源。通配符: "*" 表示任何人，"?" 表示匿名
          (未经身份验证的)用户。
    -->
    <authorization>
           <deny users="?"/><!-- 允许所有用户 -->

            <!--  <allow     users="[逗号分隔的用户列表]"
                             roles="[逗号分隔的角色列表]"/>
                  <deny      users="[逗号分隔的用户列表]"
                             roles="[逗号分隔的角色列表]"/>
            -->
    </authorization>

<add key="LDAP" value="LDAP://域服务器:389/DC=a,DC=b,DC=com"/>
</appSettings>