征集网锐志网络淘途找素材上91123RF图片库
创意在线首页
官方微博:腾讯
平面设计交互设计CG动漫工业设计建筑环境数码影像创意搜
 首页大赛征集资讯教程画廊访谈作品集创企同盟设计招聘人才专区竞赛台专题论吧 找素材看酷站设计网址库
教程网 Illustrator、Photoshop、CoreaDreaw、AI教程、PS教程
当前位置:首页 > 教程 > 程序相关 > 正文
ASP检测E-mail格式的有效性
作者: 来源: 发表时间:2007-8-14 17:10:16 浏览:
首先用编辑器(Dreamaver或记事本)建立index.asp文件(取名任意),输入以下代码:
·设计师个人作品集火热申请中!
·查询网站排名推荐您用Chianz排名查询
·“论吧”正式上线 欢迎参与主题讨论
·全球经典酷站推荐欣赏
·矢量素材 给设计师提供强大后盾
·加入设计师论坛,精彩无限
·设计网址大全,免费收录所有设计站点


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>检测Email地址</title>
</head>
<body>
<form method="POST" action="emcheck.asp">
  <p><input type="text" name="T1" size="20"><input type="submit" value="提交" name="B1">
  <input type="reset" value="全部重写" name="B2"></p>
</form>
</body>
</html>

      接着再建立emcheck.asp文件,输入以下代码:


<html>
<body>
  
<% 
function IsValidEmail(email) 
’判断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 
%> 
<% 
k=IsValidEmail(request("t1")) 
if k=true then 
response.write request("t1") & "邮件地址有效" 
else 
response.write request("t1") & "邮件地址无效" 
end if 
%> 
</body> 
</html>




在线编辑:morion
本文链接:


推荐阅读:
·第九届中国高校美术(设计)作品学年展 征稿章程
·2017第三届“包豪斯奖”国际设计大赛
·青春唯美插画培训网络远程班正在招生
·创企同盟VIP:网络品牌建设提供商-木兰设计
·“汇聚文创动能,发展天府文化”成都创意设计周将于11月10日开启
·2019 年国际足联女子世界杯会徽和口号正式
·世界最大移动通讯公司 沃达丰(Vodafone)启用新 LOGO
·德国足协公布2024年欧洲杯申办LOGO
免责声明:本站刊载此文不代表同意其说法或描述,仅为提供更多信息。对本文有异议,请联络本站!
转载要求:文章作者及来源信息必需保留。转载之图片、文件请不要盗链本站地址,且不准打上各自站点的水印!

创意素材推荐 矢量 | PSD | 模板 | 高清 | PNG | 网页背景
2009-02-06
韩国站点 素材资源 艺术摄影 游戏娱乐 影视网站 建筑家居 FLASH站 旅游购物 明星网站
设计门户 优秀企业 时尚品牌 象素站点 数码通信 设计公司 汽车网站 国外优秀 儿童网站
个性展示 网站教学 工 作 室 学校教育 卡通漫画 文化艺术 体育运动 美容健身 食品饮料
近期推荐报道 返回首页更多精彩等着你!

Photoshop| Photoshop快速调出情侣图片柔美的插画艺术| 绝望的小熊—美国插画师Luke
网页设计| 波兰Tiquet网站设计作品欣赏插画艺术| Nanami Cowdroy灵动黑白插画
Photoshop| Photoshop调出美女图片绚丽的橙红HTML/CSS| 实现DIV透明而里面的文字不透明
平面设计| 世界杯之平面广告欣赏插画艺术| Alberto Cerrite&ntil
平面设计| Havaianas人字拖最新平面广告系列网页设计| 英国madefavourite简洁细腻型
韩国站点 素材资源 艺术摄影 游戏娱乐 影视网站 建筑家居 FLASH站 旅游购物 明星网站 个性展示 网站教学 工 作 室 学校教育
设计门户 优秀企业 时尚品牌 象素站点 数码通信 设计公司 汽车网站 国外优秀 儿童网站 文化艺术 体育运动 美容健身 食品饮料
网站名称:whaternet
网站地址:http://whaternet.com/
加入时间:2014-8-5 13:59:20
网站名称:mnnaite
网站地址:http://www.mnnaite.com/static/
加入时间:2014-8-5 13:58:07
网站名称:tijuanaflats
网站地址:http://tijuanaflats.com/
加入时间:2014-8-5 13:55:32
网站名称:digital
网站地址:http://production-digital.com/
加入时间:2014-8-5 13:54:45
网站名称:deutschesee
网站地址:http://www.deutschesee.de/
加入时间:2014-8-5 13:51:54
网站名称:kennedy
网站地址:http://www.kennedyandoswald.com/
加入时间:2014-8-5 13:50:57
关于本站 | 联系方式 | 商业服务 | 合作伙伴 | 站点地图 | 免责声明 | 版权声明 | 在线投稿