VBSCRIPT 如何表单自动提交 急
<script language="VBScript">
sub editcheckdata
if len(document.editform.begin.value)=0 or not ISNUMERIC(document.editform.begin.value) then
MsgBox("开始价格请输入数值")
exit sub
end if
if len(document.editform.end.value)=0 or not ISNUMERIC(document.editform.end.value) then
MsgBox("结束价格请输入数值")
exit sub
end if
if len(document.editform.youhuilv.value)=0 or not ISNUMERIC(document.editform.youhuilv.value) then
alert("结束价格请输入数值")
exit sub
end if
document.editform.submit
end sub
</script>
<form name="editform" method="post" action="dazheaddsave.asp">
</form>
弹出对话框对象不支持次属性或方法document.editform.submit