标题:怎么调用function 函数
取消只看楼主
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
结帖率:91.67%
已结贴  问题点数:20 回复次数:6 
怎么调用function 函数
怎么实现下面功能啊
a.asp页面
<html>
<body>
<form action="page.asp" method="post" name="form1">
 <input name="UserName" type="text">
<input name="submit" type="button" value="检查用户">
 <input name="submit" type="submit" value="提交">
</form>
</body>
</html>
当我点击 检查用户时,会弹出一个页面如果用户名合法则提示成功,如果用户名含有非法字符则提示他用户名含有非法字符
检查用户是否非法,问一下怎么调用function函数(调用下面类里的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

搜索更多相关主题的帖子: function 用户名 
2011-03-31 16:42
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
=IsValidUserName(UserName)
版主你这个写的是什么意思
2011-03-31 17:04
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
我用了你的方法但是出现错误
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'IsValidUserName'
/test1/page.asp, 第 3 行
page。asp
<!--#include file="Che_class.asp"-->
<%
  if IsValidUserName(Request.Form("UserName"))=False then
  response.Write("提示用户名含非法字符")
  End if

%>
2011-03-31 18:22
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
我知道错哪里了 少了一句话Set Qsite = New Che_class
if Qsite.IsValidUserName(Request.Form("UserName"))=False then
  response.Write("提示用户名含非法字符")
  End if

2011-03-31 18:32
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
但是我想用button这个按钮来实现这个功能呢
2011-03-31 18:33
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
能不能在a.asp进行判断,就是点击检查用户就出现对话框,对话框里是显示它是否用了非法字符
2011-03-31 18:43
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
有一段代码是这样写的是什么意思
a.asp页面
function CheckUser()
    {
        if(!checkLength("UserName" , "用户名称" , 3 , 16 , "~!@#$%^&*+=\\\'\"\<\>"))
            return false;
        window.showModalDialog("Person_CheckUser.asp?UserName=" + RegForm.UserName.value ,"Person_CheckUser","");
    }
person_checkUser.asp 页面
If Qsite.IsValidUserName(UserName) = True Then
    response.write "温馨提醒:\n\n·用户名称只能是字母,数字或下划线"
End If
它在中间加了一个这样的页面(person_checkUser.asp 页面)
2011-03-31 18:48



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




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

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