<% '****************************** '函数：IsValidUserName(byVal UserName) '参数：UserName,用户名称 '作者：阿里西西 '日期：2007/7/15 '描述：验证用户名是否包含有非法字符，不含非法字符返回：true '示例：IsValidUserName(byVal UserName) '****************************** Function IsValidUserName(byVal UserName) Dim i,c 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 End Function %>

　　推荐阅读

　　asp 取得中文句子头一个字的大写拼音字母的函数

取得中文句子头一个字的大写拼音字母<% '****************************** '函数：getpychar(char) '参数：char,任意中文字符或句子 '作者：阿里西西 '日期：2007/7/15 '描述：取得中文句子头一个字的大写拼音字母 >>>详细阅读

本文标题：asp 验证用户名是否包含有非常字符的函数

地址：http://www.17bianji.com/kaifa2/ASP/32472.html

 1/2    1