帮忙看看这段代码，我理解的有没有问题？

2004-01-08 02:56:55 98 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

保姆级教程：用SSC Tool 5.13为先楫HPM6E00EVK生成8轴EtherCAT从站代码（含XML配置详解）本文详细介绍了如何使用SSC Tool 5.13为先楫HPM6E00EVK开发板配置8轴EtherCAT从站，包括XML文件深度配置、代码生成与工程整合、烧录与调试技巧。教程涵盖从环境准备到性能优化的全流程，帮助开发者快速实现符合CIA402标准的8轴控制。阅读详情

<%
function IsValidEmail(email)

dim names, name, i, c

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)) 'mid函数返回name字符串中从i开始长度
'是1的字符，然后由lcase函数将它转换
'成小写字符
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
%>
----------------------------------------------------------------
这是一个判断email合法性的函数，但是为什么感觉有重复的判断在里面，有些不明白。
1、name是干什么用的？
2、names = Split(email, "@")
names是一个数组存放email表达式，那“@”有什么作用呢？
3、if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
UBOND()的作用是返回指定的数组维可用的最大下标，但是这句话判断结果不为1的时候为什么就要退出函数呢？我认为输入email后，它的值肯定不为1。
4、if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c)then
'判断C在不在这些字符里，如果不在退出
if InStr(names(1), ".") <= 0 then
判断name里有没有“.”，如果不存在那么退出。
这两个判断都判断了“.”存在与否，是否重复了？
5、i = Len(names(1)) - InStrRev(names(1), ".")
判断在name字符串中“.”后面有几位字符，这么理解正确吗？
6、if InStr(email, "..") > 0 then
这是判断什么的？
最近刚看ASP希望各位高手多多指教。

...全文