document.write('
');
document.write('<%
');
document.write('
');
document.write(' \'**************************************
');
document.write('
');
document.write(' \' Name: Total Email Validation
');
document.write('
');
document.write(' \' Description:Validates email addresses.
');
document.write('
');
document.write(' \' Makes sure the email addresses with IP a
');
document.write('
');
document.write(' \' ddresses are not private network address
');
document.write('
');
document.write(' \' es. Allows multiple sub-domain levels. v
');
document.write('
');
document.write(' \' erifies characters within domain names.
');
document.write('
');
document.write(' \' only allows standard length 26 character
');
document.write('
');
document.write(' \' s for each domain name level, except the
');
document.write('
');
document.write(' \' top (3 max)
');
document.write('
');
document.write(' \' By: Lewis Moten
');
document.write('
');
document.write(' \'
');
document.write('
');
document.write(' \' Inputs:asString - Email address to be
');
document.write('
');
document.write(' \' validated.
');
document.write('
');
document.write(' \'
');
document.write('
');
document.write(' \' Returns:Boolean (true/false) value ind
');
document.write('
');
document.write(' \' icating if the string presented was a va
');
document.write('
');
document.write(' \' lid email address.
');
document.write('
');
document.write(' \'
');
document.write('
');
document.write(' \'This code is copyrighted and has \' limited warranties.Please see http://w
');
document.write('
');
document.write(' \' ww.Planet-Source-Code.com/xq/ASP/txtCode
');
document.write('
');
document.write(' \' Id.6280/lngWId.4/qx/vb/scripts/ShowCode.
');
document.write('
');
document.write(' \' htm \'for details. \'**************************************
');
document.write('
');
document.write('
');
document.write('
');
document.write(' <%
');
document.write('
');
document.write(' function IsEmail(ByRef asString)
');
document.write('
');
document.write(' Dim lsDomain
');
document.write('
');
document.write(' Dim lsSubDomain
');
document.write('
');
document.write(' Dim lsSubDomainArray
');
document.write('
');
document.write(' Dim lbIsIPdomain
');
document.write('
');
document.write(' Dim lnStart
');
document.write('
');
document.write(' Dim lsUserName
');
document.write('
');
document.write(' Dim lnOctect
');
document.write('
');
document.write(' Dim lnOctect2
');
document.write('
');
document.write(' Dim lnIndex
');
document.write('
');
document.write(' Const lsDOMAIN_CHARACTERS = ".ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-"
');
document.write('
');
document.write(' \' Must have at least 6 characters "a@a.ru"
');
document.write('
');
document.write(' if Len(asString) < 6 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Look For "@" delimiter
');
document.write('
');
document.write(' if Not InStr(asString, "@") > 1 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Make sure characters exist after the "@"
');
document.write('
');
document.write(' if Len(asString) = InStr(asString, "@") Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Grab domain information "a.ru"
');
document.write('
');
document.write(' lsDomain = UCase(Mid(asString, InStr(asString, "@") + 1))
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Grab username information
');
document.write('
');
document.write(' lsUserName = UCase(Left(asString, InStr(asString, "@") - 1))
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Make sure at least 1 "." exists
');
document.write('
');
document.write(' if InStr(lsDomain, ".") = 0 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Check For valid domain characters
');
document.write('
');
document.write(' lnStart = 1
');
document.write('
');
document.write(' Do While lnStart <= Len(lsDomain)
');
document.write('
');
document.write(' if InStr(lsDOMAIN_CHARACTERS, Mid(lsDomain, lnStart, 1)) Then
');
document.write('
');
document.write(' lnStart = lnStart + 1
');
document.write('
');
document.write(' Else
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write(' Loop
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Split domains
');
document.write('
');
document.write(' lsSubDomainArray = Split(lsDomain, ".")
');
document.write('
');
document.write(' lbIsIPdomain = False
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Loop through Each domain
');
document.write('
');
document.write(' For lnIndex = 0 To UBound(lsSubDomainArray, 1)
');
document.write('
');
document.write(' lsSubDomain = lsSubDomainArray(lnIndex)
');
document.write('
');
document.write(' if Len(lsSubDomain) = 0 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Check To see if the domain is an IP Address
');
document.write('
');
document.write(' if lnIndex = 0 Then
');
document.write('
');
document.write(' if IsNumeric(lsSubDomain) Then
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Only IP Addresses can have only numbers In subdomain area
');
document.write('
');
document.write(' lbIsIPDomain = True
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Make sure 4 subdomains are present
');
document.write('
');
document.write(' if Not UBound(lsSubDomainArray, 1) = 3 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' if lbIsIPDomain Then
');
document.write('
');
document.write(' if Len(lsSubDomain) > 3 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' ElseIf Not InStr(lsSubDomain, "-") = 0 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' ElseIf Not IsNumeric(lsSubDomain)Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' lnOctect = CInt(lsSubDomain)
');
document.write('
');
document.write('
');
document.write('
');
document.write(' if lnOctect > 255 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' ElseIf lnOctect < 0 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Look For Private network settings
');
document.write('
');
document.write(' if lnIndex = 0 Then
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Grab 2nd IP value
');
document.write('
');
document.write(' lnOctect2 = lsSubDomainArray(1)
');
document.write('
');
document.write('
');
document.write('
');
document.write(' if Len(lnOctect2) > 3 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' ElseIf Not IsNumeric(lnOctect2)Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' lnOctect2 = CInt(lnOctect2)
');
document.write('
');
document.write(' \' TCP/IP addresses reserved For \'private\' networks are:
');
document.write('
');
document.write(' \'
');
document.write('
');
document.write(' \' 10.0.0.0to 10.255.255.255
');
document.write('
');
document.write(' \' 172.16.0.0 To 172.31.255.255
');
document.write('
');
document.write(' \' 192.168.0.0to 192.168.255.255
');
document.write('
');
document.write('
');
document.write('
');
document.write(' Select Case lnOctect
');
document.write('
');
document.write('
');
document.write('
');
document.write(' Case 10 \' Private Network
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write('
');
document.write('
');
document.write(' Case 172
');
document.write('
');
document.write(' if lnOctect2 => 16 And lnOctect2 =< 31 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' Case 192 \' Local Network
');
document.write('
');
document.write(' if lnOctect2 = 168 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' Case 127 \' Local Machine
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write('
');
document.write('
');
document.write(' End Select
');
document.write('
');
document.write('
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write(' \' End \'private\' network check
');
document.write('
');
document.write(' Else
');
document.write('
');
document.write('
');
document.write('
');
document.write(' if lnIndex = UBound(lsSubDomainArray, 1) Then
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Last domain can have 3 characters max
');
document.write('
');
document.write(' if Len(lsSubDomain) > 3 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' ElseIf Not InStr(lsSubDomain, "-") = 0 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write('
');
document.write('
');
document.write(' Else
');
document.write('
');
document.write(' \' Domain, Sub domain can only have 22 characters max
');
document.write('
');
document.write(' if Len(lsSubDomain) > 22 Then
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write(' Next
');
document.write('
');
document.write('
');
document.write('
');
document.write(' \' Check For valid characters In username
');
document.write('
');
document.write(' lnStart = 1
');
document.write('
');
document.write(' Do While lnStart <= Len(lsUserName)
');
document.write('
');
document.write(' if InStr(lsDOMAIN_CHARACTERS, Mid(lsUserName, lnStart, 1)) Then
');
document.write('
');
document.write(' lnStart = lnStart + 1
');
document.write('
');
document.write(' Else
');
document.write('
');
document.write(' IsEmail = False
');
document.write('
');
document.write(' Exit function
');
document.write('
');
document.write(' End if
');
document.write('
');
document.write(' Loop
');
document.write('
');
document.write('
');
document.write('
');
document.write(' IsEmail = True
');
document.write('
');
document.write(' End function
');
document.write('
');
document.write(' %>
');
document.write('
');
document.write('
');