asp For Each语句实例

 

请输入电子邮箱：>

 

<%
 if request.form("submit")="确定" then
  email=request.form("email")       '读取输入的字符串
  names=split(email,"@")        'split函数是将字符串用指定的字符分割成多个子字符串，并将这些子字符串保存在一维数组中
  if ubound(names)<>1 then       'ubound函数返回数组的最大下标
   response.write("")  '给出提示
   response.end        '结束运行asp程序
  end if
  for each name in names        'for each循环语句
   if len(name)<=0 then       'len函数获得字符串的长度
    response.write("") '字符串长度小于等于0，则给出提示
    exit for       '跳出for循环
   end if
  next
 end if
%>