请教用在vbscript里检验邮箱格式的正则表达式

<SCRIPT LANGUAGE=vbscript>
<!--
Sub Check
usrName = document.all.item("UserName").value
usrPwd = document.all.item("UserPwd").value
usrPwd2 = document.all.item("UserPwd2").value
usrEmail = document.all.item("Email").value
if usrName ="" then
alert("用户名不能为空！")
else
if usrPwd = "" then
alert("口令不能为空！")
else
if usrEmail = "" then
alert("Email不能为空！")
else
if len(usrPwd)<6 or len(usrPwd)>12 then
alert("密码长度应该为6-12位，请重新输入")
else
if usrPwd<>usrPwd2 then
alert("口令不一致，请重新输入！")
else
location.href = "register.asp?UserName="+usrName+"&UserPwd="+usrPwd+"&Email="+usrEmail
end if
end if
end if
end if
end if
End Sub
-->
</SCRIPT>

这是我加在注册页面前的一部分代码，用来检验输入内容格式的正确与否。

楼主您好，为了更好的解答您的问题,我编了一个表单提交页面，并上传至我的空间，经过测试已经符合您的要求，并改进了一些代码．
演示网址：http://www.0576w.com/submit/submit.htm
下载地址:http://www.0576w.com/submit/submit.rar
如果有任何有关asp的疑问，请到http://www.0576w.com/note提出，我们真诚为您解答．
祝：工作顺利，事业有成
谢谢．

<SCRIPT LANGUAGE=vbscript>
<!--
Sub Check
usrName = document.all.item("UserName").value
usrPwd = document.all.item("UserPwd").value
usrPwd2 = document.all.item("UserPwd2").value
usrEmail = document.all.item("Email").value
if usrName ="" then
alert("用户名不能为空！")
else
if usrPwd = "" then
alert(&quo

请教用在vbscript里检验邮箱格式的正则表达式 在Dreamweaver8里 用ASP VBScript动态 连接Access数据库 请教在vbscript中length的用法 VBScript登入框数据检验问题 用vbscript写的代码怎么才能在vb里使用？（关于WMI） vbscript简单问题请教 vbscript代码请教 用VBSCRIPT 请问怎样在vbscript里调用服务器端函数?谢谢各位! 在VBScript里要对用户名实现检查是否含有指定的不合法字符,请问用哪个函数可以做到