asp中利用数组实现数据库记录的批量录入方法(原创)

<%

rem 文章题目 asp中利用数组实现数据库记录的批量录入方法(原创)

作者：yanek

联系email:aspboy@263.net

%>

包括两个文件

1。allneeddj.asp：实现表单的生成

2. allneeddjresult.asp 处理表单批量录入

3.hbedu.mdb :数据库文件

其数据库结构如下

provinceid:省份编号 数值型

dytaocount:打样套数 数值型

papertaocount:纸样套数 数值型

cpcontent:出片内容 数值型

filename:文件名 文本型

beizhu:备注 备注型

本例子中以10条记录，每条记录6个字段说明.

1。allneeddj.asp

<%

set conn=server.createobject("adodb.connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _

Server.MapPath("hbedu.mdb")

%>

2.allneeddjresult.asp

<%

rem 定义二维数组存放从表单获取的值

dim data(10,6)

for i= 1 to 6

for j= 1 to 10

mydata="data"+cstr(i)+cstr(j)

data(j,i)=request.form(mydata)

next

next

%>

<%

rem 输出表单输入的值

for i= 1 to 10

for j= 1 to 6

response.write data(i,j)

next

response.write"
"

next

'response.end

%>

<%

dim conn,rs

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _

Server.MapPath("hbedu.mdb")

for i= 1 to 10

rem 循环批量入库

Set rs=SERVER.CreateObject("ADODB.Recordset")

rs.Open "hbedu",conn,1,3

rs.AddNew

rs("beizhu")=data(i,6)

rs("filename")=data(i,5)

rs("cpcontent")=data(i,4)

rs("papertaocount")=data(i,3)

rs("dytaocount")=data(i,2)

rs("provinceid")=data(i,1)

rs.Update

rs.close

set rs=nothing

response.write"ok
"

next

%>