|
||||||||||||||||||||
|
||||||||||||||||||||
|
||||||||||||||||||||
<% 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 %> |
||||||||||||||||||||
| :查看相关: | ||||||||||||||||||||
就学网 版权所有 声明:就学网不享有[vbscript判断email地址的合法性]的版权 |
||||||||||||||||||||