• 主网站
    • 网站案例
    • 域名主机
    • 网站建设
    • 网站推广
    • 系统开发
    • 设计文章
    • 联系我们
    • 网站制作教程
    • ASP+CSS实现网页随机背景
    • 文字在网页上面的应用
    • 用CSS实现无图片圆角效果
    • 什么样是合理的网页设计
    • CSS样式表的优化与技巧
    • CSS样式表的命名规范
    • XHTML代码的基本应用
    • 内容自动添加到指定的JS
    • 一组常用的弹出窗口
    • 查看网站更新的代码
    • JS刷新页面
    • 突破IIS6上传文件尺寸限制
    • 批量处理数据库
    • 用ASP判断Email地址
    • 新闻内容分页
    • ASP邮件发送程序
    • 网页防盗代码
    • ASP时间代码
    • 开始→运行→命令集锦!
    • 会员登陆的检测代码
    • Win2003的远程桌面连接端口
    • 更改apache的默认页
    • 网站制作中常用的CSS
    • DOC下常见的端口
    • xp下安装sql2000企业版
    • Thumbs.db文件是什么
    • msn随outlook启动
    • js调用ASP程序
    • 常用的JS代码!
    • 在网站制作中flash背景透明
    • 如何制作网站??
    • 限制数据库文件大小的方法
    • MYSQL中对数据库的操作
    • 保护邮件地址防垃圾有巧招
    • 解决MSSQL占用过多内存
    • 用ASP判断Email地址 -- (网站制作教程)

    •     以XML样式显示

       在用ASP编写页面时,如果涉及到邮件发送,一般会要求输入Email地址。错误的Email地址往往带来许多不必要的麻烦,用下面的函数IsValidEmail就能判断出一个Email地址是否有效。
      函数源代码:
      <%
      Function IsValidEmail(Email)
      ValidFlag = False
      If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
      atCount = 0
      SpecialFlag = False
      For atLoop = 1 To Len(Email)
      atChr = Mid(Email, atLoop, 1)
      If atChr = "@" Then atCount = atCount + 1
      If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
      If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
      If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
      If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
      Next
      If (atCount = 1) And (SpecialFlag = False) Then
      BadFlag = False
      tAry1 = Split(Email, "@")
      UserName = tAry1(0)
      DomainName = tAry1(1)
      If (UserName = "") Or (DomainName = "") Then BadFlag = True
      If Mid(DomainName, 1, 1) = "." then BadFlag = True
      If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
      ValidFlag = True
      End If
      End If
      If BadFlag = True Then ValidFlag = False
      IsValidEmail = ValidFlag
      End Function
      %>
      用法举例:
      IsValidEmail("my_263_email@263.net") 返回Ture
      IsValidEmail("zh99wj@tonghua.com.cn") 返回Ture
      IsValidEmail("myemail263.net") 返回False
      IsValidEmail("my_263_email@263) 返回False
      请注意,函数只是判断Email地址格式是否有效,但并不能检查该地址是否确实存在。