Многие друзья захотят сделать IP -запрос. net.net /data/ipaddress.mdb, конечно, я не гарантирую, что это последнее.
Демонстрация этой страницы: http://www.brsky.net/sip.asp
<%
"Подключите базу данных
Dim Conn, Connstr, DB
db = "data/ipaddress.mdb"
Установить conn = server.createObject ("adodb.connection")
Connstr = "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("" & db & "")
Conn.Open Connstr
%>
Следующая часть представляет собой форму отправки для данных IP ввода: эти данные отправляются на эту страницу
<form id = "form1" name = "form1" method = "post" action = "">
<Метка>
Пожалуйста, введите IP, чтобы быть запросом
<input name = "ip" type = "text" id = "ip" />
</label>
<Метка>
<input type = "Отправить" name = "отправить" value = "Query" />
</label>
</form>
"Ниже приведено код запроса и отображения
<%
Если нет запроса.form ("ip") = ", то" Если форма отправляется в данные, она обрабатывается и обрабатывается
sip = trim (request.form ("ip"))
cip = split (sip, ".")
Если Ubound (CIP) <3TE "Если отправленные данные IP составляют менее 4 бит, составьте
Redim Serveer Cip (3) «Переопределяйте массив и сохраните исходное значение
для i = 3 до Ubound (CIP) шаг -1
cip (i) = 0
следующий
конец, если
Для i = 0–3 "проверьте элементы массива в качестве символа значения здесь. Если нет, вы можете использовать максимальное и минимальное значение правил IP отдельно. Я использую только минимальное значение здесь.
Если нет is -inumeric (cip (i)), то cip (i) = 0
следующий
IP = 256*256*256*CIP (0) 256*256*CIP (1) 256*CIP (2) CIP (3) -1
Dim Rs, SQL, страна, город, город
Установить rs = server.createObject ("adodb.oldset")
Sql = "select * из адреса, где ip1 <=" & ip & "и ip2> =" & ip
Rs.oopen SQL, Conn, 1,1
Если rs.eof тогда
Сити = "Неизвестно"
Страна = "Неизвестно"
еще
Город = RS ("Город")
Страна = RS ("страна")
конец, если
Rs.close
Установить RS = ничего
Response.write "IP, который вы хотите запросить" & sip & ", от" & country & city
конец, если
%>