asp日期格式函数:ASP验证EMAIL格式合法性的函数来源: 发布时间:星期四, 2008年9月25日 浏览:98次 评论:0
function IsValidEmail(email)
dim names, name, i, c \'Check for valid syntax in an email address. 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 0
相关文章
读者评论
发表评论 |