深圳网站制作中aSP检测网站邮箱Email是否有效

用asp程序检测网站邮箱email是否有效
<%
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 = mid(name, i, 1)
if instr(abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz_-., 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
%>


香港服务器和美国服务器应该怎么选择？
北京到太康物流专线
网站流量数据统计与分析
购买域名后该怎么办？
大连到黄冈物流专线
苏州到滁州物流专线
温州到三明物流专线
美国云主机建站怎么选高性价比机房？