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
4 páginas no total Página anterior Página 1234Next