用VBscript 一个表单单击提交的时候，没反应，不知道哪错了

seep666 发布于 2011-05-27 20:11， 728 次点击

麻烦大哥帮下忙，下面是一段小小的代码
<%
sub bb_onclick
dim msg
msg=""
if from1.fname.value="" then
msg="用户名不能为空"
end if
if msg<>"" then
alert(msg)
fname.focus
exit sub
else
form1.submit
end if
end sub
%>
<form name="form1" method="post" action="upadd" target="upadd" >
用户名:<input type="text" name="fname" >
成绩:<input type="text" name="cj" >

<input type="button" value="提交" name="bb">
</form>

3 回复

liang1982072011-05-28 00:33

没看懂你写的程序！！！！
不能提交是因为你那个提交是按钮，想用函数方法，可你写了个过程，那个提交按钮无法调用。而且啊<%%>这里里面from1.fname.value像这样的可以？
这写只能在脚本里使用啊

liang1982072011-05-28 00:40

帮你改了一下你看看
<script language="vbscript">
Sub bb_onclick()
if document.form1.fname.value="" then
alert("用户名不能为空")
document.form1.fname.focus
else
document.form1.submit()
end if
end Sub
</script>
<form name="form1" method="post" action="b.asp" target="_self" >
用户名:<input type="text" name="fname" >
成绩: <input type="text" name="cj" >
<input type="button" value="提交" name="bb" onclick="vbscript:bb_onclick()">
</form>

rosechihan2011-06-25 22:13

支持楼上的，他用的是用vbscript,其实如果是我的话我会用javascript，但是效果其实是一样的。