 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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 返回类别: 教程 上一教程: 一个实用的FSO－实时统计在线人数 下一教程: 用排序串字段实现树状结构(例程??显示树) 您可以阅读与"检测表单输入EMAIL的合法性"相关的教程: · 表单递交合法性检测-Email · 表单递交合法性检测-只答应填写字母 · 用VBSCRIPT判定EMAIL地址的合法性 · 表单递交合法性检测-只接受数字 · 表单递交合法性检测-日期 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
