亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

asp 下用正則表達式檢測郵箱格式的函數(shù)

 更新時間:2007年08月08日 12:03:37   作者:  
'*********************************************************
'函數(shù):IsValidEmail[str]
'參數(shù):str,待處理的字符串
'作者:木木
'日期:2007/7/12
'描述:檢測郵箱格式是否為xxxx@xxx.com或者xxxx@xxx.com.cn等格式
'示例:<%=IsValidEmail(ali@alixixi.com)%>
'*********************************************************

Function IsValidEmail(str)
Dim regEx
Set regEx = New RegExp
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)
End Function

相關文章

最新評論