完美E-Mail正则表达式，附详细讲解，请大家帮忙测试一下！

ASP版：
<%
Dim regEx,Email
Email="comg__1@1_a.com.cn"
'Email=Request.Form("Email")
Set regEx=New RegExp
regEx.IgnoreCase=True
regEx.Pattern="^[a-z]([a-z0-9]*[-_]?[a-z0-9]+)*@([a-z0-9]*[-_]?[a-z0-9]+)+[\.][a-z]{2,3}([\.][a-z]{2})?$"
If regEx.Test(Email) Then
Response.Write "正确"
Else
Response.Write "错误"
End If
set regEx=Nothing
%>