ASP验证email邮箱与网址的2个正则函数

现在注册的时候都用email邮箱，那么验证邮箱的正确性就是我们必须要做的，还有网址，我们有时候也需要验证输入的网址是否正确，下面编程之家跟大家分享：ASP验证email邮箱与网址的2个正则函数。

ASP验证email邮箱的正则函数

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

ASP验证网址的正则函数

Function IsValidUrl(str) 

Dim regEx 

Set regEx = New RegExp 

regEx.Pattern = "http(s)?://([w-]+.)+[w-]+(/[w-./?%&=]*)?" 

IsValidUrl = regEx.Test(str) 

End Function

需要的小伙伴们可以直接拿去用哦。