[求助]ASP限制。

往事如烟 · 发表于 2010-1-8 02:18:32

<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
Sub insert()
If f1.t1.value="" Then
msgbox"图书名不能为空!"
ElseIf
for i=0 to 9
if f1.t5.value<>i then
msgbox"必须为数字"
end if
next
else
f1.action="as_insert_book.asp?q=1"
f1.submit
end if
End Sub
</SCRIPT>
<FORM METHOD=POST ACTION="" name="f1">
<TABLE border="1" align="center">
<TR>
<TD height="50"><CENTER>添加图书</CENTER></TD>
</TR>
<TR>
<TD height="40">图书名：<INPUT TYPE="text" NAME="t1"> <FONT COLOR="red">*</FONT></TD>
</TR>
<TR>
<TD height="40">作  者：<INPUT TYPE="text" NAME="t2"></TD>
</TR>
<TR>
<TD height="40">出版社：<INPUT TYPE="text" NAME="t3"></TD>
</TR>
<TR>
<TD height="40">类  别：
<SELECT NAME="t4">
<OPTION VALUE="文学艺术类">文学艺术类
<OPTION VALUE="计算机类">计算机类
<OPTION VALUE="社会科学类">社会科学类
<OPTION VALUE="自然科学类">自然科学类
<OPTION VALUE="外文书籍类">外文书籍类
<OPTION VALUE="其他">其他
</SELECT>
</TD>
</TR>
<TR height="40">
<TD>价  格：<INPUT TYPE="text" NAME="t5">元</TD>
</TR>
<TR height="40">
<TD><CENTER><INPUT TYPE="button" value=" 添加 " onclick="insert()">    <INPUT TYPE="reset" value=" 取消 "></CENTER></TD>
</TR>
<TR>
<TD><FONT SIZE="4" COLOR="red"><CENTER>*为必填内容</CENTER></FONT></TD>
</TR>
</TABLE>
<%
If request("q")="1" Then
conn.execute("insert into book(Book_Name,Book_Author,Book_Press,Book_Category,Book_Price) values('" & request("t1") & "','" & request("t2") & "','" & request("t3") & "','" & request("t4") & "','" & request("t5") & "')")
'成功后跳转
response.write"<SCRIPT LANGUAGE='JavaScript'>"
response.write"alert('你已经成功添加一本图书!');"
response.write "location.href='see_book.asp'"
response.write"</SCRIPT>"
End If
%>
</FORM>
</body>

我要限制文本框t5的输入
只能输入数字范围1-999

谁帮帮我改下啊

海的无奈 · 发表于 2010-1-8 02:18:34

OK 搞定了谢谢了啊

兮哩糊涂の斗 · 发表于 2010-1-8 02:18:37

把你的sub改成
Sub insert()
If f1.t1.value="" Then
msgbox"图书名不能为空!"
elseif f1.t5.value="" then
msgbox"价格不能为空！"

elseif not (isnumeric(f1.t5.value)) then
msgbox"必须为数字！"
elseif ((f1.t5.value)>999 or (f1.t5.value)<1) then
msgbox"不能小于1或大于999！"

else
f1.action="as_insert_book.asp?q=1"
f1.submit

end if
End Sub
红色可以不要

		自动登录	找回密码
密码			注册