這里是一斷正則表達式的例子 <% 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 %＞
