'*****************************************************
'Функция: isvalidemail [str]
'Аргументы: str, строка для обработки
Автор: Муму
Дата: 2007/7/12
'Описание: Проверьте, является ли формат электронной почты [email protected] или [email protected] и другие форматы
Пример: <%= isvalidemail ([email protected])%>
'*****************************************************
Functionisvalidemail (str)
DimRegex
SetRegex = newRegexp
regex.pattern = "[/w/-/.]+@[a-za-z0-9]+/. (([a-za-z0-9] {2,4}) | ([a-za-z0-9] {2,4}/. [a-za-z] {2,4})) $"
Isvalidemail = regex.test (str)
Конечная функция