ASP Call Pure IP Library Ejemplo

Recomendado: instancia de ASP: visitantes recientes de ASP Implemation Space
Debido a las relaciones de trabajo, estamos trabajando en un espacio de usuario. Para usar los visitantes más recientes en el espacio, consulte el código ASP: % username = request.queryString (userName) 'El nombre de usuario en la columna de tierra es su nombre de usuario si TRIM (request.cookies (user_name)) y luego' la página de inicio debe determinar si el acceso está iniciado, solo se puede registrar iniciado

Al trabajar en un proyecto, encontré el problema de que ASP llamara a la Biblioteca IP inocente. Ahora déjame hablar sobre la solución.

<%

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

'Devuelve la información de IP disp_ipaddressData (IP, 0)

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

Función look_ip (ip)

Dim wry, iptype, qqwryversion, ipcounter

'Establecer el objeto de clase

Establecer wry = new TQQWry

'Comience a buscar y volver a los resultados de búsqueda

'Puede determinar si la dirección IP existe en la base de datos basada en el valor de retorno QQWRY (IP). Si no existe, puede realizar otras operaciones.

'Por ejemplo, si crea una base de datos para la búsqueda, no explicaré en detalle aquí

Ippype = wry.qqwry (ip)

'País: País: campo de país

'Localstr: provincia, ciudad y otros campos de información

Apartar_ip = wry.country & & wry.localstr

'' '' 'Look_ip = wry.country &

Función final

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

'Devuelve información de IP JS Llamada

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

Función disp_ipaddressData (IP, Stype)

Dim Wry, iptype

Establecer wry = new TQQWry

Ippype = wry.qqwry (ip)

Seleccionar Stype de casos

Caso 1 disp_ipaddressData = ip

Caso 2 disp_ipaddressData = wry.country

Caso 3 disp_ipaddressData = wry.localstr

'Case else disp_ipaddressData = wry.country & & wry.localst

Case else disp_ipaddressData = wry.country

Final seleccionar

Función final

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

'Volver a la información QQWRY

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

Función wryinfo ()

Dim Wry, IpType, Qqwry_tem (0), Qqwry_tem1 (1)

'Establecer el objeto de clase

Establecer wry = new TQQWry

Ippype = wry.qqwry (255.255.255.254)

'Lea la información de la versión de la base de datos

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

'Lea el número de direcciones IP de la base de datos

Qqwry_tem1 (1) = wry.recordCount + 1

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

Función final

Compartir: ASP evita Get, Post Inyection and Server Attacks, y Registros IP
% 'Prevenir, después de la inyección y el ataque del servidor' para incluir este archivo en el archivo que debe tenerse en cuenta, por lo tanto, tenga en cuenta que los ataques posteriores y los ataques aquí no son necesariamente ataques. Preste atención a usarlos en la versión en inglés 'feng xu modificado session.abandon () dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_sys