참고: 실행된 ASP 파일에는 관리자 권한이 필요합니다 . 다음과 같이 코드를 복사하세요.
<%@ 언어=VBScript %>
<%
DimstrIP
strIP = 요청(IP)
%>
<FORM 액션=? 메소드=포스트>
입력 IP: <입력 유형=텍스트 값=<%=strIP%> 스타일=BORDER: #AAAAAA 1px 이름=IP>
<입력 유형=제출 값=전송 확인>
</FORM>
<%
strIP=list이면
통화 목록거부IP(2443)
응답.끝
종료하면
strIP=query이면
CheckWebSiteSetup 호출
응답.끝
종료하면
#
strIP<>이면
AddDenyIP(2443,strIP)를 호출하세요.
종료하면
하위 CheckWebSiteSetup()
IISOBJ=GetObject(IIS://LocalHost/W3SVC)를 설정합니다.
IISOBJ의 각 웹사이트에 대해
website.Class=IIsWebServer인 경우
website.ServerBindings의 각 b에 대해
response.write(서버 &Website.AdsPath에 바인딩&b가 있음)
응답.쓰기(<br>)
다음
종료하면
다음
서브 끝
#
하위 목록거부IP(strWebNo)
SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root) 설정
setMyIPSec = SecObj.IPSecurity
IPList=MyIPSec.IPDeny
ubound(IPList)<0이면
response.write <BR>데이터가 없습니다. 먼저 데이터를 추가하세요<BR>
서브 종료
종료하면
#
intIPListCount=ubound(IPList)+1
#
i=0에서 ubound(IPList)로
응답.쓰기 i+1
응답.쓰기:
응답.IPList(i) 쓰기
응답.쓰기 <br>
다음
서브 끝
하위 AddDenyIP(strWebNo,strDenyIp)
SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root) 설정
setMyIPSec = SecObj.IPSecurity
' GrantByDefault=TRUE인지 확인하십시오. 그렇지 않으면 변경 사항이 계산되지 않습니다.
If (FALSE = MyIPSec.GrantByDefault) 그러면
Response.Write <BR>GrantByDefault가 TRUE로 설정되지 않았습니다.<BR>
MyIPSec.GrantByDefault = TRUE
종료 조건
IPList=MyIPSec.IPDeny
ubound(IPList)<0이면
response.write <BR>데이터가 없습니다. 먼저 데이터를 추가하세요<BR>
서브 종료
종료하면
#
intIPListCount=ubound(IPList)+1
#
i=0에서 ubound(IPList)로
strDenyIp = left(IPList(i),len(strDenyIp))인 경우
response.write <BR>데이터가 중복되었습니다. <BR>
서브 종료
종료하면
다음
redim IPList 보존(intIPListCount)
IPList(intIPListCount)=strDenyIp
response.write가 새로 추가되었습니다:
response.write strDenyIp
응답.쓰기 <br>
MyIPSec.IPDeny = IP목록
SecObj.IPSecurity = MyIPSec
SecObj.Setinfo
서브 끝
%>