一道本一区二区三区,国产aⅴ精品一区二区四区,国产精品揄拍一区二区

'*************************************
'檢測(cè)是否只包含英文和數(shù)字
'*************************************

Function IsvalidValue(ArrayN, Str)
IsvalidValue = False
Dim GName
For Each GName in ArrayN
If Str = GName Then
IsvalidValue = True
Exit For
End If
Next
End Function

'*************************************
'檢測(cè)是否有效的數(shù)字
'*************************************

Function IsInteger(Para)
IsInteger = False
If Not (IsNull(Para) Or Trim(Para) = "" Or Not IsNumeric(Para)) Then
IsInteger = True
End If
End Function

'*************************************
'用戶名檢測(cè)
'*************************************

Function IsValidUserName(byVal UserName)
Dim i, c
Dim VUserName
IsValidUserName = True
For i = 1 To Len(UserName)
c = LCase(Mid(UserName, i, 1))
If InStr("$!>?#^%@~`*();:+='"" ", c) > 0 Then
IsValidUserName = False
Exit Function
End If
Next
For Each VUserName in Register_UserName
If UserName = VUserName Then
IsValidUserName = False
Exit For
End If
Next
End Function

'*************************************
'檢測(cè)是否有效的E-mail地址
'*************************************

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

您可能感興趣的文章:

JS組件Form表單驗(yàn)證神器BootstrapValidator
AngularJS使用angular-formly進(jìn)行表單驗(yàn)證
javascript Zifa FormValid 0.1表單驗(yàn)證代碼打包下載
jquery表單驗(yàn)證使用插件formValidator
基于Bootstrap+jQuery.validate實(shí)現(xiàn)Form表單驗(yàn)證
jQuery 表單驗(yàn)證插件formValidation實(shí)現(xiàn)個(gè)性化錯(cuò)誤提示
jQuery formValidator表單驗(yàn)證插件開源了含API幫助、源碼、示例
jQuery表單驗(yàn)證插件formValidator(改進(jìn)版)
Validform+layer實(shí)現(xiàn)漂亮的表單驗(yàn)證特效
基于javascript的Form表單驗(yàn)證

標(biāo)簽：荊門通遼鷹潭通化普洱運(yùn)城巴彥淖爾雅安

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp form 表單驗(yàn)證函數(shù)》，本文關(guān)鍵詞 asp,form,表單,驗(yàn)證,函數(shù),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

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

asp form 表單驗(yàn)證函數(shù)