IIsIPSecurity.GrantByDefault (ADSI)

可以使用 IIsIPSecurity (ADSI) 对象的 GrantByDefault 属性设置如何指定服务器访问权限。GrantByDefault 是布尔值属性，用于确定默认设置是允许所有访问（存在例外）还是拒绝所有访问（存在例外）。如果 GrantByDefault 为 TRUE，则所有 IP 地址和域都可以访问服务器（DomainDeny 和 IPDeny 方法的列表项除外）。如果 GrantByDefault 为 FALSE，则拒绝所有 IP 地址和域访问服务器（DomainGrant 和 IPGrant 方法的列表项除外）。

语法

SecObj.GrantByDefault = Boolean

参数

SecObj

IIsIPSecurity 类型的 IIS ADSI 对象。

Boolean

TRUE 或 FALSE 值。

代码示例

<%

' 切记要启用集成 Windows 身份验证并

' 禁用匿名访问，否则就会出现 Server 500 错误。

Dim SecObj

Dim MyIPSec

' 获取保存默认站点信息的 IIS 对象。

' 它可以是任何站点 root/vdir 或 IIS://LocalHost/W3SVC（对于全局

' 属性）。

Set SecObj = GetObject("IIS://LocalHost/W3SVC/1/Root")

' 获取 IIsIPSecurity 对象。

Set MyIPSec = SecObj.IPSecurity

If (TRUE = MyIPSec.GrantByDefault) Then

Response.Write

"<BR>GrantByDefault was set to TRUE.Setting to FALSE.<BR>"

MyIPSec.GrantByDefault = FALSE

Else 'If (FALSE = MyIPSec.GrantByDefault) Then

Response.Write

"<BR>GrantByDefault was set to FALSE.Setting to TRUE.<BR>"

MyIPSec.GrantByDefault = TRUE

End If

' 设置数据库中的信息

SecObj.IPSecurity = MyIPSec

SecObj.Setinfo

%>

© 1997-2003 Microsoft Corporation。保留所有权利。