ASP Call Pure IP Библиотека пример

Рекомендуется: ASP Encament: недавние посетители ASP внедрению Space Space
Из -за рабочих отношений мы работаем над пользовательским пространством. Чтобы использовать самых последних посетителей в пространстве, см. Код ASP: % username = request.querystring (username). «Имя пользователя в столбце заземления является вашим именем пользователя, если trim (request.cookies (user_name))», то «Дома

Работая над проектом, я столкнулся с проблемой ASP на вызове невинной библиотеки IP. Теперь позвольте мне поговорить о решении.

<%

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

'Возврат IP Information issors_ipaddressdata (IP, 0)

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

Function look_ip (ip)

Dim Wry, iptype, qqwryversion, ipcounter

'Установите объект класса

SET WRY = новый TQQWRY

'Начните искать и вернуться к результатам поиска

«Вы можете определить, существует ли IP -адрес в базе данных на основе возвратного значения QQWRY (IP). Если его не существует, вы можете выполнить некоторые другие операции.

'Например, если вы создаете базу данных для преследования, я не буду подробно объяснить здесь

Iptype = wry.qqwry (ip)

Страна: страна: страновое поле

'LocallStr: провинция, город и другие информационные поля

Look_ip = wry.country & & wry.localStr

'' '' 'Look_ip = wry.country &

Конечная функция

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

'Return ip information js call

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

Функция iss_ipaddressdata (ip, stype)

Dim Wry, iptype

SET WRY = новый TQQWRY

Iptype = wry.qqwry (ip)

Выберите Case Stype

Case 1 iss_ipaddressdata = ip

Случай 2 disp_ipaddressdata = wry.country

Дело 3 Disp_ipaddressdata = wry.localStrtr

'Case else diss_ipaddressdata = wry.country & & wry.localstr

Case else disp_ipaddressdata = wry.country

Конец выбора

Конечная функция

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

'Вернитесь в qqwry information

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

Функция wryinfo ()

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

'Установите объект класса

SET 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, POST впрыскивание и серверные атаки, а также записывает IP
% Пожалуйста, обратите внимание на их использование в английской версии 'Feng Xu Modified Session.abandon () Dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_sysy