求助 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

红星

检查是否是合法的E-mail地址的函数定义

飘渺

应该是用来检测邮件地址格式的！

天语悠悠

大哥 你说的我也知道  只是不知道每一句的作用  能不能详细一点 谢谢了

ㄗs-﹎呯倓

其实这些都不用知道，只要会用就行了

无民

验证email有这没麻烦吗，晕，也不知谁写的

毅歌

这个虽然复杂，但很全面

封xin封mg

晕   大哥们  那是老师写的 我哭  他要我看懂 我得交作业呀  不看懂怎么行  郁闷

渴望光明

你们老师骗人了吧。我的网站就是用这个来检测的

金马

晕 怎么没看明白我的意思 老师只是要我看懂 其它的就不管了 哭