Exemplo de biblioteca Pure IP da ASP

Recomendado: ASP Instância: Visitantes recentes do ASP Implementation Space
Devido a relações de trabalho, estamos trabalhando em um espaço do usuário. Para usar os visitantes mais recentes do espaço, consulte o código ASP: % UserName = request.QueryString (nome de usuário) 'O nome de usuário na coluna do solo é o seu nome de usuário se Trim (request.cookies (user_name)), então' a ​​página inicial precisa determinar se o acesso está logado, apenas registrado pode ser gravado

Ao trabalhar em um projeto, encontrei o problema de ASP chamando a biblioteca IP inocente. Agora deixe -me falar sobre a solução.

<%

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

'Retornar Informações IP Disp_ipaddressData (IP, 0)

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

Função look_ip (ip)

Dim irônico, iptype, qqwryversion, ipcounter

'Defina o objeto de classe

Definir Indoso = novo TQQWry

'Comece a pesquisar e retorne aos resultados da pesquisa

'Você pode determinar se o endereço IP existe no banco de dados com base no valor de retorno QQWry (IP). Se não existir, você pode executar outras operações.

'Por exemplo, se você criar um banco de dados para busca, não explicarei em detalhes aqui

Iptype = wry.qqwry (ip)

'País: país: campo do país

'Localstr: Província, Cidade e outros campos de informação

Look_ip = wry.country & & wry.localstr

'' '' 'Look_ip = wry.country &

Função final

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

'Retornar Informações IP Chamada JS

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

Function DISP_IPADDRESSDATA (IP, STYPE)

Dim irônico, iptype

Definir Indoso = novo TQQWry

Iptype = wry.qqwry (ip)

Selecione o estipo de caso

Caso 1 DISP_IPADDRESSDATA = IP

Caso 2 DISP_IPADDRESSDATA = Wry.country

Caso 3 DISP_IPADDRESSDATA = Wry.localstr

'Case else DISP_IPADDRESSDATA = Wry.country & & Wry.localstr

Caso mais disp_ipaddressdata = wry.country

Final Selecione

Função final

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

'Retornar informações QQWry

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

Função wryinfo ()

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

'Defina o objeto de classe

Definir Indoso = novo TQQWry

Iptype = wry.qqwry (255.255.255.254)

'Leia as informações da versão do banco de dados

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

'Leia o número de endereços IP do banco de dados

Qqwry_tem1 (1) = wry.recordCount + 1

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

Função final

Compartilhar: ASP evita ataques, pós -injeção e ataques de servidor, e registra IP
% 'Prevenir o método de get, pós -injeção e ataque de servidor' para incluir esse arquivo no arquivo que precisa ser observado; portanto, observe que os ataques de postagem e recebem ataques aqui não são necessariamente ataques. Por favor, preste atenção ao uso da versão em inglês 'feng xu modificada session.abandon () dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_sysys