많은 친구들이 IP 쿼리를 만들고 싶을 수도 있습니다. net.net /data/ipaddress.mdb 물론, 이것이 최신 정보라고 보장하지 않습니다.
이 페이지의 데모 : http://www.brsky.net/sip.asp
<%
"데이터베이스를 연결하십시오
Dim Conn, Connstr, DB
DB = "data/iPaddress.mdb"
set conn = server.createobject ( "adodb.connection")
connstr = "제공자 = microsoft.jet.oledb.4.0; data source ="& server.mappath ( ""& db & "")
CONN.OCEN CONNSTR
%>
다음 부분은 입력 IP 데이터에 대한 제출 양식입니다.이 데이터는이 페이지에 제출됩니다.
<form id = "form1"name = "form1"method = "post"action = "">
<라벨>
쿼리를 위해 IP를 입력하십시오
<입력 이름 = "ip"type = "text"id = "ip" />
</레이블>
<라벨>
<입력 유형 = "제출"이름 = "제출"value = "Query" />
</레이블>
</form>
"다음은 쿼리 및 디스플레이 코드입니다
<%
request.form ( "ip") = "그런 다음"양식이 데이터에 제출되면 처리 및 처리됩니다.
sip = trim (request.form ( "ip"))
cip = split (sip, ".")
제출 된 IP 데이터가 4 비트 미만인 경우 Ubound (CIP) <3TE 인 경우
Redim Preserve CIP (3) "배열을 재정의하고 원래 값을 유지하십시오.
i = 3에서 ubound (CIP) 단계 -1
CIP (i) = 0
다음
끝 If
i = 0 ~ 3의 경우 "배열 요소를 여기에서 값 문자로 확인하십시오. 그렇지 않은 경우 IP 규칙의 최대 및 최소값을 별도로 사용할 수 있습니다. 여기서 최소값 만 사용할 수 있습니다.
isnumeric (cip (i))이 아닌 경우 cip (i) = 0
다음
IP = 256*256*256*CIP (0) 256*256*CIP (1) 256*CIP (2) CIP (3) -1
Dim Rs, SQL, 국가, 도시, 도시
set rs = server.createobject ( "adodb.oldset")
sql = "select *에서 ip1 <="& ip & "및 ip2> ="& ip에서 주소에서 선택 *
Rs.OOPEN SQL, CONN, 1,1
그렇다면 rs.eof
City = "알 수없는"
Country = "알 수없는"
또 다른
City = Rs ( "City")
국가 = Rs ( "국가")
끝 If
Rs.Close
RS = 아무것도 설정하지 않습니다
response.write "쿼리하려는 IP는"& country & city의 "& sip &"입니다.
끝 If
%>