判断用户输入的是否为email地址的代码问题!

kbrw 2004-11-26 09:06:36
<%if IsValidEmail(trim(request.form("Email")))=false then
errmsg=errmsg+"<br>"+"<li>您输入的Email地址有错误。"
else
Email=trim(request.form("Email"))
end if%>

浏览器显示的显示的错误信息:
错误类型:
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'IsValidEmail'
/asd/reg.asp, 第 21 行


浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
...全文
78 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hong3348 2004-11-26
<%
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
%>
回复
777dragon 2004-11-26
我倒~ 好象~写错~ sorry~
回复
777dragon 2004-11-26
<%
if IsValidEmail(trim(request.form("Email")))=false then
errmsg=errmsg+"<br>"+"<li>您输入的Email地址有错误。"
Response.End
else
Email=trim(request.form("Email"))
end if
%>
回复
你用正则判断吧
回复
kbrw 2004-11-26
怎么没人里,帮帮忙~!
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-26 09:06
社区公告
暂无公告