asp form 表單驗證函數

2020-07-27 12:55:36

字體：大中小

來源：轉載

供稿：網友

'*************************************
'檢測是否只包含英文和數字
'*************************************

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("$!<>?#^%@~`&*();:+='"" 主站蜘蛛池模板：阿城市| 江安县| 苍山县| 衡水市| 阿勒泰市| 彰化县| 禹城市| 灵川县| 亚东县| 和硕县| 深泽县| 崇信县| 勃利县| 石门县| 波密县| 万山特区| 敦化市| 新乡县| 井冈山市| 东乌珠穆沁旗| 中卫市| 宜兰县| 芒康县| 宁乡县| 广德县| 延长县| 文安县| 六安市| 渝中区| 常熟市| 南澳县| 炎陵县| 沾化县| 万州区| 柳江县| 昌平区| 麻江县| 四平市| 龙陵县| 宁城县| 祁门县|

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本