웹 사이트에 액세스 한 IP 세그먼트를 방지 하기 위해 ASP 코드에서 IP 주소를 마스크 하는 방법

중간 트랜잭션 http://www.aliyun.com/zixun/aggregation/6858.html "> seo 진단 Taobao 게스트 클라우드 호스트 기술 홀

종종 일부 지역 비즈니스-로-비즈니스 또는 비즈니스 소비자 웹 사이트 내 솔루션을 공유, 쓰레기 정보를 많이 산재해 있습니다.

효과 테스트 하 여 ASP 페이지에 다음 코드를 추가:

< %
와일드 카드 문자, 일반적으로 구성 파일에 저장 된 마스크 IP 주소 (세그먼트)의 컬렉션입니다.
Const Badipgroup = "192.168.1.*|202.68.*.*|*.12.55.34|185.*.96.24|127.*.0.1|192.168.0.1"

경우 Isforbidip (badipgroup) 사실 다음 =
Response.Write (GetIP & "IP 주소를 액세스할 수 없습니다")
Response.End)
End If

' 매개 변수 vbadip: 상영 될 IP 세그먼트, IP 주소 수집에서 | 기호를 별도 여러 IP 주소 (세그먼트)


' 마스크 범위, False 부 반대
에에서 bool:true 사용자 IP를 반환 합니다.




기능 Isforbidip (VBADIP)


희미하게 카운터, Arrippart, Arrbadip, Arrbadippart, I, J


    


Arrbadip = 분할 (Vbadip, "|")


Arrippart = 분할 (GetIP (), ".")


   

내가
= 0 UBound (ARRBADIP)


카운터 = 0


Arrbadippart = 분할 (Arrbadip (i), ".")


j = 0 UBound (arrippart)


경우 (Arrbadippart (j)) = "*" 또는 CStr (Arrippart (j)) = CStr (Arrbadippart (j)) 다음


카운터 카운터 + 1
=

끝 경우


다음


경우 카운터 4 =
다음

Isforbidip = True


출구 함수


경우


다음


Isforbidip = False


끝 함수

"반환 클라이언트 IP 주소

함수 GetIP)
Dim IP
IP = Request.ServerVariables ("Http_x_forwarded_for")
경우 IP = "" 다음 IP = Request.ServerVariables ("REMOTE_ADDR")
GetIP = IP
끝 함수
% >

이 사이트의 IP 세그먼트에 액세스를 제한 하 고 지역의 IP 세그먼트에 따라 설정할 수 있습니다.

내가 외국 사용자가 내 사이트에 악의적인 악성 소프트웨어를 사용 하 여 정보를 게시할 하지 못하도록 하려면이 메서드를 사용 하 여!

위의 콘텐츠 (이순신 원 네트워크) 자세한 소스에서 전송를 참조 하십시오: http://www.05371.com/content/200891013820.html

중국 http://www.admin5.com/article/20080921/105173.shtml에 100 인터넷 Ceo의 파노라마 조사