再谈vbscript 提交表单问题 ???（在线）
看了大家的意见，我进行了改进，如下：<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Function form1_onsubmit()
if form1.text1.value=empty then
alert("text1值不能为空！")
form1_onsubmit = false
end if
if not isnumeric( form1.text2.value) then
alert("text2值不能为字符！")
form1_onsubmit = false
end if
End Function
-->
</SCRIPT>
////////////////////////////////////////
<FORM action="1.htm" method=POST name=form1 onsubmit="form1_onsubmit()">
<input type=text name=text1><br>
<input type=text name=text2><br>
<input type=submit value="提交" >
</FORM>
提交时连续出现两次错误提示，如下：
1：text1值不能为空！
text2值不能为字符！
2：text1值不能为空！
text2值不能为字符！
请问如何改正
再给分20
问题点数：70、回复次数：5Top
1 楼cmsoft（韦小宝是我的老乡)(草根在路上）回复于 2002-08-01 23:43:51 得分 0
用JS吧@_@Top
2 楼net_lover（【孟子E章】）回复于 2002-08-02 00:03:36 得分 0
<SCRIPT>
function form1_onsubmit()
{
if (document.form1.text1.value == "")
{
alert("text1值不能为空！")
return false
}
if (!num(document.form1.text2.value))
{
alert("text2值不能为字符！")
return false
}
return true
}
</SCRIPT>
<script language="vbscript">
Function num(s)
num = false
IF IsNumeric(s) Then num = True
End Function
</script>
////////////////////////////////////////
<FORM action="1.htm" method=POST name=form1 onsubmit="return form1_onsubmit()">
<input type=text name=text1><br>
<input type=text name=text2><br>
<input type=submit value="提交" >
</FORM>
Top
3 楼meizz（梅花雪）回复于 2002-08-02 00:06:27 得分 70
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Function form1_onsubmit()
if form1.text1.value=empty then
alert("text1值不能为空！")
form1_onsubmit = false
exit function
end if
if not isnumeric( form1.text2.value) then
alert("text2值不能为字符！")
form1_onsubmit = false
exit function
end if
End Function
-->
</SCRIPT>
////////////////////////////////////////
<FORM action="1.htm" method=POST name=form1>
<input type=text name=text1><br>
<input type=text name=text2><br>
<input type=submit value="提交" >
</FORM>
你出错的原因：VBScript里已经定义了表单的提交动作，页你的HTML代码里又写上了一句onsubmit，因此这里就相当于两次检查了表单的值了。Top
4 楼ehom（？！）回复于 2002-08-02 00:17:07 得分 0
两种改法:
1:
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Function form1_onsubmit()
if form1.text1.value=empty then
alert("text1值不能为空！")
form1_onsubmit = false
end if
if not isnumeric( form1.text2.value) then
alert("text2值不能为字符！")
form1_onsubmit = false
end if
End Function
-->
</SCRIPT>
////////////////////////////////////////
<FORM action="1.htm" method=POST name=form1>
<input type=text name=text1><br>
<input type=text name=text2><br>
<input type=submit value="提交" >
</FORM>
2:
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Function check()
if form1.text1.value=empty then
alert("text1值不能为空！")
check = false
end if
if not isnumeric( form1.text2.value) then
alert("text2值不能为字符！")
check = false
end if
End Function
-->
</SCRIPT>
////////////////////////////////////////
<FORM action="1.htm" method=POST name=form1 onsubmit="javascript:return check();">
<input type=text name=text1><br>
<input type=text name=text2><br>
<input type=submit value="提交" >
</FORM>
或者全部用javascript写!Top
5 楼vieri_ch（尘雨-自在飞花轻似梦，无边丝雨细如愁）回复于 2002-08-02 00:40:37 得分 0
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Function form1_onsubmit()
if form1.text1.value=empty then
alert("text1值不能为空！")
form1_onsubmit = false
exit function
end if
if not isnumeric( form1.text2.value) then
alert("text2值不能为字符！")
form1_onsubmit = false
exit function
end if
End Function
-->
</SCRIPT>Top
