现在注册的时候都用email邮箱，那么验证邮箱的正确性就是我们必须要做的，还有网址，我们有时候也需要验证输入的网址是否正确，下面青岛星网跟大家分享：ASP验证email邮箱与网址的2个正则函数。
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 FunctionFunction IsValidUrl(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?" IsValidUrl = regEx.Test(str) End Function
需要的小伙伴们可以直接拿去用哦。
在线QQ：
