권장 : 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에서 사용하는 데주의를 기울이십시오.
이전 페이지의 총 4 페이지 1234next 페이지