用vbscript判斷email地址的合法性
發(fā)表時間:2024-01-06 來源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]這里是一斷正則表達式的例子<%Function isemail(strng) isemail = false Dim regEx, Match ' Create variables. Set regEx = New RegExp ' Create a r...
這里是一斷正則表達式的例子
<%
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
%>