标题:给个检查用户名是否含有非法字符完整代码
只看楼主
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
结帖率:91.67%
已结贴  问题点数:10 回复次数:3 
给个检查用户名是否含有非法字符完整代码
谁能给我一个检查用户是否含有非法字符的完整代码,要求直接复制就能运行的,简单一点,最好页面只有用户名和密码的,含有非法性判断单独一个页面
谢谢
搜索更多相关主题的帖子: 用户名 
2011-03-31 15:18
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
得分:10 
uname="name"
if InStr(uname,"%") then
 response.write "用户名包含非法字符"
else
 response.write "用户名未包含非法字符"
end if

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-03-31 17:05
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
版主不要敷衍我啊 你这里至少应该这样写啊  uname="name"
                                         if InStr(uname,"%")>0 then
                                         response.write "用户名包含非法字符"
                                         else
                                         response.write "用户名未包含非法字符"
                                         end if
我想要的是一个注册页面,用户名旁边有一个检查用户,点击这个按钮,会提示你是否含有非法字符,这个页面还要调用Che_class.asp里的function函数

Class Che_class
 public 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
End Class
2011-03-31 17:15
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
得分:0 
网上找,我只是给你个思路
让别人代劳写代码的作业本版并不提倡,详见https://bbs.bccn.net/announcement.php?id=43#43

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-04-01 08:22



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-335300-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.066945 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved