ASP는 순수한 IP 라이브러리 예제를 호출합니다

권장 : ASP 인스턴스 : ASP 구현 공간의 최근 방문자
업무 관계로 인해 우리는 사용자 공간에서 노력하고 있습니다. 공간에서 가장 최근 방문자를 사용하려면 ASP 코드를 참조하십시오.

프로젝트를 수행 할 때 ASP가 무고한 IP 라이브러리를 불러야하는 문제가 발생했습니다. 이제 해결책에 대해 이야기하겠습니다.

<%

'===============================================================

'반환 IP 정보 disp_ipaddressdata (IP, 0)

'===============================================================

함수 look_ip (IP)

Dim Wry, iptype, qqwryversion, ipcounter

'클래스 객체를 설정하십시오

wry = 새로운 tqqwry를 설정합니다

'검색을 시작하고 검색 결과로 돌아갑니다

'QQWRY (IP) 반환 값을 기반으로 데이터베이스에 IP 주소가 존재하는지 여부를 결정할 수 있습니다. 존재하지 않으면 다른 작업을 수행 할 수 있습니다.

'예를 들어, 추구를 위해 데이터베이스를 구축하면 여기에서 자세히 설명하지 않을 것입니다.

iptype = wry.qqwry (IP)

'국가 : 국가 : 국가 분야

'지역 주 : 지방, 도시 및 기타 정보 분야

look_ip = wry.country & & wry.localstr

'' '' 'look_ip = wry.country &

엔드 기능

'===============================================================

'IP 정보 js 전화를 반환합니다

'==============================================================

함수 disp_ipaddressdata (ip, stype)

Dim Wry, iptype

wry = 새로운 tqqwry를 설정합니다

iptype = wry.qqwry (IP)

Case Stype을 선택하십시오

사례 1 disp_ipaddressdata = ip

사례 2 disp_ipaddressdata = wry.country

사례 3 disp_ipaddressdata = wry.localstr

'CASE disp_ipaddressdata = wry.country & & wry.localstr

else disp_ipaddressdata = wry.country

종료 선택

엔드 기능

'===============================================================

'QQWRY 정보로 돌아갑니다

'==============================================================

함수 wryinfo ()

Dim Wry, iptype, qqwry_tem (0), qqwry_tem1 (1)

'클래스 객체를 설정하십시오

wry = 새로운 tqqwry를 설정합니다

iptype = wry.qqwry (255.255.255.254)

'데이터베이스 버전 정보를 읽으십시오

qqwry_tem (0) = wry.country & & wry.localstr

'데이터베이스 IP 주소 수를 읽으십시오

qqwry_tem1 (1) = wry.recordCount + 1

wryinfo = qqwry_tem (0) & & qqwry_tem1 (1)

엔드 기능

공유 : ASP는 GET, 사후 주입 및 서버 공격을 방지하고 IP를 기록합니다.
% 'get, post injection and server 공격'사용 방법을 사용 하여이 파일을 참고 해야하는 파일에 포함시키기 위해 사용하므로 사후 공격과 공격이 반드시 공격이 아닙니다. 영어 버전 'feng xu modified session.abandon () dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_sys에서 사용하는 데주의를 기울이십시오.