这里是
断正则表达式
例子<%
Function isemail(strng)
isemail = false
Dim regEx, Match \' Create variables.
Set regEx = New RegExp \' Create a regular expression object (stupid, huh?)
regEx.Pattern = \"^w+((-w+)|(.w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$\" \' Sets pattern.
regEx.IgnoreCase = True \' Set
insensitivity.Set Match = regEx.Execute(strng) \' Execute search.
match.count then isemail= trueEnd Function
%＞
最新评论