高手们，小女子求：asp 检验邮件格式代码 ，请帮帮忙。。。


谢谢罗。。。。。。

被调用函数
<%
Function isemail(strng)
isemail = false
Dim regEx,Match
Set regEx = New RegExp
RegEx.Pattern = "^\w+((-\w+)|(.\w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$"
RegEx.IgnoreCase = True
Set Match = RegEx.Execute(strng)
if match.count then isemail = true
End Function
%>

<%
Email=Trim(request.form("Email"))
if not isemail(Email) then
response.write "对不起，Email格式不对！"
end if
%>

非常感谢。。。。

<script language="vbscript">  
//检验邮件格式的正确
Function isemail(strng)
  isemail = false
  Dim regEx,Match
  set RegEx = new RegExp
  RegEx.Pattern = "^\w+((-\w+)|(.\w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$"
  RegEx.IgnoreCase = true
  set Match = RegEx.Execute(strng)
  if Match.count then isemail = true
  End if
End Function
</script>


这样写错在哪里？

改成这样试试：
<script language="vbscript" runat="server">  
//检验邮件格式的正确
Function isemail(strng)
  isemail = false
  Dim regEx,Match
  set RegEx = new RegExp
  RegEx.Pattern = "^\w+((-\w+)|(.\w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$"
  RegEx.IgnoreCase = true
  set Match = RegEx.Execute(strng)
  if Match.count then isemail = true
  End if
End Function
</script>
-----------11111-------
<script language="vbscript">
vbs代码
</script>
----------22222--------
<script language="vbscript" runat="server">
vbs代码
</script>
--------------------------
11111:是在客户端执行的
22222：是在服务端执行的


[[it] 本帖最后由 lele2007 于 2008-2-11 22:13 编辑 [/it]]

我发现自己的ASP，JAVA，VBSCRIPT都不好。。。请问有什么教程不？