在企業(yè)內(nèi)部，一般會(huì)部署微軟AD域和內(nèi)部站點(diǎn)，都需要進(jìn)行登陸驗(yàn)證。那么如何實(shí)現(xiàn)讓AD域和網(wǎng)站集成呢？答案是肯定的。本文將介紹ASP站點(diǎn)如何使用域賬號(hào)進(jìn)行登陸驗(yàn)證。 編輯登陸頁(yè)面首先，我們需要用編輯器打開(kāi)

在企業(yè)內(nèi)部，一般會(huì)部署微軟AD域和內(nèi)部站點(diǎn)，都需要進(jìn)行登陸驗(yàn)證。那么如何實(shí)現(xiàn)讓AD域和網(wǎng)站集成呢？答案是肯定的。本文將介紹ASP站點(diǎn)如何使用域賬號(hào)進(jìn)行登陸驗(yàn)證。

編輯登陸頁(yè)面

首先，我們需要用編輯器打開(kāi)站點(diǎn)的登陸頁(yè)面。在頁(yè)面底部加入以下ASP代碼：

```asp

' 目的：用戶檢測(cè)界面

sub chk(UserName, Password)

dim strUser ' assume failure

AuthenticateUser false

strUser UserName ' 對(duì)應(yīng)用戶名文本框

strPassword Password ' 對(duì)應(yīng)密碼文本框

domain"" ' 對(duì)應(yīng)AD域名

strQuery "SELECT cn FROM 'LDAP://Domain' WHERE objectClass'*' "

set oConn ("")

"ADsDSOOBJECT"

("User ID") strUser

("Password") strPassword

("Encrypt Password") true

"DS Query", strUser, strPassword

set cmd ("")

set oConn

strQuery

on error resume next

set oRS cmd.Execute

if or oRS.eof then

response.write("")

else

""

end if

set oRS nothing

set oConn nothing

end sub

```

將賬戶名寫(xiě)入Session

如果要將登陸的賬戶名寫(xiě)入session，可以在以下位置加入代碼：

```asp

"ADsDSOObject"

("User ID") strUser

("Password") strPassword

("Encrypt Password") True

strConn "Active Directory Provider"

strConn , strUser, strPassword

strRS "SELECT name,memberOf,sAMAccountName,primaryGroupID FROM 'LDAP://Domain' WHERE sAMAccountName '""userName""' ORDER by name "

strRS, Conn,1,1

While RS.EOF False

session("web_admin")("sAMAccountName")

session("cname")("name")

Wend

```

通過(guò)以上步驟，您可以輕松地實(shí)現(xiàn)ASP站點(diǎn)與AD域賬號(hào)的集成登陸驗(yàn)證。這種方法不僅提高了安全性，還簡(jiǎn)化了用戶管理流程。希望這些指導(dǎo)能幫助您成功實(shí)現(xiàn)賬號(hào)驗(yàn)證功能。