用VBscript 一个表单单击提交的时候，没反应，不知道哪错了
麻烦大哥帮下忙，下面是一段小小的代码<%
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>
