UC知道asp程序输入框 我想取消数字限制
来源：百度知道 编辑：UC知道 时间：2024/09/20 19:24:33
我有这样一段代码
If action = "save" Then
Call RegStr("^[0-9]*$",qq,"QQ号码输入有误！")
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Info",Conn,1,3
Rs.AddNew
Rs("qq") = qq
Rs("pass") = pass
Rs("class") = qu
Rs("grade") = dj
Rs("addtime") = Now()
Rs("loginip") = Request.ServerVariables("REMOTE_HOST")
Rs.Update
Rs.Close
Set Rs = Nothing
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Infos",Conn,1,3
Rs.AddNew
Rs("qq") = qq
Rs("pass") = pass
Rs("class") = qu
Rs("grade") = dj
Rs("addtime") = Now()
Rs("loginip") = Request.ServerVariables("REMOTE_HOST")
Rs.Update
Rs.Close
Set Rs = Nothing
If action = "save" Then
Call RegStr("^[0-9]*$",qq,"QQ号码输入有误！")
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Info",Conn,1,3
Rs.AddNew
Rs("qq") = qq
Rs("pass") = pass
Rs("class") = qu
Rs("grade") = dj
Rs("addtime") = Now()
Rs("loginip") = Request.ServerVariables("REMOTE_HOST")
Rs.Update
Rs.Close
Set Rs = Nothing
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Infos",Conn,1,3
Rs.AddNew
Rs("qq") = qq
Rs("pass") = pass
Rs("class") = qu
Rs("grade") = dj
Rs("addtime") = Now()
Rs("loginip") = Request.ServerVariables("REMOTE_HOST")
Rs.Update
Rs.Close
Set Rs = Nothing
Call RegStr("^[0-9]*$",qq,"QQ号码输入有误！")
不用这行代码就可以了
和数据库没有关系
这行里自定义了一个函数验证QQ是否都为数字
Call RegStr("qq,"QQ号码输入有误！")
Call RegStr("^[0-9,a-z]*$",qq,"QQ号码输入有误！")
首先改正则表达式是必须的，然后你看看数据库里面对应的字段是不是被设置成了数字。
注释掉
Call RegStr("^[0-9]*$",qq,"QQ号码输入有误！")
试试