 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
************************************************** \\\'函数名：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 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 if Left(names(1),1) ="+" 0 then IsValidEmail = false exit function end if if Right(names(1),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 返回类别: 教程 上一教程: ASP中巧用SPLIT()函数生成SQL查询语句 下一教程: 如何善用RESPONSE.BUFFER增进浏览速度 您可以阅读与"实现E-MAIL地址验证的VBS函数代码"相关的教程: · 验证EMAIL地址是否合法完整实例 · JMAIL中避过SMTP验证的一法 · 一个简朴的E_MAIL地址判定函数 · 身份证验证代码函数 · 一个简朴的E_MAIL地址判定函数(通用) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
