function Submit() {
if (Checkie("name","姓名"))return false
if (Checkie("email","E-Mail"))return false
if (!checkemail(document.change.email.value)){
   window.alert('请输入正确EMAIL地址！注意不能含空格或其他不正确字符');
   document.change.email.focus();
            document.change.email.select();
   return false;}
if (Checkie("comm","意见"))return false
  

document.change.submit()
  return false
}

<script language="vbscript">
Sub ChangeAsp(applyasp)
 kkk.action=applyasp
 kkk.submit()
end Sub
</script>

<form name="KKK" id="KKK" method="post">
<imgsrc=""language="vbscript"onclick="ChangeAsp('searchlist.asp'>
</form>

sub（）很灵活，可以限定你表单里面的输入是否正确

下面就是的对name的限制
<script language="vbscript">
Sub ChangeAsp(applyasp)
 if kkk.name.value="" then
   
   Msgbox "请输入文件名！"
   kkk.name.focus()
   exit Sub
  
 end if
        kkk.action=applyasp
 kkk.submit()
end Sub