vbscript判断email地址的合法性

来源： 作者： 出处：巧巧读书 2006-03-26 进入讨论组

• 关 键 词：
• vbscript
• express

这里是一断正则表达式的例子
<%
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
%＞

Web: http://www.qqread.com/vbscript/o902936401.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：妙用VBScript自制IE工具栏按钮

较新的文章：PHP, JScript和VBScript函数和类的语法