用vbscript判断email地址的合法性

这里是一断正则表达式的例子
%26lt;%
Function isemail(strng)
isemail = false
Dim regEx, Match ' Create variables.
Set regEx = New RegExp' Create a regular expression object (stupid, huh?)
regEx.Pattern = %26quot;^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$%26quot; ' Sets pattern.
regEx.IgnoreCase = True' Set case insensitivity.
Set Match = regEx.Execute(strng)' Execute search.
if match.count then isemail= true
End Function
%＞