ADSI+ASP添加IP到IIS禁止访问列表中-6ren

ADSI+ASP添加IP到IIS禁止访问列表中

转载作者：qq735679552 更新时间：2022-09-29 22:32:09

25

4

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章ADSI+ASP添加IP到IIS禁止访问列表中由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

代码如下:

 
 <%@ Language=VBScript %>  
 
 <%  
 
 Dim strIP  
 
 strIP = request("IP")  
 
 %>  
 
 <FORM action=? method=post>  
 
 输入IP：<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name="IP">  
 
 <input type="submit" value="确定发送">  
 
 </FORM>  
 
 <%  
 
 if strIP="list" then  
 
 Call ListDenyIP("2443")  
 
 response.end  
 
 end if  
 
 if strIP="query" then  
 
 Call CheckWebSiteSetup  
 
 response.end  
 
 end if  
 
 #  
 
 if strIP<>"" then  
 
 Call AddDenyIP("2443",strIP)  
 
 end if  
 
 Sub CheckWebSiteSetup()  
 
 Set IISOBJ=GetObject("IIS://LocalHost/W3SVC")  
 
 for each website in IISOBJ  
 
 if website.Class="IIsWebServer" then  
 
 for each b in website.ServerBindings  
 
 response.write ("Server "&Website.AdsPath" has binding"&b)  
 
 response.write ("<br>")  
 
 next  
 
 end if  
 
 next  
 
 end sub  
 
 #  
 
 Sub ListDenyIP(strWebNo)  
 
 set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root")  
 
 set MyIPSec = SecObj.IPSecurity  
 
 IPList=MyIPSec.IPDeny  
 
 if ubound(IPList)<0 then  
 
 response.write "<BR>无数据，请先随便加一条<BR>"  
 
 exit sub  
 
 end if  
 
 #  
 
 intIPListCount=ubound(IPList)+1  
 
 #  
 
 for i=0 to ubound(IPList)  
 
 response.write i+1  
 
 response.write "："  
 
 response.write IPList(i)  
 
 response.write "<br>"  
 
 next  
 
 end sub  
 
 Sub AddDenyIP(strWebNo,strDenyIp)  
 
 set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root")  
 
 set MyIPSec = SecObj.IPSecurity  
 
 ' Make sure GrantByDefault=TRUE or your changes will not count.  
 
 If (FALSE = MyIPSec.GrantByDefault) Then  
 
 Response.Write "<BR>GrantByDefault was not TRUE. Setting to TRUE.<BR>"  
 
 MyIPSec.GrantByDefault = TRUE  
 
 End If  
 
 IPList=MyIPSec.IPDeny  
 
 if ubound(IPList)<0 then  
 
 response.write "<BR>无数据，请先随便加一条<BR>"  
 
 exit sub  
 
 end if  
 
 #  
 
 intIPListCount=ubound(IPList)+1  
 
 #  
 
 for i=0 to ubound(IPList)  
 
 if strDenyIp = left(IPList(i),len(strDenyIp)) then  
 
 response.write "<BR>重复数据。<BR>"  
 
 exit sub  
 
 end if  
 
 next  
 
 redim Preserve IPList(intIPListCount)  
 
 IPList(intIPListCount)=strDenyIp  
 
 response.write "新添加："  
 
 response.write strDenyIp  
 
 response.write "<br>"  
 
 MyIPSec.IPDeny = IPList  
 
 SecObj.IPSecurity = MyIPSec  
 
 SecObj.Setinfo  
 
 end sub  
 
 %>

最后此篇关于ADSI+ASP添加IP到IIS禁止访问列表中的文章就讲到这里了,如果你想了解更多关于ADSI+ASP添加IP到IIS禁止访问列表中的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！。

25

4

0

文章推荐： ASP+Access数据库安全设置方法小结

文章推荐： ASP生成html的新方法

文章推荐： ASP Google的translate API代码

文章推荐：最小asp后门程序

Python 这段代码做了什么？列表=列表[列表!=值]
如标题所示，ans_list是一个答案列表，ans_index是一个数字(答案在词汇表中的索引，但与atm无关) 这里生成的 tree.anslist 是什么？ (例如，仅针对第一个)，忽略迭代。 f
MySQL 列表 IN 列表
我目前将用户的输入存储在逗号分隔的列表中，如下所示: Userid | Options 1 | 1,2,5 用户在一个数组形式中勾选一组选项，然后用逗号连接起来 1,2,5 然后 MySQ
MySQL 列表 IN 列表
我目前将用户的输入存储在逗号分隔的列表中，如下所示: Userid | Options 1 | 1,2,5 用户在一个数组形式中勾选一组选项，然后用逗号连接起来 1,2,5 然后 MySQ
list - 我怎样才能完全展平一个列表(列表(列表)......)
我想知道如何完全展平列表和包含它们的东西。除其他外，我想出了一个解决方案，它可以将具有多个元素的东西滑倒并将它们放回原处，或者在滑倒后将具有一个元素的东西拿走。这与 How do I “flatte
list - 我怎样才能完全展平一个列表(列表(列表)......)
我想知道如何完全展平列表和包含它们的东西。除其他外，我想出了一个解决方案，它可以将具有多个元素的东西滑倒并将它们放回原处，或者在滑倒后将带有一个元素的东西拿走。这与 How do I “flatte
java - 列表<列表<字符串>>到字符串[][]
这个问题已经有答案了: Convert nested list to 2d array (3 个回答) 已关闭 7 年前。 java中有没有快捷方式可以转换 List> 到 String[][] ？
java - 列表<列表<对象>>排序
我在排序时遇到问题 List> 。我创建了一个自定义比较器，在其中编写了对数据进行排序的代码。 public class CustomComparator implements Comparator
java - 列表数组列表转换
这个问题已经有答案了: 已关闭10 年前。 Possible Duplicate: Java Generics: Cannot cast List to List? 我只是想知道为什么下面的java代
c# - 列表<逗号分隔的字符串> => 列表<字符串>?
试图想出一个 LINQy 方法来做到这一点，但我什么也没想到。我有一个对象列表<>，其中包含一个属性，该属性是逗号分隔的字母代码列表: lst[0].codes = "AA,BB,DD" lst[1
python - 列表 += 元组与列表 = 列表 + 元组
假设我有这些任务: points = [] point = (1, 2) 我怎么会这样做: points += point 它工作得很好，并且给了我点 = [1, 2]。但是，如果我这样做: poin
scala - 将列表[任务[列表[A]]]转换为任务[列表[A]]
如何在 scala 中将 List[Task[List[Header]]] 类型转换为 Task[List[Header]]。我有一个方法返回 Task[List[Header]] 并多次调用 do
java - 如何在Java中获取二维列表的元素？例如，列表<列表<整数>>
如何在 Java 中查找二维列表的元素？我有一个参数为 List> 的函数我想知道如何找到这个列表的行和列。最佳答案如果你喜欢 List> obj 然后你就可以像这样访问 obj.get(cur
java - 列表<列表没有按预期工作
分配 List到 List工作正常。分配 List>到 List>不编译。代码 public class Main { public static void main(String[] a
java - 列表<可序列化> vs 列表
我正在用 Java 编写一个方法，该方法必须接收并迭代 Serializable 的 List。有什么区别: public void myMethod(List list) { } 和 public
java - 通知网格/列表/树内网格/列表/树的更改
我看到很多人想用 mvvm 更新网格/列表/树的一部分，但他们不想刷新整个列表。对于所有遇到此问题的人，我做了以下示例。希望这对你有用。最佳答案这是一个简单的例子。整个代码中最重要的是: Bi
C++ 列表到 Python 列表
我正在为现有的 C++ 库编写包装器，该库使用列表，其中 T 是自定义结构。我被建议使用 vector 而不是列表，但我试图避免修改库。为了更好地理解这个场景，我做了一个简单的应用程序，使用一个列表
java - 列表 VS 列表<基础>
List list List list 这两种声明有什么区别吗？谢谢，最佳答案是的。 List可以包含所有派生自 Base 的不同事物的混合物. List包含同质项(从某种意义上说，它们必须全部
Java 泛型 : List, 列表<对象>、列表
有人可以尽可能详细地解释以下类型之间的区别吗？ List List List 让我更具体一点。我什么时候想使用 // 1 public void CanYouGiveMeAnAnswer(List l
python - 是否有任何 python 模块可以计算(列表，列表)元组的频率？
我有一个元组列表，每个元组都是一对列表。所以我的数据看起来像: mylist = [(['foo', 'bar'], ['bar', 'bar']),(['bar', 'bar'],['bar', '
list - 给定一个 (a * b) 列表，返回一个 (a * b list) 列表
也许是一个时髦的标题，但我遇到了以下问题: 给定一个类型为 (a * b) list 的列表，我想创建一个类型为 (a * b list) list 的新列表。一个例子: 给定列表 let testL

首页

博学

6Ren·AI

商城

ADSI+ASP添加IP到IIS禁止访问列表中