我想写一个关于数字的验证程序!
我想在文本框输入的必须是数字而且必须在1--50之间该怎么写啊！

怎么没有人来解答呢！救救我啊！

用JAVA验证，网上很多

[CODE]<script language="vbscript">
sub check()
asknum=isnumeric(form1.test.value)
if asknum then
if form1.test.value<=50 then
msgbox "输入正确"
else
msgbox "输入错误"
end if
else
msgbox "输入错误"
end if
end sub
</script>
<form name="form1">
<input type="text" name="test">
<input type="button" value="测试" onClick="check()">
</form>CODE]

[此贴子已经被作者于2006-7-29 15:43:15编辑过]

[CODE]<script language="vbscript">
sub check()
asknum=isnumeric(form1.test.value)
if asknum then
if form1.test.value<=50 then
msgbox "输入正确"
else
msgbox "输入错误"
end if
else
msgbox "输入错误"
end if
end sub
</script>
<form name="form1">
<input type="text" name="test">
<input type="button" value="测试" onClick="check()">
</form>[/CODE]

楼上的不能判断小于一的情况吧：把红色部分改一下就ok了
<script language="vbscript">
sub check()
asknum=isnumeric(form1.test.value)
if asknum then
if (form1.test.value>=1) and (form1.test.value<=50) then
msgbox "输入正确"
else
msgbox "输入错误"
end if
else
msgbox "输入错误"
end if
end sub
</script>
<form name="form1">
<input type="text" name="test">
<input type="button" value="测试" onClick="check()">
</form>

我的程序是一个批量处理录入的验证!我的代码是这样的:
<form name="myform" method="post" action="ceshi.asp?Action=ok">
<%
Dim i,k
k=5 '自己定义文本框个数
for i = 1 to k
%>
<input name="upto<%=i%>" type="text" id="upto" ><br>
<%next%>
<input type="submit" name="Submit" value="提交">
</form>
<%
Dim tmp
If Request.QueryString("Action")="ok" Then
for i = 0 to k
tmp = Request.Form("upto"&i)
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from biao"
rs.open sql,conn,1,3
rs.addnew
rs("number")=tmp
rs.update
next
%>
<script language="javascript">
alert('添加成功！')
window.location.href="index.asp"
</script>
<%
End If
%>

这样就是一个批量录入数据的程序!
但是它的文本框由循环语句控制的，如果我要写验证的话是不是也要用循环啊!
如果按照4楼帅哥的意见我验证了不让他输出"输入成功"而直接录入数据库!
我感觉不好实现!
我也写了个验证但是他验是验证了但是它还是提交了!
程序如下:
<script language="javascript">
function check()
{
a=document.form1.k.value
if (isNaN(a)||a=="")
{
alert("格式错误，请输入数字！");
document.form1.k.focus();
document.form1.k.select();
}
else
{

}
}
</script>
<form id="form1" name="form1" method="post" action="1.asp">
<label>
<input name="k" type="text" id="k" />
</label>
<label>
<input type="submit" name="Submit" value="提交" onclick="check()"/>
</label>
</form>

我刚刚想到了，可不可以把数据录入用另一个文件执行，我把它里面的数据提交给另一个文件，比如说是：pass.asp
把那个Ｋ的值传递过来，
<%
dim tml
for i=1 to k
tml=Request.Form("upto"&i)
if tml="" then
response.Write"<script language=javascript>alert('数据不能为空!');history.back(-1);</script>"
response.End()
end if
if tml<>0 and tml<=50 then
response.Write"<script language=javascript>alert('格式不对!');history.back(-1);</script>"
response.End()
end if
%>
'后面再加上
<%
Dim tmp
If Request.QueryString("Action")="ok" Then
for i = 0 to k
tmp = Request.Form("upto"&i)
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from biao"
rs.open sql,conn,1,3
rs.addnew
rs("number")=tmp
rs.update
next
%>
<script language="javascript">
alert('添加成功！')
window.location.href="index.asp"
</script>
<%
End If
%>

大家看看这样可以不？？？

呕！还差个next语句

如果按照4楼帅哥的意见我验证了不让他输出"输入成功"而直接录入数据库!
我感觉不好实现!
我也写了个验证但是他验是验证了但是它还是提交了!

[CODE]<script language="vbscript">
sub check()
asknum=isnumeric(form1.test.value)
if asknum then
if (form1.test.value>=1) and (form1.test.value<=50) then
form1.submit()
else
msgbox "输入错误"
form1.test.focus()
end if
else
msgbox "输入错误"
form1.test.focus()
end if
end sub
</script>
<form id="form1" name="form1" method="post" action="1.asp">
<input type="text" name="test">
<input type="button" value="send" onClick="check()">
</form>[/CODE]