asp检测是否只包含英文和数字、是否有效的数字、用户名等函数-'检测是否只包含英文和数字 Function IsValidChars(str) Dim re,chkstr ...

海南网站建设,网页设计
记忆工作中的点滴
首页>> Asp技术 >>asp检测是否只包含英文和数字、是否有效的数字、用户名等函数
'检测是否只包含英文和数字   
Function IsValidChars(str)    
Dim re,chkstr    
Set re=new RegExp    
re.IgnoreCase =true    
re.Global=True   
re.Pattern="[^_\.a-zA-Z\d]"   
IsValidChars=True   
chkstr=re.Replace(str,"")    
if chkstr<>str then IsValidChars=False   
set re=nothing    
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)    
on error resume next    
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 

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:不懂戀愛魚兒 » asp检测是否只包含英文和数字、是否有效的数字、用户名等函数
标签: asp 函数 有效数字

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(0)