asp表单提交access数据库遇到问题，求助

我用dw建了个表单，用于每天三个楼层的考勤员分别录入本层非正常下班的同事下班时间，数据提交到我电脑的access数据库里再进行统计计算
但是我只会一行一行的往数据库里提交，而且不会判断他们填了几行，空行提交会报类型不匹配错的，麻烦大咖帮我改改，谢谢！
我的数据库名是user.mdb，里面有个jb表，表中有四项dat，nam，bc，tim

下面是我的代码：

1. ‘调用user.mdb数据库，定义日期、姓名、班次、加班时间4个字段
   
2. <%
   
3. set conn=server.createobject("adodb.connection")
   
4. conn.open "driver={microsoft ACCESS driver (*.mdb)};dbq="&server.mappath("user.mdb")
   
5. %>
   
6. <%  
   
7. dat=request.form("dat") '
   
8. nam=request.form("nam") '  
   
9. bc=request.form("bc") '  
   
10. tim=request.form("tim") '  
    
11.   
    
12. ’提交第一行数据到jb加班表中的4个字段中
    
13. Dim rsadd  
    
14. set rsadd=server.CreateObject("adodb.recordset")  
    
15. rsadd.Open "select * from jb",conn,1,3  
    
16. rsadd.AddNew
    
17. rsadd("dat")=dat
    
18. rsadd("nam")=nam
    
19. rsadd("bc")=bc
    
20. rsadd("tim")=tim
    
21. 
    
22. rsadd.Update  
    
23. rsadd.Close  
    
24. set rsadd=nothing%>   
    
25. 
    
26. ’定义第二行并提交第二行数据到jb加班表中的4个字段中
    
27. <%  
    
28. dat=request.form("dat2") '
    
29. nam=request.form("nam2") '  
    
30. bc=request.form("bc2") '  
    
31. tim=request.form("tim2") '  
    
32.   
    
33. Dim rsadd2  
    
34. set rsadd2=server.CreateObject("adodb.recordset")  
    
35. rsadd2.Open "select * from jb",conn,1,3  
    
36. rsadd2.AddNew
    
37. rsadd2("dat")=dat
    
38. rsadd2("nam")=nam
    
39. rsadd2("bc")=bc
    
40. rsadd2("tim")=tim
    
41. 
    
42. rsadd2.Update  
    
43. rsadd2.Close  
    
44. set rsadd2=nothing%>
    
45. 
    
46. 
    
47. ’定义第三行并提交第三行数据到jb加班表中的4个字段中
    
48. 
    
49. <%  
    
50. dat=request.form("dat3") '
    
51. nam=request.form("nam3") '  
    
52. bc=request.form("bc3") '  
    
53. tim=request.form("tim3") '  
    
54.   
    
55. Dim rsadd3  
    
56. set rsadd3=server.CreateObject("adodb.recordset")  
    
57. rsadd3.Open "select * from jb",conn,1,3  
    
58. rsadd3.AddNew
    
59. rsadd3("dat")=dat
    
60. rsadd3("nam")=nam
    
61. rsadd3("bc")=bc
    
62. rsadd3("tim")=tim
    
63. 
    
64. rsadd3.Update  
    
65. rsadd3.Close  
    
66. set rsadd3=nothing%>
    
67. 
    
68. <%
    
69. response.write "记录添加成功!"
    
70. %>

复制代码

我用dw建了个表单，用于每天三个楼层的考勤员分别录入本层非正常下班的同事下班时间，数据提交到我电脑的 ...
金洋 发表于 2018-7-1 18:02

代码打包发送到support@ttasp.COM
帮你调试看看

我用dw建了个表单，用于每天三个楼层的考勤员分别录入本层非正常下班的同事下班时间，数据提交到我电脑的 ...
金洋 发表于 2018-7-1 18:02

代码打包发送到support@ttasp.COM
帮你调试看看

代码打包发送到
帮你调试看看
xuanxiao 发表于 2018-7-2 08:37

   谢谢老师，发过去了

my GOD  你的表单页代码不会写了几十条重复代码来定义这么多行表格吧，不然你的提交页也不用一个一个去定义提交了

看看管理员蜀黍有什么好办法吧，我也不太明白怎么弄循环然后遍历提交

my GOD  你的表单页代码不会写了几十条重复代码来定义这么多行表格吧，不然你的提交页也不用一个一个去定义 ...
半个专家 发表于 2018-7-2 22:37

   是啊，你看出来了，领导着急要，我只能先把数据库里各个字段都改成文本类型，至少提交不会报类型不匹配的错

代码打包发送到
帮你调试看看
xuanxiao 发表于 2018-7-2 08:37

    老师，我那个代码测试得咋样了？是不是不好弄啊？都没信儿了

医院交班系统_ttasp_20180704.rar (242.13 KB, 下载次数: 0, 售价: 10 个ASP币)

2018-7-4 09:35 上传

点击文件名下载附件

回复 8# 金洋



创建input对象，循环就行


模拟ajax，你可以再完善下
后台处理可以更细化下：

1. dat=request("dat") '
   
2. nam=request("nam") '  
   
3. bc=request("bc") '  
   
4. tim=request("tim")
   
5. 
   
6. IF dat<>"" and nam<>"" and bc<>"" and tim<>"" THEN  '不能为空值  
   
7.   
   
8.                 Dim rsadd  
   
9.                 set rsadd=server.CreateObject("adodb.recordset")  
   
10.                 rsadd.Open "select * from jb",conn,1,3
    
11.                  '这里最好加上重复添加检测
    
12.                 rsadd.AddNew
    
13.                 rsadd("dat")=dat
    
14.                 rsadd("nam")=nam
    
15.                 rsadd("bc")=bc
    
16.                 rsadd("tim")=tim
    
17.                  
    
18.                
    
19.                 rsadd.Update  
    
20.                 rsadd.Close  
    
21.                 set rsadd=nothing   
    
22.                  
    
23.                 response.write "记录添加成功!"
    
24. END IF               

复制代码

my GOD  你的表单页代码不会写了几十条重复代码来定义这么多行表格吧，不然你的提交页也不用一个一个去定义 ...
半个专家 发表于 2018-7-2 22:37

他就是这样写的

看看管理员蜀黍有什么好办法吧，我也不太明白怎么弄循环然后遍历提交
半个专家 发表于 2018-7-2 22:39

已经给了个示范，抛砖引玉吧。

1. <%
   
2. dim conn,rs,sql
   
3. dim m,n
   
4. set conn=server.createobject("adodb.connection")
   
5. conn.open "driver={microsoft ACCESS driver (*.mdb)};dbq="&server.mappath("user.mdb")
   
6. %>
   
7.   <h1>   </h1>
   
8.   <h2>   ——————— <strong>加班弹休登记表  </strong>——————— </h2>
   
9.   
   
10. <table width="549" border="1" cellpadding="5" cellspacing="1">
    
11.   <tr>
    
12.     <td width="129"><div align="center">日 期</div></td>
    
13.     <td width="127"><div align="center">姓 名</div></td>
    
14.     <td width="129"><div align="center">班 次</div></td>
    
15.     <td width="136"><div align="center">下班时间</div></td>
    
16.   </tr>
    
17.   <% for m=1 to 10 %>
    
18.   <tr>
    
19.     <td width="129"><div align="center">
    
20.         <label for="dat"></label>
    
21.         <select name="dat_<%=m%>" id="dat_<%=m%>"  onBlur="checkName();" >
    
22.           <option>请选择日期</option>
    
23.           <option>18-6-29</option>
    
24.           <option>18-6-30</option>
    
25.           <option>18-7-1</option>
    
26.           <option>18-7-2</option>
    
27.           <option>18-7-3</option>
    
28.           <option>18-7-4</option>
    
29.           <option>18-7-5</option>
    
30.         </select>
    
31.     </div></td>
    
32.     <td width="127"><div align="center">
    
33. 
    
34. 
    
35. 
    
36.   <select name="nam_<%=m%>" id="nam_<%=m%>">
    
37.   <option value="">请选择人员</option>      
    
38. <%
    
39. sql="select * from ry"
    
40. Set rs=conn.execute(sql)
    
41. while not rs.eof
    
42. %>
    
43. <option value="<%=rs("nam")%>"><%=rs("nam")%></option>
    
44. <%
    
45. rs.movenext
    
46. wend
    
47. rs.close
    
48. %>
    
49. </select>
    
50.       
    
51.          
    
52.          
    
53.     </div></td>
    
54.     <td><div align="center">
    
55.         <label for="bc"></label>
    
56.         <select name="bc_<%=m%>" id="bc_<%=m%>">
    
57.           <option>请选择班次</option>
    
58.           <option value="8-12">半天</option>
    
59.           <option value="8-14">喂奶8-2</option>
    
60.           <option value="8-16">8-4</option>
    
61.           <option value="8-18">8-6</option>
    
62.           <option value="10-18">10-6</option>
    
63.           <option value="12-20">12-8</option>
    
64.           <option value="15-23">3-11</option>
    
65.         </select>
    
66.     </div></td>
    
67.     <td width="136">
    
68.           <div align="center">
    
69.          
    
70.         <input name="tim_<%=m%>" type="text" id="tim_<%=m%>" size="20" maxlength="5" onBlur="Chk_Update(<%=m%>);"/>
    
71.     </div></td>
    
72.   </tr>
    
73.   <% next %>
    
74. </table>

复制代码

回复  金洋



创建input对象，循环就行


模拟ajax，你可以再完善下
后台处理可以更细化下：
xuanxiao 发表于 2018-7-4 09:36

   谢谢老师！辛苦您啦~

这个应该很好解决的。
现在解决了吗？
不行吱一声，我帮你写一段。