 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\' \\\' 判定E_mail输入是否准确 \\\' \\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\' Function IsValidE_mail(E_mail) \\\'判定E_mail地址中是否有@符号，假如没有@符号或者@符号在E_mail字符第一个或最后一个，则函数都返回False，并退出函数。 E_mailArray=Split(E_mail, "@") If UBound(E_mailArray)<>1 Then IsValidE_mail=False Exit Function End If \\\'判定E_mail地址中是否有连在一起的..符号（包括了...或无数个.连接的符号），假如有，则函数都返回False，并退出函数。 If InStr(E_mail,"..")>0 Then IsValidE_mail=False Exit Function End If \\\'判定E_mail地址中@后的字符串是否有.字符，假如没有.符号或者.符号在E_mail字符第一个，则函数都返回False，并退出函数。 If InStr(E_mailArray(1), ".") <= 0 Then IsValidE_mail = False Exit Function End If \\\'判定E_mail地址中.后的字符串是否等于2字符或3字符，假如不等于，则函数都返回False，并退出函数。 Number=Len(E_mailArray(1))-InStrRev(E_mailArray(1),".") If Number<>2 And Number<>3 Then IsValidE_mail=False Exit Function End If For Each E_mailArrayContent In E_mailArray \\\'判定E_mail地址中@前是否有字符，假如没有，则函数都返回False，并退出函数。 If Len(E_mailArrayContent)<=0 Then IsValidE_mail=False Exit Function End If \\\'判定E_mail地址中是否含有除abcdefghijklmnopqrstuvwxyz_-和数字以外的非法字符，假如含有，则函数返回False，并退出函数。 For Number=1 To Len(E_mailArrayContent) E_mailStr=Lcase(Mid(E_mailArrayContent,Number,1)) If InStr("abcdefghijklmnopqrstuvwxyz_-.",E_mailStr)<=0 And Not IsNumeric(E_mailStr) Then IsValidE_mail=False Exit Function End If Next \\\'判定E_mail地址中@前后的字符串中是否第一个和是最后一个字符是.字符，假如是，则函数都返回False，并退出函数。 If Left(E_mailArrayContent,1)="." Or Right(E_mailArrayContent,1)="." Then IsValidE_mail=False Exit Function End If Next \\\'没有发现E_mail地址中有非常字符，函数返回True，函数结束。 IsValidE_mail=True End Function 返回类别: 教程 上一教程: 用ASP连接各种数据库的方式集锦 下一教程: 一个基于WEB的QQ程序 2(XML+ASP) 您可以阅读与"一个简朴的E_MAIL地址判定函数(通用)"相关的教程: · 一个简朴的E_MAIL地址判定函数 · 检查EMAIL地址的比较完善的正则表达式函数 · 一个超强通用的分页显示函数 · 实现E-MAIL地址验证的VBS函数代码 · 针对SELECT写了一个通用的OPTION输出函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
