落伍者站长论坛's Archiver

wrswrs 发表于 2008-6-6 10:59

请教asp批量写入数据库的问题

<form action="upbaoxian.asp" method="post" name="selform" >
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D6D6EB">
<tr bgcolor="#F7F7F7">
<td colspan="8" background="/img/admin_bg_1.gif"> <div align="center"><strong><font color="#FFFFFF">上报保险信息</font></strong></div></td>
</tr>
<tr bgcolor="#f1f3f5">
<td><strong>UID</strong></td>
<td><strong>班级</strong></td>
<td><strong>姓名</strong></td>
<td><strong>学号</strong></td>
<td><strong>性别</strong></td>
<td><strong>班主任</strong></td>
<td><strong>时间</strong></td>
<td><input type="checkbox" name="checkbox" value="checkbox">
全选</td>
</tr>

<tr bgcolor="#f1f3f5">

<td>16</td>
<td>高全0801班</td>
<td>王小五</td>
<td>XHCE-3401-08-11111</td>
<td>男 </td>
<td>张小三</td>
<td>2008-6-5 9:51:51</td>
<td><input type=checkbox name=checked value="16"></td>
</tr>

<tr bgcolor="#f1f3f5">

<td>15</td>
<td>高全0801班</td>
<td>123</td>
<td>XHCE-3401-08-45678</td>
<td>男 </td>
<td>张小三</td>
<td>2008-6-4 10:32:24</td>
<td><input type=checkbox name=checked value="15"></td>
</tr>

<tr bgcolor="#f1f3f5">

<td>14</td>
<td>高全0801班</td>
<td>2</td>
<td>XHCE-3401-08-33333</td>
<td>男 </td>
<td>张小三</td>
<td>2008-6-3 15:52:13</td>
<td><input type=checkbox name=checked value="14"></td>
</tr>

</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td align="right" bgcolor="#FFFFFF"> <select name="select">
<option value="">请选择险种</option>
<option value="医疗保险">医疗保险</option>
<option value="意外保险">意外保险</option>

</select>  <font color="#FF0000">  
</font>
<input type="submit" value="上报保险数据" name="act" >
</td>
</tr>
</table>
</form>


在upbaoxian.asp页面上如何把checked和select里的值批量写入access数据库“保险管理”表里的“uid”和“险种”这两个字段里!

wrswrs 发表于 2008-6-6 13:32

高手们帮帮忙吧!在线等!

天下 发表于 2008-6-6 14:46

[code]
id=request("checked")
id=Split(id,",")
For d=0 To UBound(id)
update 表名 Set 险种字段名='"&trim(request("select"))&"' where id="&id(d)&"
Next
d=d+1
[/code]其中的一种方法

亦副觅 发表于 2008-6-6 15:53

:o

wzmo.com 发表于 2008-6-6 15:55

专业路过,帮顶。

cbcap 发表于 2008-6-6 19:19

专业路过,帮顶

wrswrs 发表于 2008-6-10 10:35

dim a,b
a=request.form("checked")
b=Split(a,",")
For i=0 To ubound(b)
sql="insert into 保险管理 (uid,险种) values ("&trim(b(i))&",'"&request.form("bxclass")&"')"
oconn.execute (sql)


以上代码已经运行成功了,但不知道为什么每次都多写入数据了,好像循环还是有问题!那位高人指点一下,感谢!

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.