神马品牌网意大利美声歌曲100首:ASP access 批量 添加 数据
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 02:42:17
<form action="add.asp" method="post">
<input name="word1" type="text" >
<input name="word2" type="text" >
<input name="word3" type="text" >
<input name="word4" type="text" >
<input name="word5" type="text" >
</form>
---------------------------add.asp-------------------------
<%
set rs=server.createobject("adodb.recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
conn = "DBQ=" + server.mappath("database/word.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
%>
我数据库 中 表（words） 字段word time
在提交数据的时候，我要把word批量 添加 同时还要加 time date()
怎么做？？？
http://zhidao.baidu.com/question/6564286.html
打开数据库
dim db as database
dim rs as recordset
set db=opendatabase("database")
ser rs=db.openrecordset("table")
添加:
with rs
.addnew
.fields(0)=me.text1.text
.fields(1)=me.text2.text
.
.
fields(21)=me.text22.text
.update
修改：
with rs
.fields(0)=me.text1.text
.fields(1)=me.text2.text
.
.
fields(21)=me.text22.text
.update
上一个：
rs.movepriver
if not rs.bof()
if command下一个.enabled=fasle then command下一个.enabled=ture
me.text1.text=rs.fields(0)
.
.
me.text22.text=rs.fields(21)
else
me.command上一个.enabled=false
end if
第一个：
rs.movefirst
me.text1.text=rs.fields(0)
.
.
me.text22.text=rs.fields(21)
me.command上一个.enabled=false
if me.command下一个.enbled=false then me.command下一个.enabled=ture
其它类似，自己去写，也可以用控件组写循环，但麻烦些
注：本人没从别的地方复制原代码，徒手写下的，拼写错误难免，自己改一下。另外本人还是2003年用过VB，不知写得对不对。
<form action="add.asp" method="post">
<input name="word" type="text" >
<input name="word" type="text" >
<input name="word" type="text" >
<input name="word" type="text" >
<input name="word" type="text" >
</form>
页面这样写
接收的时候
for each tmp in request.form("word")'用tmp把表单数组的值一个一个取出来
'这里把tmp放到数据库,代码就省了
next