jk_email.asp

是个不错的文件代码,希望大家好好用,

<%

'------------------------------------邮件识别--------------------------------------
function email_ok(email,en)
  dim names,name,ei,c
  email_ok=false
  names=split(email,"@")
  if ubound(names)<>1 or email="" then
    exit function
  end if
  for each name in names
    if len(name) <= 0 then
      exit function
    end if
    for ei=1 to len(name)
      c=lcase(mid(name,ei,1))
      if instr("abcdefghijklmnopqrstuvwxyz-_.",c)<= 0 and not(isnumeric(c)) then
        exit function
      end if
    next
    if left(name,1)="." or right(name,1)="." then
      exit function
    end if
  next
  if instr(names(1),".")<=0 or len(email)>en then
    exit function
  end if
  email_ok=true
end function

%>