<% function isvalidemail(email) dim names, name, i, c isvalidemail = true names = split(email, "@") if ubound(names) <> 1 then isvalidemail = false exit function end if for each name in na...
没用到正则,看起来这个函数的准确度还是比较高的。
<% Function IsValidEmail(email) Dim names, Name, i, c IsValidEmail = True names = Split(email, "@") If UBound(names) 1 Then IsValidEmail = Fals...