ASP FORM表单提交判断

最新推荐文章于 2021-07-17 11:21:54 发布

weixin_33958585

最新推荐文章于 2021-07-17 11:21:54 发布

阅读量307

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/colinliu/p/asp_checkform.html

本文介绍了一个使用ASP实现的表单验证与提交流程。通过客户端JavaScript进行表单字段的有效性检查，确保必填项不为空，并至少选择一个调查问卷选项。服务器端则接收表单数据并写入数据库。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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
        %>

-完-

转载于:https://www.cnblogs.com/colinliu/p/asp_checkform.html