**************************************************
函数名:IsValidEmail
作 用:检查Email地址合法性
参 数:email ---- 要检查的Email地址
返回值: True ---- Email地址合法
False ---- 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 = 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
函数名:IsValidEmail
作 用:检查Email地址合法性
参 数:email ---- 要检查的Email地址
返回值: True ---- Email地址合法
False ---- 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 = 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