<% Dim Dominio Dim Retorno Dominio = Request.Form("dominio") '------------------------------------------------------------------------------------ 'Funcao: CheckDominio(ByVal Dominio) 'Sinopse: Verifica se o domínio é válido através de Expressão regular validando ' os DPNs de acordo com o IANA 'Parametro: Dominio 'Retorno: Booleano 'Autor: Gabriel Fróes - www.codigofonte.com.br '------------------------------------------------------------------------------------ Function CheckDominio(ByVal Dominio) 'Declarações Dim regEx Dim Retorno 'Validando via RegExp Set regEx = New RegExp 'Cria o Objeto Expressão regEx.Pattern = "^([a-z0-9]([-a-z0-9]*[a-z0-9])?\.)+((a[cdefgilmnoqrstuwxz]|aero|arpa)|(b[abdefghijmnorstvwyz]|biz)|(c[acdfghiklmnorsuvxyz]|cat|com|coop)|d[ejkmoz]|(e[ceghrstu]|edu)|f[ijkmor]|(g[abdefghilmnpqrstuwy]|gov)|h[kmnrtu]|(i[delmnoqrst]|info|int)|(j[emop]|jobs)|k[eghimnprwyz]|l[abcikrstuvy]|(m[acdghklmnopqrstuvwxyz]|mil|mobi|museum)|(n[acefgilopruz]|name|net)|(om|org)|(p[aefghklmnrstwy]|pro)|qa|r[eouw]|s[abcdeghijklmnortvyz]|(t[cdfghjklmnoprtvwz]|travel)|u[agkmsyz]|v[aceginu]|w[fs]|y[etu]|z[amw])$" ' Expressão Regular regEx.IgnoreCase = True ' Sensitivo ou não regEx.Global = True Retorno = regEx.Test(Dominio) Set regEx = Nothing 'Retorno CheckDominio = Retorno End Function %> DEMONSTRAÇÃO: Poderosa validação de domínios através de expressão regular

Poderosa validação de domínios através de expressão regular


Exemplo:codigofonte.com.br
<% If Not Dominio = "" Then %>
<% Retorno = CheckDominio(Dominio) If Retorno = True Then %>O dominio <%=Dominio%> é Válido!<% Else %>O dominio <%=Dominio%> é Inválido!<% End If %>
<% End If %>