服务器之家

服务器之家 > 正文

asp form 表单验证函数

时间:2019-09-14 20:35     来源/作者:asp之家

'*************************************

'检测是否只包含英文和数字

'*************************************

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

标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-07-24
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部