婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > asp IsValidEmail 驗證郵箱地址函數(email)

asp IsValidEmail 驗證郵箱地址函數(email)

熱門標簽:騰訊地圖標注商戶關閉 徐州人工智能電銷機器人好用嗎 長沙防封電銷卡品牌 地圖標注服務哪家好 西寧公司外呼系統平臺 武漢營銷電話機器人軟件 地圖標注宅基地 外呼系統還用卡么 智能電銷機器人適用于哪些行業
復制代碼 代碼如下:

'********************************************
'函數名:IsValidEmail
'作 用:檢查Email地址合法性
'參 數:email ----要檢查的Email地址
'返回值:True ----Email地址合法
' False ----Email地址不合法
'********************************************
Public Function IsValidEmail(Email)
Dim names, name, I, c
IsValidEmail = True
names = Split(Email, "@")
If UBound(names) > 1 Then IsValidEmail = False: Exit Function
For Each name In names
If Len(name) = 0 Then IsValidEmail = False:Exit Function
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
Next
If Left(name, 1) = "." Or Right(name, 1) = "." Then IsValidEmail = False:Exit Function
Next
If InStr(names(1), ".") = 0 Then IsValidEmail = False:Exit Function
I = Len(names(1)) - InStrRev(names(1), ".")
If I > 2 And I > 3 Then IsValidEmail = False:Exit Function
If InStr(Email, "..") > 0 Then IsValidEmail = False
End Function


其它語言可以參考:
郵箱地址正則表達式驗證代碼合集腳本之家特別版
您可能感興趣的文章:
  • asp email郵箱地址驗證正則表達式
  • 郵箱地址正則表達式驗證代碼合集腳本之家特別版
  • 檢測郵箱地址是否合法 Check Mail Address (For: IE5+、FF1.06、Opera 7+ ...)[
  • php中郵箱地址正則表達式實現與詳解

標簽:巴彥淖爾 運城 鷹潭 雅安 普洱 通化 荊門 通遼

巨人網絡通訊聲明:本文標題《asp IsValidEmail 驗證郵箱地址函數(email)》,本文關鍵詞  asp,IsValidEmail,驗證,郵箱,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp IsValidEmail 驗證郵箱地址函數(email)》相關的同類信息!
  • 本頁收集關于asp IsValidEmail 驗證郵箱地址函數(email)的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 贡嘎县| 武城县| 仁怀市| 武功县| 高安市| 金溪县| 孝义市| 昌江| 天气| 连平县| 水富县| 开江县| 廉江市| 长武县| 当阳市| 革吉县| 南充市| 民勤县| 桓仁| 广州市| 和政县| 沭阳县| 伊宁县| 三都| 海伦市| 泰顺县| 遂昌县| 霍州市| 荥经县| 上犹县| 海安县| 辰溪县| 凯里市| 巴东县| 兴义市| 岐山县| 响水县| 淳安县| 石林| 蕲春县| 竹溪县|