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