1. 在计算机的 CD-ROM 或 DVD-ROM 驱动器中插入 Windows Server 2003 光盘。
2. 单击 开始 ，单击 运行 ，然后键入 dcpromo 。
3. 单击 确定 以启动“Active Directory 安装向导”，然后单击 下一步 。
4. 单击“新域的域控制器”，然后单击 下一步 。
5. 单击“在新目录林中的域”，然后单击 下一步 。
6. 为新域指定完整的 DNS 名称。请注意，因为该过程用于实现实验室环境，而不是将该环境集成到现有的 DNS 基础结构中，因此可以在该设置中使用诸如 mycompany.local 之类的一般名称。单击 下一步 。
7. 接受域的默认 NetBIOS 名（如果使用第 6 步中的建议，则它为“mycompany”）。单击 下一步 。
8. 将数据库和日志文件的位置设置为在默认设置 c:\winnt\ntds 文件夹下，然后单击 下一步 。
9. 将 Sysvol 文件夹的位置设置为在默认设置 c:\winnt\sysvol 文件夹下，然后单击 下一步 。
10. 单击“在这台计算机上安装并配置 DNS 服务器”，然后单击 下一步 。
11. 单击“只与 Windows 2000 或 Windows Server 2003 服务器或操作系统兼容的权限”，然后单击 下一步 。
12. 因为这是实验室环境，所以将目录服务恢复模式的管理员密码留为空白。请注意，在完整的生产环境中，应通过使用安全密码格式设置此密码。单击 下一步 。
13. 检查并确认所选择的选项，然后单击 下一步 。
14. Active Directory 的安装将继续进行。请注意，该操作将需要几分钟。
15. 出现提示时，重新启动计算机。计算机重新启动后，确认已经为新的域控制器创建了域名系统 (DNS) 服务位置记录。若要确认已创建了 DNS 服务位置记录，请按照下列步骤操作：
    1. 单击 开始 ，指向 管理工具 ，然后单击 DNS ，以启动 DNS 管理控制台。
    2. 展开该服务器名称，再展开 正向搜索区域 ，然后展开该域。
    3. 确认 _msdcs、_sites、_tcp 和 _udp 文件夹已存在。这些文件夹和它们包含的服务位置记录对于 Active Directory 和 Windows Server 2003 的运行至关重要。

二、将用户和计算机添加到 Active Directory 域中

新的 Active Directory 域建立后，在该域中创建一个用户帐户作为管理帐户。在将该用户添加到适当的安全组中时，使用该帐户将计算机添加到域中。

1. 若要创建新用户，请按照下列步骤操作：
   1. 单击 开始 ，指向 管理工具 ，然后单击“Active Directory 用户和计算机”，以启动 Active Directory 用户和计算机控制台。
   2. 单击已创建的域名，然后展开这些目录。
   3. 右键单击 用户 ，指向 新建 ，然后单击 用户 。
   4. 键入新用户的名、姓和用户登录名，然后单击 下一步 。
   5. 键入新密码，确认密码，然后单击以选中以下复选框之一：
      
      • 用户下次登录时须更改密码（推荐多数用户采用）
      • 用户不能更改密码
      • 密码永不过期
      • 帐户已停用
      单击 下一步 。
   6. 检查提供的信息是否每一项均正确，单击 完成 。
2. 创建新用户后，让该用户帐户成为能够允许用户执行管理任务的组中的成员。因为所控制的是实验室环境，所以可以通过使其成为 Schema、Enterprise 和 Domain Administrators 组的成员，授予该用户帐户完全的管理访问权限。若要将帐户添加到 Schema、Enterprise 和 Domain Administrators 组，请按照下列步骤操作：
   1. 从“Active Directory 用户和计算机”控制台，右键单击已创建的新帐户，然后单击 属性 。
   2. 单击 隶属于 选项卡，然后单击 添加 。
   3. 在 选择组 对话框中，指定一个组，然后单击 确定 将所需组添加到列表中。
   4. 对用户要在其中具有帐户成员资格的每一个组重复选择过程。
   5. 单击 确定 完成。
3. 该过程的最后一步是将成员服务器添加到域中。该过程也适用于工作站。若要向域中添加计算机，请按照下列步骤操作：
   1. 登录到要将其添加到域的计算机。
   2. 右键单击 我的电脑 ，然后单击 属性 。
   3. 单击 计算机名 选项卡，然后单击 更改 。
   4. 在 计算机名更改 对话框中，单击 隶属于 下方的 域 ，然后键入域名。单击 确定 。
   5. 在显示提示后，键入您以前创建的帐户的用户名和密码，然后单击 确定 。
      将显示欢迎您来到该域的消息。
   6. 单击 确定 返回到 计算机名 选项卡，然后单击 确定 完成。
   7. 出现提示时，重新启动计算机。

经过以上步骤的设置，你就可以充分使用LDAP带来的便利了，我还在研究中，等研究出来了到时候在发出文章来好了。
原文地址：http://www.cnblogs.com/echo/archive/2005/03/18/120972.html 

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Security;
using System.Web.SessionState;

namespace WebApplication1
{
    public class Global : System.Web.HttpApplication
    {

        protected void Application_Start(object sender, EventArgs e)
        {

        }

        protected void Session_Start(object sender, EventArgs e)
        {

        }

        protected void Application_BeginRequest(object sender, EventArgs e)
        {
            string FileName = HttpContext.Current.Request.FilePath.ToLower();
            DateTime BTime = new DateTime(2009, 10, 1);
            DateTime ETime = new DateTime(2009, 10, 9);

            DateTime TTime = Convert.ToDateTime(DateTime.Now.ToString());

            if (FileName.IndexOf("admin") > 0)
            {
                if ( BTime <= TTime && TTime <= ETime)
                {
                    HttpContext.Current.Response.Write("国庆期间(10月1日-10月8日)封网，不允许进行信息发布操作。");
                    HttpContext.Current.Response.End();
                }
            }
        }

        protected void Application_AuthenticateRequest(object sender, EventArgs e)
        {

        }

        protected void Application_Error(object sender, EventArgs e)
        {

        }

        protected void Session_End(object sender, EventArgs e)
        {

        }

        protected void Application_End(object sender, EventArgs e)
        {

        }
    }
}

只要是在路径中包含有admin的信息的，就不能进去后台了，过了这个设定的时间网站一切恢复正常，呵呵~~~简单吧，当然这个代码还有再深度挖掘的必要，时间限制就没有去检测跟改进了，希望网友可以提出宝贵意见，谢谢啦。

<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Function GetFolder(Path)
Set Fso=Server.Createobject("Scripting.FileSystemObject")
dim CurFolder,folderPath,responseStr
CurFolder=trim(Path)
CurFolder=replace(CurFolder,"\","/")
If Left(CurFolder,1)<>"/" then
 Response.Write "&nbsp;&nbsp;找不到该文件目录。"
Else
 Dim i:i=0
 Dim j:j=0
 FolderPath= VRootDir & CurFolder
 FolderPath=Replace(FolderPath,"//","/")
 If Fso.Folderexists(Server.mappath(FolderPath)) Then
  Set Folder=Fso.Getfolder(Server.Mappath(FolderPath))

  If SubPath="" Then
  Response.Write("<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
  Response.Write("<tr>")
  
  Set Rs=Server.CreateObject("Adodb.RecordSet")
  Rs.CursorLocation = 1
  Rs.CursorType = 1
  Rs.Fields.Append "FileName",200,255
  Rs.Fields.Append "FileDate",200,255
  Rs.open
  If Err.number <> 0 Then
   Response.Write(Err.Description)
   Response.End()
  End if
  For Each ChildFolder in Folder.Subfolders
   Rs.AddNew
   Rs.Fields("FileName") = ChildFolder.Name
   Rs.Fields("FileDate") = ChildFolder.DateLastModified
   Rs.Update
  Next
  Rs.Sort = "FileName Desc"
  If Not (Rs.Eof Or Rs.Bof) Then
   Rs.MoveFirst
  End If
  Do While Not Rs.EOF
   i=i+1
   Response.Write("<td height=""30""><a href=""Sys_FileManager.asp?Element="&Element&"&SubPath="&Rs("FileName")&"""><img src=""Images/Filetype/folder.gif"" align=""absmiddle"" style=""border:0px"">&nbsp;"&Rs("FileName")&"</a></td>")
   If i Mod 3=0 Then
    Response.Write("</tr><tr>")
   End if
  Rs.MoveNext
  Loop
  Rs.close
  Set Rs=Nothing
  Response.Write("</tr>")
  Response.Write("<Table>")
  End If
  Response.Write("<div style=""width:350px;height:1px; line-height:1px;border-bottom:solid 1px #c5cdd4""></div>") 
  Response.Write("<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
  Response.Write("<tr>")
  If Right(Path,1)<>"/" Then
   Path=Path&"/"
  End If
  
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Rs.CursorLocation = 1
  Rs.CursorType = 1
  Rs.Fields.Append "FileName",200,255
  Rs.Fields.Append "FileDate",200,255
  Rs.open
  If Err.number <> 0 Then
   Response.Write(Err.Description)
   Response.End()
  End if
  
  For Each Item In Folder.Files
  Rs.AddNew
  Rs.Fields("FileName") = item.Name
  Rs.Fields("FileDate") = item.dateLastModified
  Rs.Update
  Next
  Rs.Sort = "FileDate Desc"
  If Not (Rs.Eof Or Rs.Bof) Then
   Rs.MoveFirst
  End If
  
  Do While Not Rs.EOF
   j=j+1
   Response.Write("<td height=""30"" style=""table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"" valign=""top"" align=""center""><a href=""javascript:GetValue('"&Path&Rs("filename")&"')""><img src="""&Path&"/"&Rs("filename")&""" align=""absmiddle"" width=""100"" height=""100"" style=""border:solid 1px #CCCCCC;""><br/>"&Rs("filename")&"</a></td>")
   If j Mod 3=0 Then
    Response.Write("</tr><tr>")
   End if
  Rs.MoveNext
  Loop
  Rs.close
  Set Rs=Nothing
  
  If j=0 Then
  Response.Write "该文件目录下不存在任何文件。"
  End If
  Response.Write("</tr>")
  Response.Write("<Table>")
 Else
  Response.Write("&nbsp;&nbsp;找不到该文件目录。")
 End If
End If
End Function
%>

注意下其中用到了Adodb.RecordSet对象，先将临时对象存入到RS中然后进行数据库表的排序，呵呵，跟.net一样，只是以前压根没有想到Asp居然也可以这样。