这里是一断正则表达式的例子 <% 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 case insensitivity.     Set Match = regEx.Execute(strng)   ' Execute search. if match.count then isemail= true End Function %＞