| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 401 人关注过本帖
标题:[求助] asp高手请进了 郁闷
只看楼主 加入收藏
llj0123
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-12-30
收藏
 问题点数:0 回复次数:2 
[求助] asp高手请进了 郁闷

请帮小弟看看下面一段代码是什么意思 谢谢

请说具体点 每段说什么 谢谢 谢谢

IsValidEmail = true
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 IsNumeric(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 
2005-12-30 09:57
conn
Rank: 2
等 级:新手上路
威 望:5
帖 子:420
专家分:0
注 册:2005-11-27
收藏
得分:0 
是一个验证邮件格式的函数。写的太麻烦,建议用正则

我是新手,但我很虚心,对我发的问题请不要取笑,谢谢
2005-12-30 10:00
llj0123
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-12-30
收藏
得分:0 
请把正规的写一下我看看 谢谢
2005-12-30 10:19
快速回复:[求助] asp高手请进了 郁闷
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026738 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved