久久精品欧美美99亚洲洲在,岛国无码av手机在线观看

'*************************************
'檢測是否只包含英文和數(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

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

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

'*************************************
'用戶名檢測
'*************************************

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

'*************************************
'檢測是否有效的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表單驗證神器BootstrapValidator
AngularJS使用angular-formly進(jìn)行表單驗證
javascript Zifa FormValid 0.1表單驗證代碼打包下載
jquery表單驗證使用插件formValidator
基于Bootstrap+jQuery.validate實現(xiàn)Form表單驗證
jQuery 表單驗證插件formValidation實現(xiàn)個性化錯誤提示
jQuery formValidator表單驗證插件開源了含API幫助、源碼、示例
jQuery表單驗證插件formValidator(改進(jìn)版)
Validform+layer實現(xiàn)漂亮的表單驗證特效
基于javascript的Form表單驗證

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

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