Set Reg = New RegExp
Reg.pattern="^([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5})$"
Reg.Global=True
If Not Reg.Test(strEmail) Then
bError=True
strError="您输入的是一个无效的电子邮件地址!<br>"
End If
Set regEx = New RegExp
Reg.pattern="^([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5})$"
Reg.Global=True
If Not Reg.Test(strEmail) Then
bError=True
strError="您输入的是一个无效的电子邮件地址!<br>"
End If