[求助]如何实现邮箱验证，怎么去实现程序呢？ - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → [求助]如何实现邮箱验证，怎么去实现程序呢？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1857 人关注过本帖

标题：[求助]如何实现邮箱验证，怎么去实现程序呢？

只看楼主加入收藏

枫吹过的季节

等　级：新手上路
帖　子：120
专家分：0
注　册：2007-7-8

楼主

问题点数：0 回复次数：21

[求助]如何实现邮箱验证，怎么去实现程序呢？

搜索更多相关主题的帖子: 邮箱　 name　Function　IsValidEmail　

2007-10-20 11:24

mnll

等　级：新手上路
帖　子：17
专家分：0
注　册：2007-8-28

第 2 楼

得分:0

看不懂啊！刚出道阿！嘿嘿

2007-10-20 11:32

枫吹过的季节

等　级：新手上路
帖　子：120
专家分：0
注　册：2007-7-8

第 3 楼

得分:0

没事的谢谢！能不能帮忙看一下啊！谢谢各位！！！

2007-10-20 11:43

永夜的极光

等　级：贵宾
威　望：27
帖　子：2721
专家分：1
注　册：2007-10-9

第 4 楼

得分:0

其实就是一个正则表达式的事情

以下代码来自百度



<script language=\"javascript\">
function isEmail(strEmail) {
  if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1)
   return true;
  else
   alert(\"Email格式不正确！\");
   document.formSignUp.email.value=\"\";
   document.formSignUp.email.focus();
 }
</script>

这个是用js实现的

从BFS(Breadth First Study)到DFS(Depth First Study)

2007-10-20 11:57

枫吹过的季节

等　级：新手上路
帖　子：120
专家分：0
注　册：2007-7-8

第 5 楼

得分:0

有没有用asp实现的阿？谢谢！

2007-10-20 16:13

tianyu123

等　级：新手上路
威　望：2
帖　子：576
专家分：0
注　册：2007-8-26

第 6 楼

得分:0

这个不就是ASP的吗？不过此代码有几处错误！

红色的部位 TURE 改为 True

红色的部位 IsNumber 改为 IsNumeric

然后调用即可！

如：mail=request.form("mail")
if not IsValidEmail(mail) then
response.write"电子邮箱格式错误!"
response.end
end if

<%
Function IsValidEmail(email)
Dim names,name,i,c
ISvalidEmail=TURE
names=Split(email,"@")
If Ubound(names)<>1 Then
IsValidEmail=FALSE
Exit Function
End if
For Each name in names
If Len(name)<=0 Then
IsValidEmail=FALSE
Exit Function
End if
For i=1 To Len(name)
c=LCase(Mid(name,i,1))
If InStr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0 And NOT IsNumber(c) Then
IsValidEmail=FALSE
Exit Function
End if
Next
If Left(name,1)="." or Right(name,1)="." Then
IsValidEmail=FALSE
Exit Function
End if
Next
If InStr(names(1),".")<=0 Then
IsValidEmail=FALSE
Exit Function
End If
i=Len(Names(1))-InStrRev(names(1),".")
If i<>2 AND i<>3 Then
ISValidEmail=FALSE
Exit Function
End If
If Instr(email,"..")>0 Then
IsValidEmail=FALSE
End If
End Function
%>

改变一切，须从改变观念开始！

2007-10-20 18:05

枫吹过的季节

等　级：新手上路
帖　子：120
专家分：0
注　册：2007-7-8

第 7 楼

得分:0

那它怎么样去递交表单时候实现这段代码的功能呢？

2007-10-20 20:07

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 8 楼

得分:0

<%
Function IsValidEmail(email)
Dim names,name,i,c
ISvalidEmail=TURE
names=Split(email,"@")
If Ubound(names)<>1 Then
IsValidEmail=FALSE
Exit Function
End if
For Each name in names
If Len(name)<=0 Then
IsValidEmail=FALSE
Exit Function
End if
For i=1 To Len(name)
c=LCase(Mid(name,i,1))
If InStr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0 And NOT IsNumber(c) Then
IsValidEmail=FALSE
Exit Function
End if
Next
If Left(name,1)="." or Right(name,1)="." Then
IsValidEmail=FALSE
Exit Function
End if
Next
If InStr(names(1),".")<=0 Then
IsValidEmail=FALSE
Exit Function
End If
i=Len(Names(1))-InStrRev(names(1),".")
If i<>2 AND i<>3 Then
ISValidEmail=FALSE
Exit Function
End If
If Instr(email,"..")>0 Then
IsValidEmail=FALSE
End If
End Function
%>
将这段代码写在一个asp文件中引用过来
比如上面保存为IsValidEmail.asp
则代码为
(假设文件在同一目录下)

<html>
<head>
<script language="javascript">
<%
Dim UsEmail
UsEmail=Request.Form("UsEmail")
IF UsEmail<>"" Then
IF IsValidEmail(UsEmail)=False Then
Response.Write "alert('电子邮件输入有错误');"
End IF
End IF
%>
</script>
</head>
<body>
<form name="form1" method="post" action="" >
<input type="text" name="UsEmail" >请输入EMail地址
<input type="submit" name="subbutton" value="提交" >
</form>
</body>
</html>

2007-10-20 20:25