asp 下用正则表达式检测邮箱格式的函数

2018-09-06 10:45

阅读:568

  *********************************************************
函数:IsValidEmail[str]
参数:str,待处理的字符串
作者:木木
日期:2007/7/12
描述:检测邮箱格式是否为者格式
示例:)%>
*********************************************************

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)
EndFunction


评论


亲,登录后才可以留言!