怎幺写了。
  2、验证用户输入的邮件地址
  ’引用一段通用检测函数来说明
  ’由于检验程序较长，将其定义为一函数来调用
  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
  ’上面的这段函数大家应该都看的懂，当然你可以修改这段代

上一页  [1] [2] [3] 下一页

在google里搜索更多在ASP网站设计中表单验证

	Web www.51ec.org

上一篇信息学院： ASP网址和邮件地址的转换函数

下一篇信息学院： ASP：动网论坛代码分析