ASP FORM表单提交判断

<script language="javascript">
function check()
{
if (document.form1.company.value=="")
{
alert("公司名称不能为空!");
return false;
}
if (document.form1.addr.value=="")
{
alert("地址不能为空!");
document.form1.protypetitle.focus();
return false;
}
if (document.form1.dep.value=="")
{
alert("部门不能为空!");
return false;
}
if (document.form1.contacts.value=="")
{
alert("联系人不能为空!");
return false;
}
if (document.form1.phone.value=="")
{
alert("联系方式不能为空!");
return false;
}
if (document.form1.a01.checked || document.form1.a02.checked || document.form1.b01.checked || document.form1.b02.checked || document.form1.b03.checked)
{
return true;
}
else
{
alert("请选择调查问卷的相关选项");
return false;
}
return true;
}
</script>

<form name="form1" action="" method="post" onsubmit="javascript:return check()">
<table border="0" width="100%">
<tr><td width="15%" valign="middle">公司名称:</td><td><input type="text" name="company" style="width:300px;"/> <span id="hintuser">* 必填</span></td></tr>
<tr><td width="15%" valign="middle">地　　址:</td><td><input type="text" name="addr" style="width:300px;"/> <span id="hintuser">* 必填</span></td></tr>
<tr><td width="15%" valign="middle">部　　门:</td><td><input type="text" name="dep" style="width:300px;"/> <span id="hintuser">* 必填</span></td></tr>
<tr><td width="15%" valign="middle">联系人员:</td><td><input type="text" name="contacts" style="width:300px;"/> <span id="hintuser">* 必填</span></td></tr>
<tr><td width="15%" valign="middle">联系电话:</td><td><input type="text" name="phone" style="width:300px;"/> <span id="hintuser">* 必填</span></td></tr>
<tr><td width="15%" valign="middle">具體情况:</td><td><textarea name="qs_inf" style="width:500px;height:100px;"></textarea> <span id="hintuser"> 选填</span></td></tr>
<tr><td colspan="2">A. 提问<br /><input name="a01" type="checkbox" value="1,回答<br />" />1,回答<br /><input name="a02" type="checkbox" value="2,回答<br />"/>回答</td></tr>
</table>
<input type="submit" value="提交" style="padding:3px 5px;margin: 20px;float: right;";>
</form>

<%
if request.Form<>"" then
dim caseid,casename,company,addr,dep,contacts,phone,qs_inf,qs_wt,isdel,createtime,temp1,temp2
caseid=1
casename="调查表"
company=trim(request.Form("company"))
addr=trim(request.Form("addr"))
dep=trim(request.Form("dep"))
contacts=trim(request.Form("contacts"))
phone=trim(request.Form("phone"))
qs_inf=trim(request.Form("qs_inf"))
if request.Form("a01")<>"" or request.Form("a02")<>"" then
qs_wt="A. 提问<br />"+trim(request.Form("a01"))+trim(request.Form("a02"))
end if
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from colin"
rs.open sql,objconn,1,2
rs.addnew()
rs("caseid")=caseid
rs("casename")=casename
rs("company")=company
rs("addr")=addr
rs("dep")=dep
rs("contacts")=contacts
rs("phone")=phone
rs("qs_inf")=qs_inf
rs("qs_wt")=qs_wt
rs("createtime")=now()
rs.update()
rs.close
response.Write("<script language='javascript'>alert('您已成功提交表单')</script>")
end if
%>