一区二区久久-一区二区三区www-一区二区三区久久-一区二区三区久久精品-麻豆国产一区二区在线观看-麻豆国产视频

一個判斷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
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
%>

JavaScript技術一個判斷email合法性的函數[非正則],轉載需保留來源!

鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

主站蜘蛛池模板: 国产99视频精品草莓免视看 | 婷婷激情六月 | 精品久久久久久无码中文字幕 | 久久免费区一区二区三波多野 | 成人国产精品免费视频 | 亚洲一区国产 | 狠狠色婷婷丁香六月 | 国产91麻豆视频 | 好吊色欧美一区二区三区四区 | 色网视频在线观看 | 国产一区中文字幕在线观看 | 国产免费一区二区 | 婷婷国产成人久久精品激情 | 久久亚洲欧美日本精品品 | 中文字幕一区二区三区乱码 | 亚洲图片天堂 | 夜色福利院在线看青草一 | 四虎最新永久在线精品免费 | 大色网小色网 | 免费一区二区三区四区五区 | 草草视频在线免费观看 | 四虎影永久在线观看精品 | 成人福利免费观看体验区 | 久久毛片久久毛 | 国产福利在线观看永久视频 | 91热国内精品永久免费观看 | 久久国产乱子伦免费精品 | 美国三级日本三级久久99 | 欧美图片另类小说综合 | 四虎永久在线日韩精品观看 | 一级做a爰片久久毛片美女 一级做a爰片久久毛片人呢 | 欧美精品午夜 | 亚洲影视一区二区 | 五月开心综合 | 在线免费观看精品 | 国产91小视频在线观看 | 精品一区二区三区四区五区 | 久久tv| 日本道精品一区二区三区 | 日韩欧美不卡片 | 黄色日韩网站 |