了解asp form 表单验证函数
发布时间：2023-08-10 14:21:00 所属栏目：Asp教程 来源：
导读：在ASP编程中，函数也是需要经常使用的，我们需要把数据发送到服务器进行验证，下面小编一起来了解asp form 表单验证函数吧！
Function IsvalidValue(ArrayN, Str)
IsvalidValue = False
Dim GName
F
Function IsvalidValue(ArrayN, Str)
IsvalidValue = False
Dim GName
F
|
在ASP编程中，函数也是需要经常使用的，我们需要把数据发送到服务器进行验证，下面小编一起来了解asp form 表单验证函数吧！ 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 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 （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
